http://qs321.pair.com?node_id=486305


in reply to Untaring with perl

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.

gryphon
Whitepages.com Development Manager (DSMS)
code('Perl') || die;