I would drop a bit of sugar here and there to improve comprehension:
$date = join( '/', map { int } split( '/', $date ));
I find my style uses more and more parentheses these days. Parentheses are necessary to stop a list-aware function from swallowing the rest of the list, e.g.:
my $foo = join( '-', @foo ); print join( ',' => @bar ), "\n";
You don't need the parentheses in the first statement, but they are vital in the second statement, otherwise join will gobble the \n and stuff it in @bar.
On grounds of consistency, given that I use join in both these ways, I have decided to always use parentheses with join. Consistency is a Good Thing.
--In reply to Re4: How do I drop leading zeros from a date like 07/04/2001 to read 7/4/2001??
by grinder
in thread How do I drop leading zeros from a date like 07/04/2001 to read 7/4/2001??
by gtmeyer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |