On Feb 27, Daniel Falkenberg said: > $inputSite = "<URL>"; > $tree = HTML::TreeBuilder->new; > $address = "http://"; . $inputSite; > $request = HTTP::Request->new('GET', $address); > $response = $ua->request($request); > my $found = 0; > > $tree->parse($response->content); > $html_string = $tree->as_HTML; > $te = new HTML::TableExtract( headers => [qw(one two three)] ); > $te->parse($html_string); > foreach $ts ($te->table_states) { > foreach $row ($ts->rows) { > $mRow = "@$row";
You're ASSIGNING to $mRow here... > } > } > print $mRow; .... so this will only be the last row found. Maybe you wanted to do $mRow .= "@$row"; but I can't be sure. -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ ** Look for "Regular Expressions in Perl" published by Manning, in 2002 ** <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. [ I'm looking for programming work. If you like my work, let me know. ] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
