in reply to Re: how to log a process
in thread how to log a process

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?

Replies are listed 'Best First'.
Re^3: how to log a process
by apl (Monsignor) on May 28, 2009 at 01:31 UTC
    I think you've got it (though I believe you need to wrap the argument with double-quotes).
[reply]
Re^3: how to log a process
by zimbot (Initiate) on May 28, 2009 at 12:34 UTC
    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