Re: [問題] 大量字串資料個數出現次數統計

看板Perl作者 (Cindy Wang)時間14年前 (2011/08/02 12:39), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/3 (看更多)
※ 引述《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)
文章代碼(AID): #1EDt-9KE (Perl)
文章代碼(AID): #1EDt-9KE (Perl)