I'm assuming this still isn't working for you. I'll save you the trouble of admonishing you for using globals (like $log and @data appear to be, but in fact may not be as you've omitted a lot of your code). But this change should fix the specific issue you're after with your code:
sub LOGGIN { .... # sleep 1; $localtime = localtime(); open(LOG, ">>$log") or croak "Unable to append to $log: $!"; print LOG "[$localtime] $log : @data \n"; close LOG or die "Cannot close log file:: $log : $!\n"; .... }
To prove it, uncomment the sleep line.
$/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ } + sig map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu +" );
In reply to Re: Localtime Updating
by chargrill
in thread Localtime Updating
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |