After seeing your request in the Chatterbox earlier this evening, I hacked (in the bloody horror movie sense) together something that appears to do what you are requesting (view the content of text2.txt, for example, from within foo.tar.gz contained in baz.tar.gz). I hope the code below can give you at least a starting point to work from.

Hope that helps.

Here we need to pass outer and inner tar.gz filename right, while automating this I may nt know the inner tar.gz files, it should automatically need to find inner tar.gz files from outer.tar.gz file and list out the inner tar.gz file content.

---

All is well. I learn by answering your questions...

In the code I posted, lines 105-140, if no values for --inner_filename were given, I believe it will display all of the files contained within all filenames that end in .tar, .tar.gz, or .tgz. (Let me know if I am incorrect, however.)

Hope that helps.

Hello vinoth.ree,

Give a try to this, it seems to do the work that you ask for:

#!/usr/bin/perl
use strict;
use warnings;
use File::Temp;
use feature 'say';
use Archive::Extract;

my $indent = 0;

sub recursive_extract {
    my ($file) = @_;
    my $tmpdir = File::Temp->newdir;

    my $ae = Archive::Extract->new(
    archive => $file,
        );

    $ae->extract( to => $tmpdir->dirname );

    for my $f ( @{ $ae->files } ) {
    printf qq|%s%s\n|, q| | x $indent, $f;
    if ( $f =~ m/\.(?:zip|tar)\z/ ) {
        $indent += 2;
        recursive_extract( $f );
    }
    }

    $indent -= 2;
}

die qq|Usage: perl $0 <zip-file>\n| unless @ARGV == 1;

printf qq|%s\n|, $ARGV[0];
$indent += 2;
recursive_extract( shift );

__END__

$ perl test.pl TestPrimeZip.tar.gz
TestPrimeZip.tar.gz
  TestPrimeZip/ZipFiles/in.txt
  TestPrimeZip/ZipFiles/
  TestPrimeZip/ZipFiles/test.zip
    in.txt
  TestPrimeZip/ZipFiles.tar.gz
  TestPrimeZip/
[download]

Source of code Recursively listing the contents of a tar/zip archive.

Hope this helps, BR.