Как искать несколько слов в файле с помощью регулярных выражений

Question

Мне нужна небольшая помощь, я новичок в Perl. Если, например, в файле с именем out.txt, который содержит следующие данные:

Apple Banana potato 
Ashok is a boy 
Apple is good 

все три предложения в трех разных строках мне нужно искать первое вхождение apple и Ashok в файл и распечатать 3-е слово в этой строке т.е. «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;