Dein Schaltjahr?

[n.d. parker]

Mahlzeit,

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

not $year % 4
  and ( $year % 100 or not $year % 400 );
}
(gibt obendrein wirkliche boolean-werte (im Perl-Sinne) zurueck

und vieeel huebscher ist natuerlich die folgende Version ;-))

#!/usr/bin/perl -w
use strict;

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

not (
    $year % 4   or not
    $year % 100 and
    $year % 400
  );
}

$="\n";
print "$_ => ", is_leapyear($_) for (qw(
  1900
  1903
  1904
  2000
));

bye

--
n.d.p.