Re: Untaring with perl

by gryphon (Abbot)

on Aug 24, 2005 at 17:30 UTC ( [id://486305]=note: print w/replies, xml )

Need Help??

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 } );
[download]

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;

Comment on Re: Untaring with perl Download Code

Replies are listed 'Best First'.
Re^2: Untaring with perl by mrbbq (Sexton) on Aug 24, 2005 at 18:08 UTC
Works perfect, thank you.	[reply]
Re^2: Untaring with perl by mrbbq (Sexton) on Aug 24, 2005 at 18:19 UTC
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	[reply]
Re^3: Untaring with perl by gryphon (Abbot) on Aug 24, 2005 at 20:00 UTC
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 } );` [download] gryphon Whitepages.com Development Manager (DSMS) code('Perl') \|\| die;	[reply] [d/l]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://486305]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others about the Monastery: (4)

As of 2024-04-24 04:32 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found