nicht angemeldet
... und ich wage zu widersprechen.
Hi nd,
eleganter (perliger) waere imho:
sub is_leapyear ($) {
my $year = shift;
not $year % 4
and ( $year % 100 or not $year % 400 );
}
Sieht wirklich eleganter aus, wie soll ich armer Schlucker denn da noch durchblicken, ohne 200 Seiten Perldocs durchgelesen zu haben?
(gibt obendrein wirkliche boolean-werte (im Perl-Sinne) zurueck, '0' ist nicht immer == 'false').
Nun ja, in meinem Skript sind keine Booleans erwünscht *g*
Es kommt doch darauf an, was man mit dem Ergebnis machen möchte. Ich lasse mir halt 0 und 1 zurückgeben, um mit diesen Werten weiterrechnen zu können und um auf eine If - Abfrage verzichten zu können.
Ist halt mein Stil, aber der ändert sich in letzter Zeit immer mehr...
Grüße, Vedat