くだすれPerl（超初心者用）

くだすれPerl（超初心 ..

755:helpです
08/01/23 17:26:00 AM6Aqa52
すいません。下記のようにwhile→foreach→whileと入れ子構造で
繰り返し単語リストにある用語を文書から検索したいのですが、
上手く動きません。Helpお願いします。
$word がwhile (<F>) 以下の$wordに上手く渡せません。

open(F4, $dic_file) || die "$dic_fileをオープンできません:$!\n";

while (<F4>){
@words = split(/\n/, $_);
foreach $word (@words){

while (<F>) {

print "$_";
#「$word」という単語のみにマッチさせる

次ページ

続きを表示

1を表示