REDROOM
PHP 8.0.30
Path:
Logout
Edit File
Size: 854 B
Close
/usr/share/perl5/DBM_Filter/compress.pm
Text
Base64
package DBM_Filter::compress ; use strict; use warnings; use Carp; our $VERSION = '0.03'; 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 NAME DBM_Filter::compress - filter for DBM_Filter =head1 SYNOPSIS use SDBM_File; # or DB_File, GDBM_File, NDBM_File, ODBM_File use DBM_Filter ; $db = tie %hash, ... $db->Filter_Push('compress'); =head1 DESCRIPTION This DBM filter will compress all data before it is written to the database and uncompressed it on reading. A fatal error will be thrown if the Compress::Zlib module is not available. =head1 SEE ALSO L<DBM_Filter>, L<perldbmfilter>, L<Compress::Zlib> =head1 AUTHOR Paul Marquess pmqs@cpan.org
Save
Close
Exit & Reset
Text mode: syntax highlighting auto-detects file type.
Directory Contents
Dirs: 0 × Files: 5
Delete Selected
Select All
Select None
Sort:
Name
Size
Modified
Enable drag-to-move
Name
Size
Perms
Modified
Actions
compress.pm
854 B
lrw-r--r--
2025-07-28 08:07:09
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
encode.pm
1.33 KB
lrw-r--r--
2025-07-28 08:07:09
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
int32.pm
754 B
lrw-r--r--
2025-07-28 08:07:09
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
null.pm
967 B
lrw-r--r--
2025-07-28 08:07:09
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
utf8.pm
777 B
lrw-r--r--
2025-07-28 08:07:09
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
Zip Selected
If ZipArchive is unavailable, a
.tar
will be created (no compression).