Perl Regular Expressions

[Junior C.]

Following is snippet of my script.

my @SalesDst = ('www1001',
'qqq001',
);

foreach my $dst (@SalesDst)
{
open(IN, $DST_File) or die "Could not open $DST_File: $!\n";
my @logarray=;
my $lookfor=("$dst");
my @match=grep{/$lookfor/}@logarray;

if (@match)
{
print @match;
}

OUTPUT:
21744329 Jan 10 0:16 www1001
2379202 Jan 9 22:50 qqq001

5810 Feb 17 2006 xyqqq001
I wan't exclude
5810 Feb 17 2006 xyqqq001
from out put.


Appreciate all help.

JC.

[Stuart Browne]

Look at the ^ and $ anchor's.

[Alexander Chuzhoy · Accepted solution]

There are also word anchors in perl. To make it work \bstring\b
Basically it will include only the string 'string'.

[Alexander Chuzhoy]

In particular the line:
my @match=grep{/$lookfor/}@logarray;
should look like this:
my @match=grep{/\b$lookfor\b/}@logarray;


And also please assign points...

[Junior C.]

Thread Close.

Stuart / Alexander,

I appreciate your reply.
Thanks.


Alexander, your following reply work.

my @match=grep{/\b$lookfor\b/}@logarray;

Thanks again.

JC.