Perlについての質問箱 29箱目

Perlについての質問箱 ..

151:デフォルトの名無しさん
07/01/03 21:22:42
use DateTime;
my $y = 1900;

if (DateTime->new(year => $y)->is_leap_year) {
　 print "$y is a leap year.\n";
} else {
　 print "$y is a common year.\n";
}

こうですか？　よくわかりません＞＜

次ページ

続きを表示

1を表示