#!/usr/local/bin/perl #========================変数入力===================================== #↓解析するテキストファイル。 #　自由に変更できます。 $text_name = "data.txt"; @kaiseki = ( "ア","イ","ウ","エ","オ","カ","キ","ク","ケ","コ", "サ","シ","ス","セ","タ","チ","ツ","テ","ト", "ナ","ニ","ヌ","ネ","ノ","ハ","ヒ","フ","ヘ","ホ", "マ","ミ","ム","メ","モ","ヤ","ユ","ヨ", "ラ","リ","ル","レ","ロ","ワ","ヲ","ン", "ガ","ギ","グ","ゲ","ゴ","ザ","ジ","ズ","ゾ", "ダ","ヂ","ヅ","デ","ド","バ","ビ","ブ","ベ","ボ", "パ","ピ","プ","ペ","ャ","ュ","ョ","ッ"); #========================読み込み===================================== open (FH,"<$text_name"); @textc=; close(FH); foreach (@textc) { $text .= $_; } $_ = $text; print "Content-type: text/html\n\n"; print <<_HTML_; _HTML_ foreach(@kaiseki){ $_ = "\.$_"; $dd = $text; $dd =~ s/$_/7/g; $dd =~ s/[^7]//g; $btext = length($dd); print "$_ $btext　"; } print <<_HTML_; _HTML_