作者CindyLinz (Cindy Wang)
看板Perl
標題Re: [問題] 大量字串資料個數出現次數統計
時間Tue Aug 2 12:39:35 2011
※ 引述《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)