Datestamp zerhacken mit einer RegEx (Perl/CGI)

[thread]314[/thread]

Datestamp zerhacken mit einer RegEx

cbxk1xg

2004-07-04 03:10

User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]

Hallo Freunde der Sonne,

ich würde gerne einen Datestamp so zerhacken, dass man ihn als normales Datum lesen kann.

Der Datestamp sieht so aus (englisches Format, Monat vor Tag):

Code: (dl )

1
2

200401022235
YYYYMMDDHHMM

Das ist natürlich nicht so wirklich leserlich. Ich würde daraus gerne das hier machen: 01.02.2004 22:35

Soweit ich weis passt /d auf eine Zahl. Aber wie bringe ich der RegEx bei, dass die Jahrezahl 4 Stellen und die anderen Zahlen 2 Stellen haben???

Ich hatte hiermit probiert:

Code (perl): (dl )

$datestamp =~ s-d4/d2/d2/d2/d2-$2.$3.$1.$4:$5-g;

Was aber großer Quark zu sein scheint.

format_c

2004-07-04 04:55

User since
2003-08-04
1706 Artikel
HausmeisterIn

Code: (dl )

C:\Dokumente und Einstellungen\format_c>perl
my $datestamp = "200401022235";
my @date = $datestamp =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})$/;

printf "%02d.%02d.%04d %02d:%02d",@date[2,1,0],@date[3,4];

02.01.2004 22:35
C:\Dokumente und Einstellungen\format_c>

Gruß Alex

Effizente Linuxshell

cbxk1xg

2004-07-04 19:34

User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]

Danke!

Ich hab's für meine Bedürfnisse noch ein wenig angepasst. Das mit den Backreferences hatte ich auch probiert, aber das mit d{2} kannte ich noch nicht.

format_c

2004-07-04 21:17

User since
2003-08-04
1706 Artikel
HausmeisterIn

Ich habe keine Backlreferenzes in meiner RegEx benutzt.

Wenn du mehr wissen möchtest über Perl's regex empfehle ich dir:
perldoc perlintro
perldoc perlre
perldoc perlretut

Gruß Alex

Effizente Linuxshell

cbxk1xg

2004-07-04 21:58

User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]

Sorry, ich habe mal wieder ohne Sinn und Verstand getippt. Das das keine Backreferences sind ist klar. Ich meinte, dass ich etwas mit Backreferences probiert hatte und daran gescheitert bin.

Ich habe den Code noch mal optimiert, da ich nur den String modifizieren wollte:

Code: (dl )

$datestamp =~ s-(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})-$2.$3.$1 | $4:$5-g;

Trotzdem danke für den Verweis auf perldoc perlre.

View all threads created 2004-07-04 03:10.