Perl scripting

[Shannon Petry]

I was wondering if there is an easy way to grap the date in certain formats within a perl script.
Using "time" I can get the long date, and parse only what I need but I would figure their is an easy way to get
YYYYMMDDhhmm
or
YYYYMMDD-hhmm
I can do this with
/usr/bin/date +%Y%m%d-%H%M

Thanks in advance for Ideas

Shannon

[John Bolene · Accepted solution]

try this
use Time::Local;
$TIME = timelocal($sec, $min, $hours, $mday, $mon, $year);

you can then use these values in any way you want

[Shannon Petry]

Thanks, I had some docs regarding your command, but the docs did not show to include a time mod....

Thans for the help!

[Frederic Soriano]

Hi Shannon,

You could also use the POSIX::strftime function to display a date in a special format, as in [have a look at man page strftime(3C)]:

--snip--
printf STDOUT "Date is %s.\n", POSIX::strftime('%y/%m/%d', localtime(time))
--snip--

John's suggestion is better to manipulate each item differently.

Best regards.

Fred.