Help for this page

Select Code to Download


  1. or download this
    my $strip = '\x0';
    $strip .= '\d+' if $table->cell($rownum, 0..2) =~ $strip;
    $table->strip( $strip, $rownum, 0..2 );
    
  2. or download this
    # The ... indicates "Whatever" - it's not meant to be syntatically-cor
    +rect Perl.
    sub strip {
    ...
    
        $self->{cells}[...] =~ s/$pattern//;
    }