SPUG: Perl oddity?
Marc M. Adkins
Marc.M.Adkins at Doorways.org
Wed Jan 28 22:54:49 CST 2004
# I was a little surprised at this...
print join('/', reverse localtime), "\n";
print join('/', reverse localtime(time)), "\n";
@t = ( time );
print join('/', reverse localtime($t[0])), "\n";
print join('/', reverse localtime(@t)), "\n"; # ????????
print join('/', reverse localtime(shift(@t))), "\n";
# I would have thought that the line with the question
# marks would have worked the same as the rest.
# mma
More information about the spug-list
mailing list