view release on metacpan or  search on metacpan

bin/packdbf  view on Meta::CPAN

=head1 DESCRIPTION

One or more files specified on the command line are read in and
written back out, rebuilding the header from scratch and removing rows
flags for deletion.  Output is typically specified with the C<-o> flag,
but lacking that, it is written to C<out_$infile>, given input C<$infile>.
The output prefix can be changed with the C<--outprefix> parameter.

The output or input can be C<-> specifying STDIN or STDOUT, but this is
fragile and likely will only work for reading.

=head1 SEE ALSO

L<CAM::DBF>

=head1 AUTHOR

Chris Dolan, Clotho Advanced Media, F<chris@clotho.com>

=cut

lib/CAM/DBF.pm  view on Meta::CPAN

   $self->_open_fh();

   return $self;
}
sub _open_fh
{
   my $self = shift;

   if ($self->{filename} eq q{-})
   {
      # This might be fragile, since seek won't work
      if ($self->{filemode} =~ m/r/xms)
      {
         $self->{fh} = \*STDIN;
      }
      else
      {
         $self->{fh} = \*STDOUT;
      }
   }
   else