Re: Untaring with perl

[gryphon]

Greetings mrbbq,

This is untested, and I only just now tossed it together, but is this what you're asking for?

use Archive::Tar;
my $tar = Archive::Tar->new;
chdir '/tmp' or die $!;
$tar->read('anything.tgz', 1, { 'extract' => 1 } );

I'd rather not have to chdir; instead, I'd like to tell Archive::Tar where to extract the files. How to do that is probably in the POD somewhere.

[mrbbq]

Works perfect, thank you.

[mrbbq]

could anything.tgz be a variable?
$tar->read('$tar_file",1, { 'extract' => 1 });
I could not get it to work passing a variable...ideas?
thanks

[gryphon]

Greetings mrbbq,

You have a single-quote just before $tar_file that doesn't match the double-quote at the end. You should either change the single to a double, or (and better) just drop the quotes.

use strict;
my $tar_file = 'anything.tgz';
$tar->read( $tar_file, 1, { 'extract' => 1 } );