problem in finding matching string

[pnsreee]

Hi All,

I have the following strings seperated by space . I have to grep for Naveen having two values(Sha or See) in the string.

1)Naveen Sha reswww
2)Naveen See rex-www
3)Naveen See rex.x
4)Naveen xxxx cccccc
5)ABBCD See reggg
I have the following regexp.
$_ =~ /^Naveen[\s](Sha|See)[\s][.....]+$/

I want the first three strings above mentioned as output,

when I replace [.....] in regexp with [\d|\w], I am getting the first string as my output. but i need first three strings as an output.

Please help me regarding this.

Regards
Pnsreee

[c2eyes]

As per my understanding you wana to grep first three string if it has naveen in it right.

Here is the solution :

$_=~/^(Naveen)\s+(Sh a|She)\s+(\w+). +?/;

~Sanjay

[numberwhun]

First, I would REALLY suggest that you go down to your local Barnes & Nobles store and pick up a copy of "Mastering Regular Expressions". That will greatly help you in better understanding regex's. The regex you supplied above is very messy and has a lot of mistakes. One right off the bat that stood out to me was your use of [ and ]. The square brackets typically dictate that the regex should match one of the characters held between them.

Now, taking your requirements, I came up with the following code that does what you wanted to do:

use strict;
use warnings;
 
my $file = 'naveen.txt';
open(FILE, $file) or die "Can't open $file: $!";
 
while (<FILE>) {
    chomp;
    my $line = $_;
 
    if ($line =~ m/^Naveen\s+(?:Sha|See)\s+\w+[-.]*\w/) {
        print "$line\n";
    }
}
 
close(FILE);
 

I suggest you get the book and examine the regex above and learn to write cleaner, more exact regex's or you will have problems down the line in Perl. Just a suggestion.

Regards,

Jeff