Re: [PERL] mere RegEx YYYYMMDD

[Kalle Dalheimer <sslug@sslug>]

Hans Schou wrote:
> 
> YYYYMMDD - 19990628
> (19|20)[90][0-9](0[1-9]|1[0-2])(0[1-9]|[12][0-9]|3[01])
> YY     YY       MM             DD
> 
> Ovenstående validere næsten for de korrekte datoer, men
> jeg har ikke dem med hvor der kun er 30 dage i en måned.
> 
> Skulle der være en der allerede har den stump kode liggende?

Försök:

use Date::Manip qw( ParseDate, UnixDate );
$date = ParseDate( $string );
if( !$date ) {
	# Datum är fel
} else {
	( $year, $month, $day ) = UnixDate( $date, "%Y", "%m", "%d" );
}

Själva $date är i formatet YYYYMMDDHH:MM:SS.

Kalle

-- 
Kalle Dalheimer     Contract programming for Unix
sslug@sslug  Technical writing
sslug@sslug       Technical editing
sslug@sslug    KDE Developer (MFCH)
sslug@sslug  It's open, it's source, it runs - must be KDE!
	
Lukashenko and the Pope - the last remaining dictators in Europe.