/
usr
/
share
/
perl5
/
DBM_Filter
/
/usr/share/perl5/DBM_Filter
mkdir
upload
Name
Size
Mode
Actions
compress.pm
854
0644
edit
dl
rm
encode.pm
1361
0644
edit
dl
rm
int32.pm
754
0644
edit
dl
rm
null.pm
967
0644
edit
dl
rm
utf8.pm
777
0644
edit
dl
rm
Edit:
/usr/share/perl5/DBM_Filter/int32.pm
(754B)
package DBM_Filter::int32 ; use strict; use warnings; our $VERSION = '0.03'; # todo get Filter to figure endian. sub Store { $_ = 0 if ! defined $_ || $_ eq "" ; $_ = pack("i", $_); } sub Fetch { no warnings 'uninitialized'; $_ = unpack("i", $_); } 1; __END__ =head1 NAME DBM_Filter::int32 - filter for DBM_Filter =head1 SYNOPSIS use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File use DBM_Filter ; $db = tie %hash, ... $db->Filter_Push('int32'); =head1 DESCRIPTION This DBM filter is used when interoperating with a C/C++ application that uses a C int as either the key and/or value in the DBM file. =head1 SEE ALSO L<DBM_Filter>, L<perldbmfilter> =head1 AUTHOR Paul Marquess pmqs@cpan.org
Save
cmd:
run