in reply to Reading a .txt file under 2 levels of compression

So far I can read a .txt file in a single level of compression ...

There is no difference between one and two, just repeat your working solution for one

  • Comment on Re: Reading a .txt file under 2 levels of compression

Replies are listed 'Best First'.
AnyUncompress on a reference to another reference
by LazyIntern (Initiate) on Jan 14, 2011 at 02:02 UTC

    Code from my previous post --------------------------------------------------------------------- 

    #!/usr/bin/perl

use IO::Uncompress::Unzip qw(unzip $UnzipError);

my $file = 'all.zip';
my $inner;
unzip $file, \$inner, Name => '1.zip';

my $txt;
unzip \$inner, \$txt, Name => 'ReadMe.txt';

print "$txt\n";

    [download]
    Edited Code to start reading from Tar then any zip/gz file --------------------------------------------------------------------- 
    #!/usr/bin/perl

use Archive::Tar;
use IO::Compress::Gzip qw(gzip $GzipError);
use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
use IO::Uncompress::Unzip qw(unzip $UnzipError);
use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError
+);

my $tar = Archive::Tar->new;
#my $inner;

$tar->read('test.tar');
$inner = $tar->get_content('1.zip');
#$tar->extract_file('1.zip', \$inner);

anyuncompress \$inner, \$txt, Name => '3.txt';

#unzip \$inner, \$txt, Name => 'ReadMe.txt';  #works
#gunzip 'test.gz', $txt;              #doesn't work    

print "$txt\n";

    [download]
    Hi all Perl Monks, I have a question. How can I use anyuncompress to uncompress and load a zip/gz file onto a reference? Above is the work I have done so far, the major issue is with the second part of uncompressing a reference file other than zip.
[reply]
[d/l]
[select]
      anyuncompress doesn't take a Name parameter. Try 
          anyuncompress \$inner => \$txt;

      [download]
      If you are only dealing with gzip files, then use this 
          gunzip \$inner => \$txt;

      [download]
[reply]
[d/l]
[select]
            anyuncompress \$inner => \$txt;

        [download]
        oh my...it worked! thank you! Have a good weekend!
[reply]
[d/l]
[reply]
        more or less right. My first post was with regards to how to read a file under 2 levels of compression. Now my question is how can anyuncompress open a reference
[reply]
Re^2: Reading a .txt file under 2 levels of compression
by LazyIntern (Initiate) on Jan 12, 2011 at 00:19 UTC
    i believe there is. The first level de-compression will only either yield the content or file hash location. I can solve the problem if I can push the file hash location into another zip object file.
[reply]
      That doesn't make any sense. 
      my $zipinzip = unzipone('zipinazip');
my $final = unzipone($zipinzip);
print "finished\n";

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom