- 755 名前：helpです [2008/01/23(水) 17:26:00 ID: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」という単語のみにマッチさせる
