Perlについての質問箱 29箱目at TECHPerlについての質問箱 29箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト150:デフォルトの名無しさん 07/01/03 21:13:58 愉快なスレだな 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"; } こうですか？ よくわかりません＞＜ 152:デフォルトの名無しさん 07/01/03 21:25:31 ｱｯｰ! 153:デフォルトの名無しさん 07/01/03 21:27:16 >>151 反則です 154:デフォルトの名無しさん 07/01/03 21:31:37 しかし >>142 にはモジュールを使ってはいけないなんて一言も（ｒｙ まあ冗談だろうけど、実際に閏年の判定を書くとしたら >>151 なんだよなぁ・・・。 155:デフォルトの名無しさん 07/01/03 21:41:17 >>149 まあ、今後 90年以上は >>148 が正しいわけだが。 156:デフォルトの名無しさん 07/01/03 21:41:24 でもデフォルトで入ってたっけ？ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch