use strict; use warnings; my $year = 2120; print "$year is "; if (($year % 400) == 0) { print "uruu."; } elsif (($year % 100) == 0) { print "not uruu."; } elsif (($year % 4) == 0) { print "uruu."; } print "\n"; c:/dropbox/code $ perl uruuy…

use strict; use warnings; $n = 98; print "$n wo 3 de watta amari wa "; $amari = $n % 3; if ($amari == 0) { print "zero."; } else { if ($amari == 1) { print "one."; } else { print "two."; } } print " isn't it?\n"; 実行するとエラーがたくさん…

120310 考えたこと いよいよ来週は寮の同期の壮行会。久しぶりに結構たくさん集まるので楽しみ。 120310 読んだもの すぐわかる Perl すぐわかるPerl (Software Technology) 120310 夕食 ロースかつ定食 会社近くのとんかつ屋にてサクッと。 コーヒー 三日連…