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