LOL, I was just revisiting this very same issue only two days ago, when I decided I wanted to whip up a handful of scripts I could call from web pages to print my preferred date format(s). :)
#!/usr/bin/perl -T
print "Content-type: text/html\n\n";
use POSIX qw(strftime);
# see man strftime(3) for format options
use strict;
my $gmtstring = strftime "%F %H:%I:%S %z", localtime;
print $gmtstring;
# This will produce: 2012-06-20 09:09:27 -0700 (your GMT may be differ
+ent)
# The following appends TZ, instead of GMT
#!/usr/bin/perl -T
print "Content-type: text/html\n\n";
use POSIX qw(strftime);
# see man strftime(3) for format options
use strict;
my $tzstring = strftime "%F %H:%I:%S %Z", localtime;
print $tzstring;
# Which produces: 2012-06-20 09:09:57 PDT (again, your TZ may be diffe
+rent)
Short, & sweet -- just the way I like 'em. Maybe you will too. :)
Hope this helps!
#!/usr/bin/perl -Tw
use strict;
use perl::always;
my $perl_version( 5.12.4 );
print $perl_version; |