Re^2: Compress::Zlib : what to do with the "in memory" data ?

Thanks a lot for you answer, gzwrite is interesting :

open FFF, "<fu.txt"  or die "$!" ;
binmode FFF ;
$gz = gzopen("fu.txt.gz", "wb") or die "gzerror" ;
while ($buffer = <FFF>) { $gz->gzwrite($buffer) }
close FFF ;
$gz -> gzclose ;
[download]

The resulting file is a valid gz file.
I have to point out that i'm under win32, hence the binmode (otherwise newlines are washed out when i uncompress the file).

But, i have a problem here : what i need to obtain is a .Z file and not a .gz .
This might not be mandatory, but the resulting file is sent to someone else and i'll have to check if his programs can deal with a .gz .

Do you know if Compress::Zlib will allow me to create a .Z file ? For exemple with inflate / deflate ? Or is zlib for gz compression only ?

Thanks a lot,

ZlR .

Comment on Re^2: Compress::Zlib : what to do with the "in memory" data ? Download Code

Replies are listed 'Best First'.
Re^3: Compress::Zlib : what to do with the "in memory" data ? by iburrell (Chaplain) on Jan 08, 2005 at 00:32 UTC
Compress::Zlib and the underlying zlib library do not read or write .Z files. These are the files from the compress program, compressed using the once-patented LZW algorithm. zlib only does deflate, the algorithm used in gzip and zip files. AFAIK, there are no Perl modules for reading or writing .Z files. One option would be to pipe through zcat or gzip, which can read .Z files. Why do you want to use .Z files? .gz has better compression and is probably more widely supported now.	[reply]
Re^4: Compress::Zlib : what to do with the "in memory" data ? by ZlR (Chaplain) on Jan 08, 2005 at 13:23 UTC
Well , a .Z file is expected by some other scripts, which i do not control. I think "compress" was chosen because gzip was not available as a standard command on some unices. Update: Since Z compressed files can be opened by gzip, the scripts i communicate with will be able to use gunzip instead of compress , wich will allow them to read both .gz and .Z files. And i won't have to use a system call :) One more update: Since i also need to tar file with Archive::Tar I finally used the compression option this module provides, which creates a tar.gz . e.g : `$objTar->write($myfile.tar.gz,1) ;` [download] Thx for your answers !	[reply] [d/l]