http://www.perlmonks.org?node_id=594366


in reply to log file in Log4perl

What happens if you try:

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = l
+ocaltime time;
my $date=sprintf("%04d%02d%02d",1900+$year,$mon+1,$mday);
my $log_file="/tmp/ClassA".$date.".log";
log4perl.appender.ClassA.filename = $log_file;

[download]
map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2*$d*$e+$a,$e**2
-$d**2+$b);$c=$d**2+$e**2>4?$d=8:_}1..50;print$c}0..59;print$/}0..20

[download]
Tom Melly, pm@tomandlu.co.uk

In Section Seekers of Perl Wisdom