While updating some Perl code I wrote quite some time back, I came across the following:
my ($sec, $min, $hour, $day, $month, $year, $wd, $day, $dst) = localtime(time); print $year + 1900 . " ";
This code is rather wasteful, especially when the program only needs the year. A much simpler solution is to put the localtime() result into array context, and index into it:
$year = (localtime)[5] + 1900; print "$year ";
I am currently reading two Perl books, and it amazes me just how versatile Perl is!