topic Re: perl localtime to get format in Operating System - Linux

perl localtime to get format

Ratzie — Fri, 02 Mar 2007 17:22:14 GMT

I would like to use the perl localtime to display the format
YYMMDDHHMMSS

Re: perl localtime to get format

James R. Ferguson — Fri, 02 Mar 2007 17:32:40 GMT

Hi:

Use the POSIX::strftime module. THe directives are the same as the libc ones.

# perl -MPOSIX=strftime -e 'print strftime("%Y%m%d%H%M%S\n",localtime)'

Regards!

...JRF...

Re: perl localtime to get format

A. Clay Stephenson — Fri, 02 Mar 2007 17:33:44 GMT

#!/usr/bin/perl -w

sub do_1_timestamp
{
use integer;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_[0]);
my $s_tmp = sprintf("%02d%02d%02d%02d%02d%02d",
($year + 1900) % 100,$mon + 1,$mday,$hour,$min,$sec);
return($s_tmp);
} # do_1_timestamp

print "Current Time is ",do_1_timestamp(time()),"\n";

Re: perl localtime to get format

Ratzie — Tue, 06 Mar 2007 16:35:41 GMT

First time I am not using perl, and has saved me code.

chomp( my $dispdate = `date +%Y-%m-%dT%X.000` );

Re: perl localtime to get format

James R. Ferguson — Tue, 06 Mar 2007 16:46:32 GMT

Hi (again):

The downside of your own solution is that you are invoking the shell to run the 'date' command. This adds the creation of an unnecessary process to do what Perl can do directly.

Regards!

...JRF...

Re: perl localtime to get format

A. Clay Stephenson — Tue, 06 Mar 2007 16:58:50 GMT

... and to add injury to insult, your use of the external date command means that your can only format the current date and time rather than any date and time such as the modification time of a file, the date 3 hours from now, ... which would all simply be a different argument to the function I gave you.

Re: perl localtime to get format

Ratzie — Tue, 06 Mar 2007 17:03:02 GMT

OK OK, Perl still rules.
I know I was going to open up a can of worms with this one.