Charles K. Clarkson <mailto:[EMAIL PROTECTED]> wrote:
Oopsie!
: my @rows;
: while ( $parser->get_tag( 'tr' ) ) {
:
: # check error number
: next unless $parser->get_trimmed_text( '/td' ) eq '';
next unless $parser->get_trimmed_text( '/td' ) eq '4321191';
:
: # get next cell
: $parser->get_tag( 'td' );
:
: # check userid
: next unless $parser->get_trimmed_text( '/td' ) eq 'YHIRA';
:
: my @cells;
: while ( $parser->get_tag( 'td' ) ) {
: my $text = $parser->get_trimmed_text( '/td' );
: push @cells, $text if $text and $text =~ /4321191/;
: }
:
: push @rows, [EMAIL PROTECTED] if @cells;
: }
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
