topic Re: Perl Regular Expressions in Operating System - Linux

Perl Regular Expressions

Junior C. — Wed, 10 Jan 2007 14:44:19 GMT

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.

Re: Perl Regular Expressions

Stuart Browne — Wed, 10 Jan 2007 14:55:39 GMT

Look at the ^ and $ anchor's.

Re: Perl Regular Expressions

Alexander Chuzhoy — Wed, 10 Jan 2007 15:53:17 GMT

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

Re: Perl Regular Expressions

Alexander Chuzhoy — Wed, 10 Jan 2007 16:02:20 GMT

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...

Re: Perl Regular Expressions

Junior C. — Wed, 10 Jan 2007 16:36:05 GMT

Thread Close.

Stuart / Alexander,

I appreciate your reply.
Thanks.

Alexander, your following reply work.

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

Thanks again.

JC.