when i return back the dumper like this. this is the output
$VAR1 = [ [ undef, undef, undef, undef, ' ' ], [ 'info', ' john ', ' 100 - 2000 ', ' kent ', undef ], [ 'info', ' fmtr ', ' 409 - 3010 ', ' stone ', undef ], [ undef, undef, undef, undef, ' ' ], [ undef, undef, undef, undef, ' ' ] ];
and more useless down ], [ undef, undef, undef, undef, ' ' ], [ undef, undef, undef, undef, ' ' ],
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use HTML::TableExtract; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET => ''); my $res = $ua->request($req); my $html = $res->decoded_content; my $table = HTML::TableExtract->new(); $table->parse($html); my $row = $table->rows; print "Content-type: text/text\n\n"; my $foo = 0; foreach (@$row){ s/\A\s+//; s/\s+\z//; } print Dumper($row);
In reply to Re^4: splitting results
by bigup401
in thread splitting results
by bigup401
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |