On 21/11/2013 11:48 AM, Bill Moseley wrote:
$ perl -MIO::Uncompress::Gunzip -le 'use Data::Dumper; print Dumper +IO::Uncompress::Gunzip->new( "Catalyst-Runtime-5.90051.tar.gz" )->getHeaderInfo'
Actually with more reading on this getting the uncompressed size reliably can be a real pain, and thus is not in the getHeaderInfo over certain size lmits.
This approach may work for you is the compressed data is actually in a scalar and not too large. And not too small. YMMV.
my $z = read_file "product.json.gz"; my $io = IO::Scalar->new( \$z ); $io->seek( -4, 2 ); $io->read( my $buf, 4); my $uncompressed_size = unpack( 'V', $buf );
_______________________________________________ List: Catalyst@lists.scsys.co.uk Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/ Dev site: http://dev.catalyst.perl.org/
--- This email is free from viruses and malware because avast! Antivirus protection is active. http://www.avast.com
_______________________________________________ List: Catalyst@lists.scsys.co.uk Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/ Dev site: http://dev.catalyst.perl.org/