[Summary view] [Print] [Text view]

   1  package DBM_Filter::null ;
   2  
   3  use strict;
   4  use warnings;
   5  
   6  our $VERSION = '0.01';
   7  
   8  sub Store
   9  {
  10      no warnings 'uninitialized';
  11      $_ .= "\x00" ;
  12  }
  13  
  14  sub Fetch
  15  {
  16      no warnings 'uninitialized';
  17      s/\x00$// ;
  18  }
  19  
  20  1;
  21  
  22  __END__
  23  
  24  =head1 NAME
  25  
  26  DBM_Filter::null - filter for DBM_Filter
  27  
  28  =head1 SYNOPSIS
  29  
  30      use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
  31      use DBM_Filter ;
  32  
  33      $db = tie %hash, ...
  34      $db->Filter_Push('null');
  35  
  36  =head1 DESCRIPTION
  37  
  38  This filter ensures that all data written to the DBM file is null
  39  terminated. This is useful when you have a perl script that needs
  40  to interoperate with a DBM file that a C program also uses. A fairly
  41  common issue is for the C application to include the terminating null
  42  in a string when it writes to the DBM file. This filter will ensure that
  43  all data written to the DBM file can be read by the C application.
  44  
  45  
  46  =head1 SEE ALSO
  47  
  48  L<DBM_Filter>, L<perldbmfilter>
  49  
  50  =head1 AUTHOR
  51  
  52  Paul Marquess pmqs@cpan.org