📄 compress.pm
字号:
package DBM_Filter::compress ;use strict;use warnings;use Carp;our $VERSION = '0.01';BEGIN{ eval { require Compress::Zlib; Compress::Zlib->import() }; croak "Compress::Zlib module not found.\n" if $@;}sub Store { $_ = compress($_) }sub Fetch { $_ = uncompress($_) }1;__END__=head1 NAMEDBM_Filter::compress - 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('compress');=head1 DESCRIPTIONThis DBM filter will compress all data before it is written to the databaseand uncompressed it on reading.A fatal error will be thrown if the Compress::Zlib module is notavailable.=head1 SEE ALSOL<DBM_Filter>, L<perldbmfilter>, L<Compress::Zlib>=head1 AUTHORPaul Marquess pmqs@cpan.org
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -