dennis, thanks for the help ! i can't remember
if i thanked you before.
- Original Message -
From:
Dennis Yelle
To: Jimmy S.
Lim
Sent: Wednesday, April 26, 2000 11:54
PM
Subject: Re: redundant extraction.
You write:open(ABC, "TEST.html") or
You wrote:
> open(ABC, "TEST.html") or die "Can't open TEST: $!\n";
> while ($line = )
> {
> if ($line =~ /hello\s\d\d\d/ )
> {$hello=$&}
> if ($line =~ /E\d\d\d-\d\d\d\d/ or $line =~ /E\d\d\d\d\d\d\d/)
> {$pager=$&}
> print "$number : $hello\n";
> };
First, this won't
hi!
will be very grateful if anyone can spare some time
to help a newbie.
i wrote:
open(ABC, "TEST.html") or die "Can't open TEST:
$!\n";while ($line =
){ if ($line =~
/hello\s\d\d\d/
){$hello=$&} if ($line
=~ /E\d\d\d-\d\d\d\d/ or $line =~
/E\d\d\
