PPT Slide
Perl - parse delimited record (in @unload_list)
foreach $SQL_ROW (@UNLOAD_LIST) {
print "<tr>\n"; # New table row
foreach $ITEM (split(/\|/,$SQL_ROW)) { # Parse pipe-delimited record
if ( $ITEM_NUM <= 1 || $ITEM_NUM >= 7 ) { next; }
if (length($ITEM) == 0) {
print "<td> </td>\n"; # If empty, prt non-breaking space
print "<td>$ITEM</td>\n"; # Not empty - Table data
print "<\tr>\n"; # End table row