"2000" statt "19100" - die $year unter PERL anpassen

[Peter Squentz]

$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

danach ist die $year bekannt und hat zur Zeit den Wert "100"

wenn Ihr danach folgendes einbaut:

if ($year > 99) {$year = substr($year,1,2);}

[...]

Warum so kompliziert und nicht wie folgt?

$year += 1900;

cu,
Peter