※ 引述《spider1216 (順著感覺走)》之銘言： : 不好意思我是perl新手 : 我的問題是 我現在有404個單字資料庫 : 然後我要去比對一個文字檔案，其內容由上面資料庫中的單字組成 : 我想去統計我的文字檔案中 有哪些資料庫單字且出現幾次 : 請高手可以教我該怎麼做 ==== FILE: dict ==== hello you how do are ==== FILE: sentence ==== How do you do ? How are you ? What is your name ? ==== FILE: count.pl ==== #!/usr/bin/perl use strict; use warnings; my %dict = (); my %unseen = (); #### 讀入字典檔 open( DICT, "dict" ); while (<DICT>) { chomp; $dict{ lc($_) } = 0; } close(DICT); #### 比對並計算出現次數 open( FH, "sentence" ); while (<FH>) { chomp; my @words = split( /[^a-zA-Z]+/, $_ ); foreach my $w (@words) { if ( exists( $dict{ lc($w) } ) ) { $dict{ lc($w) }++; } else { $unseen{ lc($w) } = 0; } } } close(FH); #### 輸出統計結果 print "$_ => $dict{$_}\n" foreach ( sort keys %dict ); print "UNSEEN: ", join( ", ", sort keys %unseen ), "\n"; # perl count.pl are => 1 do => 2 hello => 0 how => 2 you => 2 UNSEEN: is, name, what, your --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.114.64.130