Bill -OSX- Jones wrote: > > for $year (1900 .. 2100) { > > $data = `cal 12 $year`; > @month = split(/\n/, $data); > > print "\nChristmas found on a > Sunday in $year" if ($month[6] =~ /^25\s.*$/); > } > > Is there a better Perl Golf way?
why the verbosity? `cal 12 $_`=~/^25/m&&print"Christmas found on a Sunday in $_\n"for 1900..2100 -- Rick Klement