Perl + localtime()

Shell Programming and Scripting
1

ok here is a perl date question not asked befor.

i know i am feeling small for not knowing. BUT!!!!

$ENV{TZ}="US/Central";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();

how can i do the addition to year so i can get the current year w/o going $ntime=$year+1900; AND without useing the system function to call the external date program.

for somereason i cant get it to add 1900 to the year unless i create a new variable.

What do i need it for? to fill in this variable w/ the current full 4 digit year (2003).

$ARCHIVE_OUT="/homes/archive/outbound/${year}_${mon}_${mday}";

2

Is this it? Or did I miss your requirement?

perl -e '$ENV{TZ}="US/Central";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$ARCHIVE_OUT = sprintf("/homes/archive/outbound/%4d_%02d_%02d", $year+1900, $mon + 1, $mday);

Notice the "%02d" for $mon and $mday --- I find it convenient for all date-named files to be the same length, e.g., they will sort properly.

Also notice the $mon+1 --- localtime() numbers months starting at 0 for January.

3

$year+= 1900;

would add it to year without a new variable also.

4

sweetness. I opt for criglerj way. i found it will work best w/ the final solution.

but thanks for the quick responses guys n gals.