Re: Stream data from application to Gzip

With PerlIO (default in Perl 5.8+) you can use the PerlIO::gzip layer.

use PerlIO::gzip;
open local(*STDOUT), '>:gzip', $filename or die $!;
[download]

Now everything you print will be gzipped and shoved into the file.

Your "FILE=filename" snippit looks fishy, no variable sigils.

After Compline,
Zaxo

Comment on Re: Stream data from application to Gzip Download Code

Replies are listed 'Best First'.
Re^2: Stream data from application to Gzip by TeraMarv (Beadle) on Mar 23, 2005 at 04:01 UTC
Thanks for the reply Zaxo. "FILE=filename" is not Perl. This is the command required by my archive utility to specify the target file. I can map this filename to any other via a built in utility function. What i need to know is how i can read from the file 'filename' while it is being written to by the archive utility....any ideas? I will not be printing anything.....the archive utility produces a binary data stream. Thanks again, TeraMarv.	[reply]
Re^3: Stream data from application to Gzip by naChoZ (Curate) on Mar 23, 2005 at 14:09 UTC
I don't think it's even possible. You're asking to take a file that is currently open with uncompressed data being actively written to it and compress it while this is taking place. Even if there were some curious way of masking or proxying the data being written to that filehandle, it seems like an awfully long and painful way to go for your results. One way you could probably retool it for windows would be to use the windows version of zip. `# Substitute whatever tool you use to dump your db pg_dump -Udbadmin dbname \| zip dbname-backup -` [download] And then you could extract it with: `unzip -c dbname-backup -` [download] -- "This alcoholism thing, I think it's just clever propaganda produced by people who want you to buy more bottled water." -- pedestrianwolf	[reply] [d/l] [select]