I will like to write a script that delete all files that are older than 7 days in a directory and it's subdirectories. Can any one help me out witht the magic command or script?
Thanks in advance,
Odogboly98:confused: (3 Replies)
i have to delete files which are older than 15 days or more except the ones in the directory Current and also *.sh files
i have found the command for files 15 days or more older
find . -type f -mtime +15 -exec ls -ltr {} \;
but how to implement the logic to avoid directory Current and also... (3 Replies)
Hi,
I have dummies questions:
My script here can find the files in any directories older than 30 days then it will delete the files but not the directories. I would like to also be able to delete the directories that hold old files more than 30 days not just the files itself.
find . -type f... (2 Replies)
Hi all,
I want to delete log files with extension .log which are older than 30
days. How to delete those files?
Operating system -- Sun solaris 10
Your input is highly appreciated.
Thanks in advance.
Regards,
Williams (2 Replies)
Hi All,
I am using below code to delete files older than 2 days. In case if there are no files, I should log an error saying no files to delete.
Please let me know, How I can achive this.
find /path/*.xml -mtime +2
Thanks and Regards
Nagaraja. (3 Replies)
Hi ,
I am a newbie!!!
I want to develop a script for deleting files older than x days from multiple paths. Now I could reach upto this piece of code which deletes files older than x days from a particular path. How do I enhance it to have an input from a .txt file or a .dat file? For eg:... (12 Replies)
Hello All,
Can someone please help me out in creating the find command to search and delete files older than 1 days at a desired location.
Thanks in advance for your help. (3 Replies)
Discussion started by: Pandee
3 Replies
LEARN ABOUT DEBIAN
mojo::log
Mojo::Log(3pm) User Contributed Perl Documentation Mojo::Log(3pm)NAME
Mojo::Log - Simple logger
SYNOPSIS
use Mojo::Log;
# Log to STDERR
my $log = Mojo::Log->new;
# Customize log file location and minimum log level
my $log = Mojo::Log->new(path => '/var/log/mojo.log', level => 'warn');
# Log messages
$log->debug("Why isn't this working?");
$log->info("FYI: it happened again");
$log->warn("This might be a problem");
$log->error("Garden variety error");
$log->fatal("Boom!");
DESCRIPTION
Mojo::Log is a simple logger for Mojo projects.
EVENTS
Mojo::Log can emit the following events.
"message"
$log->on(message => sub {
my ($log, $level, @messages) = @_;
...
});
Emitted when a new message gets logged.
$log->unsubscribe('message');
$log->on(message => sub {
my ($log, $level, @messages) = @_;
say "$level: ", @messages;
});
ATTRIBUTES
Mojo::Log implements the following attributes.
"handle"
my $handle = $log->handle;
$log = $log->handle(IO::Handle->new);
Log file handle used by default "message" event, defaults to opening "path" or "STDERR".
"level"
my $level = $log->level;
$log = $log->level('debug');
Active log level, defaults to the value of the "MOJO_LOG_LEVEL" environment variable or "debug".
These levels are currently available:
"debug"
"info"
"warn"
"error"
"fatal"
"path"
my $path = $log->path
$log = $log->path('/var/log/mojo.log');
Log file path used by "handle".
METHODS
Mojo::Log inherits all methods from Mojo::EventEmitter and implements the following new ones.
"new"
my $log = Mojo::Log->new;
Construct a new Mojo::Log object and subscribe to "message" event with default logger.
"debug"
$log = $log->debug('You screwed up, but that is ok');
Log debug message.
"error"
$log = $log->error('You really screwed up this time');
Log error message.
"fatal"
$log = $log->fatal('Its over...');
Log fatal message.
"format"
my $message = $log->format('debug', 'Hi there!');
my $message = $log->format('debug', 'Hi', 'there!');
Format log message.
"info"
$log = $log->info('You are bad, but you prolly know already');
Log info message.
"is_level"
my $success = $log->is_level('debug');
Check log level.
"is_debug"
my $success = $log->is_debug;
Check for debug log level.
"is_error"
my $success = $log->is_error;
Check for error log level.
"is_fatal"
my $success = $log->is_fatal;
Check for fatal log level.
"is_info"
my $success = $log->is_info;
Check for info log level.
"is_warn"
my $success = $log->is_warn;
Check for warn log level.
"log"
$log = $log->log(debug => 'This should work');
Emit "message" event.
"warn"
$log = $log->warn('Dont do that Dave...');
Log warn message.
SEE ALSO
Mojolicious, Mojolicious::Guides, <http://mojolicio.us>.
perl v5.14.2 2012-09-05 Mojo::Log(3pm)