1N/Apackage DBM_Filter::null ;
1N/A
1N/Ause strict;
1N/Ause warnings;
1N/A
1N/Aour $VERSION = '0.01';
1N/A
1N/Asub Store
1N/A{
1N/A no warnings 'uninitialized';
1N/A $_ .= "\x00" ;
1N/A}
1N/A
1N/Asub Fetch
1N/A{
1N/A no warnings 'uninitialized';
1N/A s/\x00$// ;
1N/A}
1N/A
1N/A1;
1N/A
1N/A__END__
1N/A
1N/A=head1 DBM_Filter::null
1N/A
1N/A=head1 SYNOPSIS
1N/A
1N/A use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File
1N/A use DBM_Filter ;
1N/A
1N/A $db = tie %hash, ...
1N/A $db->Filter_Push('null');
1N/A
1N/A=head1 DESCRIPTION
1N/A
1N/AThis filter ensures that all data written to the DBM file is null
1N/Aterminated. This is useful when you have a perl script that needs
1N/Ato interoperate with a DBM file that a C program also uses. A fairly
1N/Acommon issue is for the C application to include the terminating null
1N/Ain a string when it writes to the DBM file. This filter will ensure that
1N/Aall data written to the DBM file can be read by the C application.
1N/A
1N/A
1N/A=head1 SEE ALSO
1N/A
1N/AL<DBM_Filter>, L<perldbmfilter>
1N/A
1N/A=head1 AUTHOR
1N/A
1N/APaul Marquess pmqs@cpan.org