my $te = HTML::TableExtract->new( headers => [(@column_names)], keep_headers => 1 ); $te->parse_file($inFilename_long); foreach my $ts ($te->tables) { print "\nLine 0 ", join(', ',$ts->row(0)); print " <--- Header row"; print "\nLine 1 ", join(', ',$ts->row(1)); print "\nLine 2 ", join(', ',$ts->row(2)); print "\nLine 3 ", join(', ',$ts->row(3)); print " <-- This has merged cells with the line above it and correctly pushes to the right."; print "\nLine 4 ", join(', ',$ts->row(4)); print " <--- Why are these column values being pushed to the right? Also data is lost."; print "\n"; } ##

##


Line 0 Column_1, Asset Tag, Washed Number, Asset Name, Cust Code, Primary IP Address  <--- Header row
Line 1 R2Col1, LEN2222, RC0, LEN2222, , 1.1.1.55
Line 2 R3Col1, L3333, 090, TSMWAL, , 1.1.1.137
Line 3 , , , , R4Col4, 1.1.1.137  <-- This has merged cells with the line 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.

##

##



 
 
 
 
 
 
 
W Potential Under

Page by:
Tenant Data Partition: W


 Column_1
 Asset Tag
 Washed Number
 Asset Name
 Cust Code
 Primary IP Address


 R2Col1
 LEN2222
 RC0
 LEN2222
 
 1.1.1.55


 R3Col1
 L3333
 090
 TSMWAL
 
 1.1.1.137


 R4Col4
 1.1.1.137


 R5Col1
 TSH5555
 4H
 TSH5555 this data gets dropped but should not
 
 1.1.1.69


 R6Col1
 146666
 2-0
 TSM
 
 1.1.1.11


 R7Col4
 1.1.1.11

W Potential Under

Page by:
Tenant Data Partition: W

Column_1	Asset Tag	Washed Number	Asset Name	Cust Code	Primary IP Address
R2Col1	LEN2222	RC0	LEN2222		1.1.1.55
R3Col1	L3333	090	TSMWAL		1.1.1.137
R4Col4	1.1.1.137
R5Col1	TSH5555	4H	TSH5555 this data gets dropped but should not		1.1.1.69
R6Col1	146666	2-0	TSM		1.1.1.11
R7Col4	1.1.1.11