Hi:
I'm trying Compression::Bzip2 to compress a file before upload it to
a server via ftp, but Compression::Bzip2::compress is doing the file
bigger, perldoc says:
COMPRESSION FUNCTIONS
$dest = Compress::Bzip2::compress($string)
Compress a string using the default compression level,
returning a string containing compressed data.
$dest = Compress::Bzip2::compress($string, $level)
Compress string, using the chosen compression level
(either 1 or 9). Return a string containing the com�
pressed data.
On error undef is returned.
Even i use 1 or 9 the result is the same, double of original size,
the test code is:
use warnings;
use strict;
use Compress::Bzip2;
open (FIN, '/some/file');
open (FOUT,'>/some/other/file.bz2');
my $compressLine;
while (<FIN>) {
print FOUT Compress::Bzip2::compress($_); #here 1, 9 or nothing
}
close FIN;
close FOUT;
When i use bzip2 in the command line, the result file is about mid
size, and the difference is that the block size is about 900, instead
600 when i do it with Compression::Bzip2
Any idea?
Thanks
--
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
