Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: line by line match on an array of strings

by Punitha (Priest)
on Jan 09, 2008 at 10:13 UTC ( #661300=note: print w/replies, xml ) Need Help??

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

Hi barryscott

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


Replies are listed 'Best First'.
Re^2: line by line match on an array of strings
by ww (Archbishop) on Jan 09, 2008 at 14:13 UTC

    May not be the OP's intent???

    do me a

    Update (after what I judge to have been too many minutes of puzzling over this)

    Still not clear why "a" matched (it'll come to me yet), but the obvious cure (IMO) is to anchor the match, thus

    if(grep/^$line$/, @typedefs){

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://661300]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2020-08-12 16:28 GMT
Find Nodes?
    Voting Booth?
    Which rocket would you take to Mars?

    Results (66 votes). Check out past polls.