How to generate Log Files for perl code

[sainiamit25]

Hi All,

I have writte a perl code. The perl code simple do some calculation and based on that, it takes a specific action for a device. But i do not have any logging mechanism for this. By this i mean that i do not get any logfile for this. I want to generate a logfile for every step which i write in perl code. For example, if i have i have 2 variables and i am doing the sum, this should be logged in a log file. Can you please help me out of this problem? A sample code will be highly appreciated.

Thanks in advance for your help.

Cheers,
Amit

[numberwhun]

There is no logging mechanism in Perl, that I know of at least, beyond what you put into your code. You will have to not only open a log file (typically to give it a file handle) and then make log entries specific to what you want to see in your log.

For instance, say you are doing the sum of two numbers(as you mention) and you want to see this reflected in your log. You could do something like this:

#!/usr/bin/perl
 
use strict;
use warnings;
 
open(LOG, ">./logfile.txt");
 
my $var1 = "2";
my $var2 = "2";
 
my $sum = $var1 + $var2;
 
print LOG ("Performed the sum of $var1 and $var2 and received $sum");
 
 

This would put that line into the log file. The only catch is you need to code like this every place you want to capture information for your log.

Regards,

Jeff

[sainiamit25]

Thanks very much Jeff.

Cheers,
Amit