※ 引述《spider1216 (順著感覺走)》之銘言：
: 不好意思我是perl新手
: 我的問題是 我現在有404個單字資料庫
: 然後我要去比對一個文字檔案，其內容由上面資料庫中的單字組成
: 我想去統計我的文字檔案中 有哪些資料庫單字且出現幾次
: 請高手可以教我該怎麼做
如果檔案沒有非常大的話,
一一把字典裡的字拿去比對應該是最好理解的方法~
my $data;
{ # 這邊把檔案讀到 $data 裡面
open my $f, "filename.txt";
local $/;
$data = <$f>;
close $f;
}
for(qw(abc cba xxx)) { # 每一個字典字拿去比一次
my $count = my @a = $data =~ /\Q$_/g; # 這樣會算出次數
print "$_: $count\n";
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.242.246.249
※ 編輯: CindyLinz 來自: 210.242.246.249 (09/10 13:14)