On Monday, May 6, 2002, at 10:04 , <[EMAIL PROTECTED]>
wrote:
> ACTIVE users:
that's rather the key - its a reasonably clear line
or build up the regular expression from the next line
either way
cf: perldoc perlre
I presume you can do something in windows that is the equivolent
of a pipe hence all you really need is the perl filter that
fixates on the regular expression.
so we know that until we hit the regEx we can toss the junk -
hence we want to use
next unless /$findPat/
The problem is that none of the things we want to read match
the regular expression - so lets have the old foundFlag trick
my $found = 0
while(<IN>) {
if ( $found == 0 ) { # bite me PerlFascists - this is Demo
next unless /$findPat/;
$found++
} else {
#we found it
# we need a new simple replacement for awk
/^\s*(\w+)\s*\w+/; # a bit over but we grab the first word
# if the line has at
least two words
my $player = $1 ; # save the match if it occurred
if($player) {
push(@userName , $player);
}else{
$found = 0; # Not in the Found Place
} # since the match fails
}
ciao
drieux
---
If you get really stuck, You may also peek at:
http://www.wetware.com/drieux/CS/lang/Perl/Beginners/funkyParsing.txt
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
