in reply to Re^3: Multiple strings in a file
in thread Multiple strings in a file

I did, the problem that i am having testing locally is that it doesn't seem to recognize that there are more than 2 lines. So if the word i want is within the first 2 lines, it will print it, but if i want to print a word from the 3rd line, it won't

Replies are listed 'Best First'.
Re^5: Multiple strings in a file
by vinoth.ree (Monsignor) on Feb 10, 2015 at 18:34 UTC

    Hi,

    Let see this code,

    use strict;
use warnings;

my $firstString='Trap';
my $secondString='hair';

open my $text, "<test.txt" or die "Dead";
while(<$text>){
        print if (m/($firstString|$secondString)/i)
}

    [download]
    file: 
    Transformers robots in disguise
I whip my hair back and forth
I will catch a dog with a trap

    It prints the output as,

    I whip my hair back and forth
I will catch a dog with a trap

    But as you want to match the 'Trap' first which is in the third line, should be printed first and 'Hair' should be printed next. Is that you wanted?

    All is well
[reply]
[d/l]
      Yes, that is exactly what i wanted!
[reply]

In Section Seekers of Perl Wisdom