Re4: How do I drop leading zeros from a date like 07/04/2001 to read 7/4/2001??

Clearer? Depends on the audience.

I would drop a bit of sugar here and there to improve comprehension:

  $date = join( '/', map { int } split( '/', $date ));
[download]

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";
[download]

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.

`g r i n d e r`

Comment on Re4: How do I drop leading zeros from a date like 07/04/2001 to read 7/4/2001?? Select or Download Code

Replies are listed 'Best First'.
Re: Re4: How do I drop leading zeros from a date like 07/04/2001 to read 7/4/2001?? by IlyaM (Parson) on Nov 27, 2001 at 19:31 UTC
There exists syntax which makes additional parentheses unnecessary. `my $foo = join( '-', @foo ); print join +( ',' => @bar ), "\n"; ^^^^^` [download]	[reply] [d/l]