Date and time for log files

ibaboom has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Date and time for log files by roboticus (Chancellor) on Oct 04, 2007 at 15:48 UTC
ibaboom: Howzabout: `#!/usr/bin/perl -w use strict; use warnings; my @gm = localtime(time); printf "%04u%02u%02u%02u%02u\n", $gm[5]+1900, $gm[4]+1, $gm[3], $gm[2], $gm[1], $gm[0];` [download] ...roboticus	[reply] [d/l]
Re^2: Date and time for log files by ibaboom (Initiate) on Oct 04, 2007 at 16:28 UTC
/me = dork	[reply]
Re^3: Date and time for log files by wfsp (Abbot) on Oct 04, 2007 at 16:55 UTC
No you're not. If you hadn't asked the question I wouldn't have seen roboticus's nifty little snippet which is now filed away in my snippet toolbox. So, thanks for asking the question :-)	[reply]
Re: Date and time for log files by moritz (Cardinal) on Oct 04, 2007 at 15:46 UTC
You can use localtime or gmtime and time. You can concatenate strings with a dot `.` Perl 6 in German	[reply] [d/l]
Re: Date and time for log files by graff (Chancellor) on Oct 04, 2007 at 22:56 UTC
`use POSIX; my $filename = strftime( "%Y%m%d%H%M%S.log", localtime ); print "lets open a file called $filename ...\n";` [download] Personally, I like to throw in a little punctuation, because it's easier to look at, and it can be easier to grep for a given day or a given hour: `strftime( "%Y%m%d_%H%M%S.log", localtime );` [download]	[reply] [d/l] [select]
Re: Date and time for log files by Akoya (Scribe) on Oct 04, 2007 at 17:27 UTC
I have a function that gives me a formatted timestamp string when I need it. It will format a value I pass, or if I don't pass anything to it, it uses the current time. `sub _timestamp { my $t = shift; # allow me to pass in a time $t = time unless $t; # use the current time if none specified my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localti +me($t); my $timestamp = sprintf("%04u-%02u-%02u %02u:%02u:%02u", $year + 1900, $mon + 1, $mday, $hour, $min, $sec); return $timestamp; }` [download] All you have to do is change the format to however you like. You can then use the returned string as part of a filename, or as I use it, to prefix entries in my log files. Cheers, Akoya	[reply] [d/l]
Re: Date and time for log files by nimdokk (Vicar) on Oct 04, 2007 at 17:21 UTC
Yet another way to do it might be as follows: `#!/usr/bin/perl use Time::localtime; $log_name=sprintf("my_log.%04d%02d%02d%02d%02d%02d.log", localtime->year()+1900, localtime->mon()+1,localtime->mday(), localtime->hour(), localtime->min(),localtime->sec()); print $log_name . "\n";` [download] Would give you: `my_log.20071004122204.log` [download] update: removed period between date and time to better reflect string from OP.	[reply] [d/l] [select]
Re: Date and time for log files by sago (Scribe) on Oct 05, 2007 at 04:43 UTC
my @t = localtime(time); my ($rf, $td); $t4++; $td = (1900 + $t5) . ((length($t4)==1)?(0 . $t4):$t4) . ((length($t3)>1)?$t3:(0 . $t3)) . ((length($t2)==1)?(0 . $t2):$t2) . ((length($t1)>1)?$t1:(0 . $t1)) . ((length($t[0])>1)?$t[0]:(0 . $t[0])); open(PLOG, ">>/usr/perl_scripts/$td.log"); print PLOG "Hello World"; close(PLOG); The above sample script will create the log file with date and time.	[reply]
Re^2: Date and time for log files by graff (Chancellor) on Oct 05, 2007 at 05:16 UTC
Please put <code> (or <c>) at the beginning of any program code or data, and put </code> (or </c>) at the end of your code or data, when you post. Read Writeup Formatting Tips. Learn from what other people have posted. And please, please, *PLEASE* use <code> tags when you post code or data (abbreviate them to just "c" if you like, but use these tags).	[reply]