use Time::HiRes qw( time ); sub LOGGIN { my $time = time; my $mili = sprintf("%03d", ($time - int($time)) * 100); my $localtime = localtime($time); open(local *LOG, '>>', $log) or croak "Unable to append to $log: $!"; print LOG "[$localtime.$mili] $log : @data \n"; close LOG or die "Cannot close log file:: $log : $!\n"; }
In reply to Re: Localtime Updating
by ikegami
in thread Localtime Updating
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |