Sweet. I always forget about the little things Perl does for you in the
background.
-Original Message-
From: kim, kiseok
To: [EMAIL PROTECTED]
Sent: 3/21/02 11:00 PM
Subject: Re: Regarding reg. expr
$. is line number of the last file handle :-)
so,
my $counter;
while(){
if
ve the regex compiled only once.
|
| my $counter;
| while(){
|$counter++;
|if($_ =~ /(\b$input\b)/){
| print "Found match on line number $counter\n";
|}
| }
|
|
| -Original Message-
| From: viswanathan sundararajan
| To: Timothy Johnson
| Sent: 3/21/02 9:46 PM
| Su
unter++;
if($_ =~ /(\b$input\b)/){
print "Found match on line number $counter\n";
}
}
-Original Message-
From: viswanathan sundararajan
To: Timothy Johnson
Sent: 3/21/02 9:46 PM
Subject: RE: Regarding reg. expr
Hi,
Thanx for ur reply.This is exactly what i am
loo
Perhaps something like this:
my $counter;
foreach(@rootwords){
$counter++;
$_ .= "\n";
if($_ =~ /(\b$input\b)/){
print "Found match on line number $counter\n";
}
}
At least I think that's what you're looking for.
-Original Message-
From: viswanathan sundararajan
To:
