in reply to Custom date string formatting

sub format_date {
  return join '.', (split /[-\s:]/, $_[0])[2,1,0];
}

[download]
--

<http://dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club." -- Chip Salzenberg

Replies are listed 'Best First'.
Re^2: Custom date string formatting
by AltBlue (Chaplain) on Feb 01, 2007 at 12:33 UTC
    you could be even more liberal by using [^\d]+: 
    sub format_date {
  return join '.', (split /[^\d]+/, $_[0])[2,1,0];
}

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom