in reply to Re: Errors from a simple Package
in thread Errors from a simple Package
use POSIX qw(strftime); sub log_msg { open(my $fh, ">>", 'log_file.txt') or die "Err: $!"; printf $fh "[%s] %s\n", strftime("%Y-%m-%d %H:%M:%S", localtime), sh +ift; close $fh; } ... log_msg("Log this message");
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: Errors from a simple Package
by tel2 (Pilgrim) on Mar 17, 2011 at 22:02 UTC |