Leser: 1
3 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use warnings;
use strict;
my $datum = "07.10.2003";
my $new_datum = substr($datum,6)."-".substr($datum,3,2)."-".substr($datum,0,2);
print $new_datum;
1;
1
2
3
4
5
6
7
#Hin
my $date = "07.10.2003";
$date = join "-",reverse split /\./,$date;
print $date;
#Und zurück
$date = join ".",reverse split/-/,$date;
print $date;
3 Einträge, 1 Seite |