Re: Print only the matched line when process line by line from a file

Since the OP wants both positive and negative answers for list membership, I would go with a hash:

    my %looking_for = (Grapes=>0,  strawberry=>0);
    
    #Inside file read loop:
       for my $fruit (keys %looking_for){
          next unless m/$fruit/i;
          $looking_for{$fruit}++;
       }
    
    #-- At end of program..
    for my $fruit (sort keys %looking_for){
       print $fruit,
              ($looking_for{$fruit} ? "" : " not in list"),
             "\n";
    }
[download]

Python is a racist language what with it's dependence on white space!

Comment on Re: Print only the matched line when process line by line from a file Download Code