📄 int32.pm
字号:
package DBM_Filter::int32 ;use strict;use warnings;our $VERSION = '0.01';# todo get Filter to figure endian.sub Store{ $_ = 0 if ! defined $_ || $_ eq "" ; $_ = pack("i", $_);}sub Fetch{ no warnings 'uninitialized'; $_ = unpack("i", $_);}1;__END__=head1 NAMEDBM_Filter::int32 - filter for DBM_Filter=head1 SYNOPSIS use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File use DBM_Filter ; $db = tie %hash, ... $db->Filter_Push('int32');=head1 DESCRIPTIONThis DBM filter is used when interoperating with a C/C++ applicationthat uses a C int as either the key and/or value in the DBM file.=head1 SEE ALSOL<DBM_Filter>, L<perldbmfilter>=head1 AUTHORPaul Marquess pmqs@cpan.org
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -