Der Meister hat gesprochen...

[n.d. parker]

Moin Vedat,

... und ich wage zu widersprechen.

*lol*

eleganter (perliger) waere imho:

[...]

Sieht wirklich eleganter aus, wie soll ich armer Schlucker denn da noch durchblicken, ohne 200 Seiten Perldocs durchgelesen zu haben?

so schlimm finde ich das eigentlich gar nicht ;) [1]

(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*

hmm, 'is_*'-Funktionen implizieren bei mir immer boolean-Werte.

Es kommt doch darauf an, was man mit dem Ergebnis machen möchte.
Ich lasse mir halt 0 und 1 zurückgeben, [...]

genaugenommen wuerde ich dir jetzt folgende Variante vorschlagen (*g*):

sub is_leapyear ($) {
  my $year = shift;

not (
    $year % 4   or not
    $year % 100 and
    $year % 400
  );
}
sub sj ($) {
  is_leapyear(shift) ? 1 : 0;
}

Viele Gruesse,

n.d.p.

[1] siehe auch http://www.atomic-eggs.com/selfspezial/scbboard/841.html ...

P.S.: Was ist eigentlich ein "leapy-ear"? ;-)