Datumsvalidierung - #117509 (Allgemeines zu Perl)

renee

2009-12-31 15:25

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn Du es auch auf gültige Daten überprüfen willst, dann empfehle ich die Verwendung von Regexp::Common:

Code: (dl )

use Regexp::Common qw(time);

my $date = '2008-12-31';
print "yes" if $date =~ $RE{time}{tf}{-pat=>'yyyy/mm/dd'};

Wenn es Dir nur darum geht zu erkennen, ob erst 4 Zahlen, dann "-", dann 2 Zahlen, usw. dann kannst Du es so machen:

Code: (dl )

1
2

my $date = '2008-12-31';
print "yes" if $date =~ /\d{4}-\d\d-\d\d/;