in reply to Shorter Formating?

my @time = reverse ((localtime)[0..5]);
$time[0]+= 1900;
$time[1]+= 1;
my $changedate = sprintf  "%4d-%02d-%02d %02d:%02d:%02d", @time;

[download]
I think you can use mapcar to shorten it some more. Where's tye? ...

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom