Re: line by line match on an array of strings

in reply to line by line match on an array of strings

This may also help you in addition to j1n3l0

use strict;

my @typedefs = qw(do re me fa so la ti do);
while (my $line = <DATA>) {    
    chomp($line);
    if(grep/$line/, @typedefs){
      print "$line\n";
      ## perform various actions here if line match
    }
}
__DATA__
do
me
a
favour
will
you
[download]

Punitha

In Section Seekers of Perl Wisdom