Hello,
Anyone knows the way to read ".gz" members in .tar file?
I can read plain text files by the next code.
But when the member is ".gz", I get uneadbale binay data.
use Archive::Tar;
my $file = shift;
my $tar = Archive::Tar->new($file, 1) or die "Error Archive::Tar, :$!";
my @files = $tar->list_files;
for my $file (@files) {
my $filedata = $tar->get_content($file);
print "$file:\n", $filedata, "\n";
}
__END__
Regards,
H.T.
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
