Select Code to Download

Select or download this

my $te = HTML::TableExtract->new( headers => [(@column_names)], keep_h
+eaders => 1  );
$te->parse_file($inFilename_long);
...
  print "\nLine 4 ", join(', ',$ts->row(4));  print "  <--- Why are th
+ese column values being pushed to the right? Also data is lost.";
  print "\n";
}

Select or download this


Line 0 Column_1, Asset Tag, Washed Number, Asset Name, Cust Code, Prim
+ary IP Address  <--- Header row
...
Line 2 R3Col1, L3333, 090, TSMWAL, , 1.1.1.137
Line 3 , , , , R4Col4, 1.1.1.137  <-- This has merged cells with the l
+ine above it and correctly pushes to the right.
Line 4 , , , , R5Col1, TSH5555  <--- Why are these column values being
+ pushed to the right? Also data is lost.

Select or download this

<body link=3Dblue vlink=3Dpurple>
<table x:str border=3D0 cellpadding=3D0 cellspacing=3D0>
...
</tr>
</table>
</body>