write error to log file

[sun9]

hi,

I have a script that opens a file and throws an error to the standard output if the file does not exist, how do i get the error to be written into a log file in the same directory as the script? Also how do I go about checking if the file contains no data?

open(FILE, $file)|| die("$file\n$!, Cannot create files without test.txt\n");

Thanks.

 

[travs69]

I usually have a log subroutine..
something like:

open(FILE, $file)|| &log("$file $!", "exit");

sub log {
$logentry = shift @_;
$status = shift @_;
$time = localtime;
open(LOG, ">>$log") || die "$log can't be appended to: $!\n";
print LOG "$time: $logentry\n";
close LOG;
if ($status eq "exit") {
exit;
}
}

 

[sun9]

Thanks travs69 that helped.

 

[stevexff]

For a comprehensive logging solution, check out log4perl, a port of the Apache log4j (Java) utility.

http://log4perl.sourceforge.net,

also available from CPAN...

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]