#使われている文字をカウントする #制作 T. Takahashi #letter_count.pl #ファイル名の指定 print "開くファイル名を指定してください:"; $open_file = ; print "保存するファイル名を指定してください:"; $save_file = ; chop($open_file, $save_file); #ファイルのオープン open(F, $open_file) || die "$open_fileをオープンできません:$!\n"; open(F2, ">$save_file") ||die "$save_fileを作成できません:$!\n"; while () { #loci markerと続くスペースを削除 s/<.+>\s+//g; #単語の区切りをピリオドからスペースへ変更 s/\./ /g; #改行を削除 s/\n//g; #小文字に正規化する tr/A-Z/a-z/; @letter = split(//, $_); foreach $letter (@letter) { #カウントを増やす。 $lettercount{$letter}++; } } #連想配列%lettercountの全てのエントリを表示する。 foreach $letter (sort keys(%lettercount)) { printf F2 "%0s\t%d\n", $letter, $lettercount{$letter}; } #ファイルのクローズ close(F); close(F2);