Help for this page

Select Code to Download


  1. or download this
    foreach my $ts ( $te->tables ) {
        print "Table (", join( ',', $ts->coords ), "):\n";
    ...
           $OUT-> print( join( ',', grep { length $_ } @$row ), "\n");
        }
    }