Compression::Bzip2

[M. Benavides]

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]