Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: using Archive::Tar

by pvaldes (Chaplain)
on Oct 04, 2011 at 13:40 UTC ( #929546=note: print w/ replies, xml ) Need Help??


in reply to using Archive::Tar

use strict; use warnings; use autodie; use Archive::Tar; my @filelist = (); opendir(my $dir, '/path/to/my/dir/'); while(readdir $dir) { chomp; if (!~ /(^\.\.|\.)$/){ push @filelist, $_; } } my $pack = Archive::Tar->new; $pack->create_archive('Bundle-FinalTest.tgz', COMPRESS_GZIP, @filelist +); closedir $dir;

UPDATE: A couple of changes, but Not properly working still...

a lot of "not such file: filename" error messages, I don't know why

Alternatively, you can use the old cheap way, that is guaranteed to act as you expect:

`tar -zcvvf Bundle-FinalTest.tgz /path/to/Bundle/FinalTest/dir/`;


Comment on Re: using Archive::Tar
Select or Download Code
Re^2: using Archive::Tar
by Tux (Monsignor) on Oct 04, 2011 at 14:45 UTC

    Combine with File::Find:

    use strict; use warnings; use autodie; use Archive::Tar; use File::Find; my @fl; find (sub { -d $_ or push @fl, $File::Find::name }, "Bundle::Finaltest +"); Archive::Tar->create_archive ("Bundle-FinalTest.tar.gz", COMPRESS_GZIP +, @fl);

    Enjoy, Have FUN! H.Merijn
      thanks H.Merijin i have used your code
      what shall i do when i want to compress a FILE to .gz only? please reply asap!!!

        For compressing a single file, why use perl? You could use gzip on the command line.

        If it needs to be in perl, look at Compress::Zlib. The manual has lots of info about gzip support.

        $dest = Compress::Zlib::memGzip ($buffer); $dest = Compress::Zlib::memGunzip ($buffer);

        Enjoy, Have FUN! H.Merijn

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://929546]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (9)
As of 2014-12-29 16:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (193 votes), past polls