Zeichenkette auseinander nehmen?

[Juha]

Hallo Zusammen

In meinem Perl-Programm habe ich zwei Datum (z.B. 2002-02-27 und 2002-01-11)..
Nun möchte ich die beiden Monate vergleichen, wie ist das möglich, muss ich für das die beiden Datum auseinandernehmen?

Wie kann ich dieses kleine Problem lösen?

Danke
Grüsse Juha

[Christian Kruse]

Hoi,

In meinem Perl-Programm habe ich zwei Datum (z.B. 2002-02-27 und 2002-01-11)..
Nun möchte ich die beiden Monate vergleichen, wie ist das möglich, muss ich für das die beiden Datum auseinandernehmen?

Wie kann ich dieses kleine Problem lösen?

my ($year1,$month1,$day1) = $date1 =~ /^(\d{4})-(\d{2})-(\d{2})$/;
my ($year2,$month2,$day2) = $date2 =~ /^(\d{4})-(\d{2})-(\d{2})$/;

print "Die Monate sind gleich!" if $month1 == $month2;

Naehere Infos zu den Regular Expressions findest du unter
'perldoc perlre' (http://www.perldoc.com/).

Gruesse,
 CK