Re^3: how to log a process

This use of log handler is intersting -- i hadnot heard of it before -- I cahnged my script thussly:


#!/usr/local/bin/perl
#  now WITH Log Handler

# 2592000 = 30 day n min (60 *60 * 24 *30 )

use strict;
use POSIX;
use warnings;
use Log::Handler::Simple;

my $log = Log::Handler::Simple->new(
       filename => '/script_logs/30DyDlt-LOG.txt',
       mode     => 'append',
       newline  => 1,
       maxlevel => 7,
       minlevel => 0
    );



# change the below to dlt - dl30    
## my $logfile = "/script_logs/30DyDlt-LOG.txt";
my $date = localtime();

my $dir = '/oven_web/iportal/cgi-bin/uploads';

opendir(DIR,$dir) || die "Can't open $dir : $!\n";

my @files = readdir(DIR); # you may want to grep only certain files he
+re

close(DIR);
### my $logmsg = $date/$dir/$file;
###my $logmsg = "$date/$dir/$file";
$log->info

#print $logmsg = $date/$dir/$file;

open LOGFILE, ">> $logmsg " or die " cannot open logfie $logfile for a
+ppend $!";


foreach my $file(@files)

{

    my $now = time;

    my @stat = stat("$dir/$file");


    if ($stat[9] < ($now - 2592000))

    {

        print "Deleting $dir/$file...";

        #unlink("$dir/$file");

        #print "Done.\n";
        $log->info("$date/$dir/$file");




    }



}
close LOGFILE;
[download]

i just noted i - likely need to snip off :: close LOGFILE but that is not my - real problem . Of course I have not done it correctly . and it "lOOks like my Perl is ' missing ' something. an attempt to run blows up like this. . /usr/bin/perl /oven_script/tst/dlt30day-oven1d-j4.pl Can't locate Log/Handler/Simple.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl/5.8.7 /usr/lib/perl5/site_perl/5.8.6 /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl/5.8.7 /usr/lib/perl5/vendor_perl/5.8.6 /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at /oven_script/tst/dlt30day-oven1d-j4.pl line 7. BEGIN failed--compilation aborted at /oven_script/tst/dlt30day-oven1d-j4.pl line 7. well. it is a new record for me on total numberof chars in an error --- so that much was fun!

Comment on Re^3: how to log a process Download Code

Replies are listed 'Best First'.
Re^4: how to log a process by bloonix (Monk) on Jun 07, 2009 at 19:32 UTC
Log::Handler::Simple is deprecated. It's better to use Log::Handler. Deprecated: `my $log = Log::Handler::Simple->new( filename => '/script_logs/30DyDlt-LOG.txt', mode => 'append', newline => 1, maxlevel => 7, minlevel => 0 );` [download] New since version 0.40: `my $log = Log::Handler->new(); $log->add(file => { filename => '/script_logs/30DyDlt-LOG.txt', mode => 'append', newline => 1, maxlevel => 7, minlevel => 0 });` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: how to log a process
by bloonix (Monk) on Jun 07, 2009 at 19:32 UTC

my $log = Log::Handler::Simple->new(
       filename => '/script_logs/30DyDlt-LOG.txt',
       mode     => 'append',
       newline  => 1,
       maxlevel => 7,
       minlevel => 0
    );
[download]

my $log = Log::Handler->new();

$log->add(file => {
       filename => '/script_logs/30DyDlt-LOG.txt',
       mode     => 'append',
       newline  => 1,
       maxlevel => 7,
       minlevel => 0
    });
[download]

[reply]
[d/l]
[select]