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

you could be even more liberal by using [^\d]+:

sub format_date {
  return join '.', (split /[^\d]+/, $_[0])[2,1,0];
}
[download]

--
AltBlue.

sub formatDate
{
    return join q{.}, reverse split m{-}, (split m{\s+}, $_[0])[0];
}
[download]

but, for maintainability, you are probably better off breaking it down over two or three lines.

Cheers,

JohnGG

You were very close to an answer. You just needed to capture the time part in fourth set of parenthesis and then toss it by not referring to it.
Assuming that there's always just one space between the date and the time:

$date =~ s/(\d{4})\-(\d{2})\-(\d{2})(\s.+)/$3\.$2\.$1/;
[download]

Yep, it really did'nt occur to me at the time. That's a clean regex solution.
Thanks

Hi nelio.

You really should follow Limbic~Region's tip, by using POSIX' strftime, which is bundled with Perl or DateTime.

I would also to add another alternative (which you should not use in production environment):

sub format_date {
    return join ".", (reverse unpack "A4xA2xA2", shift);
}
[download]

Update: I think it is ok use this if you know what are you doing and you will not perform any date calculation with it.

I'm sure that you don't want to be doing date manipulation as strings ... that'll only lead to pain and suffering... promose

DateTime may help out some ...

Since I'm getting the input as a string and not as a date, and since I really don't want to do any datetime calculations (just present the date in a different way) I figured out that using POSIX would be like trying to kill a fly with a 9 inch cannon.
Also the environment I'm working on is kinda restrictive, so any module that's not installed by default should be considered "exotic".

Nelio

Aah, yes, but if later you find yourself wanting to do more date manipulations, and finding that the fly spray you have won't work against the larger flying animals.

Also, you're going to have to install your script on anyway, worst case, you have a use lib q[./lib]; and a lib directory with your script... best case, you just drop it in the same directory as your script (since . is generally in @INC anyway) Cpan as non root also offers helpful advice

90% of your project is only done if you reuse code.

... having said that, i'm sure you have your reasons

@_=qw; ask f00li5h to appear and remain for a moment of pretend better than a lifetime;;s;;@_[map hex,split'',B204316D8C2A4516DE];;y/05/os/&print;