Help for this page

Select Code to Download


  1. or download this
    my $tablenr=0;
  2. or download this
    if ($tag eq 'table'){
      push @save, [$tablenr,$row,$column];
...
      ++$count;
      $in_table++;
    }
  3. or download this
    if ($tag eq 'table') {
      ($tablenr, $row, $column) = @{ pop @save };
      --$in_table;
}
  4. or download this
    $table[$tablenr][$row][$column] .= $text if ($in_table) && ($text !~ m
+/^\s+$/);
  5. or download this
    my @save=([]); #initialize with an empty list as first element.