正規表現を使用してファイル内の複数の単語を検索する方法

Question

少し助けが必要です。私はPerlを初めて使い慣れています。私は、ファイルにappleとAshokの最初の発生を検索し、その行の第三の単語を印刷する必要がある三つの異なるラインで3つのすべての文章は

Apple Banana potato 
Ashok is a boy 
Apple is good 

：以下のデータが含まれていout.txtという名前のファイルに例えばもしすなわち「potato」、「a」である。また、単語が見つからない場合は0も印刷します。これどうやってするの？助けてください:) TIA

Answer 1

use strict; 

my %uniquekey=(); 
open (FH, "out.txt"); 
while (<FH>) 
{ 
    my $line=$_; 
    if($line=~m/([\w]+)\s([\w]+)\s([\w]+).*$/i || $line=~m/([\w]+)\s([\w]+).*$/i) 
    { 
     my $first=$1; 
     my $third=$3; 

     if($third eq ""){$third=0} 
     if(!exists($uniquekey{$first})){ 
      $uniquekey{$first}=$first; 
      print "$first $third\n"; 
     } 
     elsif($third ne "") 
     { 
      print "$third\n"; 
     } 

    } 
} 
close FH;