|
304
|
0 |
0 |
unless $self->get_options(\@argv, 'help|?', sub {
pod2usage(1);
}
, 'man', sub {
pod2usage('-verbose', 2);
}
, 'autorun!', \$self->{'_autorun'}, 'close!', \$self->{'_close'}, 'c|correct!', \$self->{'_correct'}, 'd|debug+', \$self->{'_debug'}, 'F|fs|cs|fieldseparator|columnseparator=s', \$self->{'_fscode'}, 'i|input=s', sub {
$self->parse_io_option('input', @_);
}
, 'log!', \$self->{'_logprog'}, 'o|output=s', sub {
$self->parse_io_option('output', @_);
}
, 'R|rs|rowseparator=s', \$self->{'_rscode'}, 'Z|compression=s', \$self->{'_compression'}) |