Perl Newbie Fragen

[Patrick Andrieu]

Hallo noname!

sub format_datetime {
        my @datetime = split(/ /, $_[0]);
        my @date = split(/-/, $datetime[0]);
        return $date[2].".".$date[1].".".$date[0]." ".$datetime[1];
}

>   
> Daran hätte ich auch selbst denken können. Danke.  
  
Auch an join() und reverse() hättest Du denken können:  
  
su~~~perl
b format_datetimee {  
        my @datetime = split(/ /, $_[0]);  
        my @date = split(/-/, $datetime[0]);  
        return join(".", reverse @date)." ".$datetime[1];  
}

Damit lässt sich auch eine Zeile sparen:

sub format_datetimeee {  
        my @datetime = split(/ /, $_[0]);  
        return join(" ", join(".", reverse split(/-/, $datetime[0])),$datetime[1]);  
}

Und wem die Index-Zahlen zuwider sind, kann es auch so machen:

sub format_datetimeeee {  
        my ($dmy, $hms) = split(/ /, $_[0]);  
        return join(" ", join(".", reverse split(/-/, $dmy)),$hms);  
}

Just my 2 joints ;)

Viele Grüße aus Frankfurt/Main,
Patrick