Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^2: using Archive::Tar

by Tux (Monsignor)
on Oct 04, 2011 at 14:45 UTC ( #929560=note: print w/ replies, xml ) Need Help??


in reply to Re: using Archive::Tar
in thread using Archive::Tar

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


Comment on Re^2: using Archive::Tar
Download Code
Replies are listed 'Best First'.
Re^3: using Archive::Tar
by ansh batra (Friar) on Oct 05, 2011 at 05:26 UTC
    thanks H.Merijin i have used your code
Re^3: using Archive::Tar
by ansh batra (Friar) on Oct 05, 2011 at 07:21 UTC
    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://929560]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (13)
As of 2015-07-31 09:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (276 votes), past polls