かなり適当 #!/usr/bin/perlwhile(){ chomp $_; my ($host,$ip)=split(/\(/,$_,2); my @tmp=split(/\./,$host); my $domcount=@tmp; $domcount--; my $domdata; if ($tmp[$domcount] eq "jp" && ($tmp[$domcount-1] eq "or" || $tmp[$domcount-1] eq "co" ||…

http://headlines.yahoo.co.jp/hl?a=20040521-00000021-san-soci http://www.tokyo-np.co.jp/04_k-shiken/cba/cba-ko/ko7.shtml グラフを用いて説くとか。でも国語の問題。おじいさん１（お急ぎ） おじいさん２（衰） おじいさん３（元気はつらつ） おじいさ…