Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w # use warnings
use strict;
use diagnostics;
  2. or download this
    use Data::Table;
$joinTable->colsMap( sub { $_->[4]  = skipblanks( $_->[4] ) } );
...
        return $x;
    }
}
  3. or download this
    use Data::Table;
$joinTable->colsMap( sub { $_->[4]  = to_int_or_zero( $_->[4] ) } );
...
        return 0;
    }
}