Rookie: HTML::TableExtract test will not print

sdfgsd · Oct 8, 2003

Hello,

This script will not generate any output within the foreach loop. No errors
or anything. $te tests ok with a hash. I can't figure it out.

My sample .html file consists of 1 table (depth = 0, count = 0). Using perl
5.8/Suse 8.0

Thanks in Advance
===========================
#!/usr/bin/perl

use warnings;
use strict;
use HTML::TableExtract;

my $target = "op2.html";
my $te;
my $ts;
my $row;

if (-e $target) { print "File Exists\n"; }

$te = new HTML::TableExtract( depth => 0, count => 0 );
$te->parse($target);

print "We are here\n";

foreach $ts ($te->table_states) {
print "Table found at ", join(',', $ts->coords), ":\n";
foreach $row ($ts->rows) {
print " ", join(',', @$row), "\n";
}
}
============================

Tad McClellan · Oct 9, 2003

sdfgsd said:
This script will not generate any output within the foreach loop.

Your code looks OK to me. Must be the data (that we weren't given).

sdfgsd · Oct 9, 2003

Your code looks OK to me. Must be the data (that we weren't given).

Thanks for the follow-up. I'm hoping I can get this to work because this
looks like a phenomonal tool...as opposed to having to write a new state
machine/parser

The .html file looks like this:
=============================
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title>Untitled</title>
</head>

<body>
<table>
<tr>
<td>1</td>
<td>2</td>
<td>3</td>
</tr>
<tr>
<td>4</td>
<td>5</td>
<td>6</td>
</tr>
<tr>
<td>7</td>
<td>8</td>
<td>9</td>
</tr>
</table>

</body>
</html>

Bob Walton · Oct 9, 2003

sdfgsd said:
Hello,

This script will not generate any output within the foreach loop. No errors
or anything. $te tests ok with a hash. I can't figure it out.

My sample .html file consists of 1 table (depth = 0, count = 0). Using perl
5.8/Suse 8.0

Thanks in Advance
===========================
#!/usr/bin/perl

use warnings;
use strict;
use HTML::TableExtract;

my $target = "op2.html";

----------------^^^^^^^^

The above string is the "HTML" you are supplying to the parse() method
below. The parse method expects an HTML string, not a file name, so you
need to read the file. Something like:

my $target = "op2.html";
open IN,$target or die "Oops, can't open $target for read, $!";
{local $/;$target=<IN>} #slurp it
close IN;

my $te;
my $ts;
my $row;

if (-e $target) { print "File Exists\n"; }

$te = new HTML::TableExtract( depth => 0, count => 0 );
$te->parse($target);

print "We are here\n";

foreach $ts ($te->table_states) {
print "Table found at ", join(',', $ts->coords), ":\n";
foreach $row ($ts->rows) {
print " ", join(',', @$row), "\n";
}
}

....

HTH.

sdfgsd · Oct 9, 2003

(snipped)

----------------^^^^^^^^

The above string is the "HTML" you are supplying to the parse() method
below. The parse method expects an HTML string, not a file name, so you
need to read the file. Something like:

my $target = "op2.html";
open IN,$target or die "Oops, can't open $target for read, $!";
{local $/;$target=<IN>} #slurp it
close IN;

Thanks! This worked. If it's not too much trouble, could you give me a
sentence or two on this construct:
==> {local $/;$target=<IN>}
I know this'll send me scrambling to the books.

Sam Holden · Oct 9, 2003

Thanks! This worked. If it's not too much trouble, could you give me a
sentence or two on this construct:
==> {local $/;$target=<IN>}
I know this'll send me scrambling to the books.

Slurps the entire file into $target.

See "perldoc perlvar" and the section on $/ for information on why.

The block and local are used to limit the effect of the
change to $/ (it is set to undef by the local) to just the
read into $target.

sdfgsd · Oct 9, 2003

Sam Holden said:
Slurps the entire file into $target.

See "perldoc perlvar" and the section on $/ for information on why.

The block and local are used to limit the effect of the
change to $/ (it is set to undef by the local) to just the
read into $target.

Well put. This would have taken me a long time to internalize. Thank you.

Parsing HTML with HTML::TableExtract	2	Nov 27, 2009
HTML::TableExtract punctuation parsing	3	May 22, 2005
2 problems parsing output from HTML::TableExtract	8	Sep 1, 2009
Perl HTML::TableExtract Question	3	Apr 17, 2005
Problem using TableExtract 1.08	0	Sep 8, 2003
HTML::TableExtract with headers constraint, exluding right-most column	0	May 16, 2005
HTML::TokeParser & TableExtract	16	Apr 25, 2006
Extracting links from a html table	1	May 19, 2008

Rookie: HTML::TableExtract test will not print

sdfgsd

Tad McClellan

sdfgsd

Bob Walton

sdfgsd

Sam Holden

sdfgsd

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads