Wie kann ich in Perl auf ein gültiges Datumsformat überprüfen?

Question

Ich erhalte ein Datumsfeld aus der Datenbank in einer meiner Variablen. Derzeit verwende ich den folgenden Code, um zu überprüfen, ob das Datum im Format "yyyy-mm-dd" vorliegt

if ( $dat =~ /\d{3,}-\d\d-\d\d/ )

Meine Frage lautet, gibt es einen besseren Weg, um dies zu erreichen.

Vielen Dank

Answer 1

Die OWASP Validation Regex Repository Version von Datumsangaben im US-Format mit Unterstützung für Schaltjahre:

^(?:(?:(?:0?[13578]|1[02])(/|-|.)31)\1|(?:(?:0?[1,3-9]|1[0-2])(/|-|.)(?:29|30)\2))(?:(?:1[6-9]|[2-9]\d)?\d{2})$|^(?:0?2(/|-|.)29\3(?:(?:(?:1[6-9]|[2-9]\d)?(?:0[48]|[2468][048]|[13579][26])|(?:(?:16|[2468][048]|[3579][26])00))))$|^(?:(?:0?[1-9])|(?:1[0-2]))(/|-|.)(?:0?[1-9]|1\d|2[0-8])\4(?:(?:1[6-9]|[2-9]\d)?\d{2})$

Die Regular Expression Library enthält eine einfachere Version entlang der anderen Vorschläge, die auf Ihr Problem übersetzt wurde:

^\d{4}-\d{1,2}-\d{1,2}$

Answer 2

Wie von anderen angemerkt, wenn es sich hierbei um ein Datumsfeld aus einer Datenbank handelt, sollte es in einem klar definierten Format kommen, sodass Sie ein einfaches Regex verwenden können, wie das von toolkit.

Aber das hat den Nachteil, dass es ungültige Daten akzeptiert, wie z.B. 2009-02-30. Wenn Sie jedoch Daten verarbeiten, die es erfolgreich in ein datumsbasiertes Feld in einer DB geschafft haben, sollten Sie auf der sicheren Seite sein.

Ein robusterer Ansatz wäre die Verwendung eines der vielen Datum/Uhrzeit-Module von CPAN. Wahrscheinlich wäre Date::Manip eine gute Wahl, insbesondere die Funktion ParseDate().

http://metacpan.org/pod/Date::Manip

Answer 3

Wie wäre es

/\d{2}\d{2}?-(0[1-9]|1[0-2])-(0[1-9]|[1-2][0-9]|3[0-1])/

Answer 4

\\d könnte Ziffernzeichen aus anderen Sprachen entsprechen. Und ist YYY wirklich ein gültiges Jahr? Wenn es vier Ziffern sein muss, ein Bindestrich, zwei Ziffern, ein Bindestrich, zwei Ziffern, würde ich /^[0-9]{4}-[0-9]{2}-[0-9]{2}$/ oder /^[12][0-9]{3}-[0-9]{2}-[0-9]{2}$/ bevorzugen. Achten Sie auf Leerzeichen um den String, den Sie vergleichen.

Natürlich überprüft dies nicht die Sinnhaftigkeit der Zeichen, die dort stehen, außer dem ersten Zeichen im zweiten Beispiel. Wenn dies erforderlich ist, ist es ratsam, es einfach an ein Datumsparsing-Modul zu übergeben und dann die Ausgabe auf logische Ergebnisse zu überprüfen.

Answer 5

Die beste und leichte Lösung ist die Verwendung der Date::Calc-Unterfunktion check_date, hier ist ein Beispiel:

use strict;
use warnings
use Date::Calc qw[check_date];

## String im Format JJJJ-MM-TT, Sie können jedes Format haben,
## wie Sie möchten, einfach parsen Sie es
my @dt_dob = unpack("A4xA2xA2",$str_dob_date);

unless(check_date(@dt_dob)) {
    warn "Oops! ungültiges Datum!";
}

Ich hoffe, das war hilfreich :-)