in reply to how to log a process

Rather than reinventing the wheel, you should consider taking a look at Log::Handler::Simple.

Replies are listed 'Best First'.
Re^2: how to log a process
by zimbot (Initiate) on May 28, 2009 at 00:16 UTC
    Thanks for the reply. I looked at that link -- and looke at the examples so -- would you say that i could accomplish what i am trying to do with 
    $log->info

    [download]
    like 
    $log->info($date/$dir/$file);

    [download]
    am i headed in the right direction?
[reply]
[d/l]
[select]
      I think you've got it (though I believe you need to wrap the argument with double-quotes).
[reply]
      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!
[reply]
[d/l]
        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]

In Section Seekers of Perl Wisdom