Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Archive::Zip - How to selectively copy files from one archive to another one?

by Gigabyte1907 (Initiate)
on Aug 04, 2012 at 17:18 UTC ( #985447=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $finder_type1 = File::Find::Rule->new()->name(qr/Type1_(.*?)\.xml$/
    +i)->start(".");
    while( my $file1 = $finder_type1->match()  ){
       $type1->addFile($file1);
    ...
    }
    
    etc...
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://985447]
Approved by johngg
help
Chatterbox?
[Lady_Aleena]: shmem, thanks. I'm am way out of practice.
[shmem]: perl -lE '@foo = (0..3);@bar = (4..7); push @foo,@bar; say for @foo'
[Lady_Aleena]: shmem, I feel like an idiot for forgetting something so basic.
shmem puts a big cauldron of "silly con charme" on the table in the refectorium
[reisinge]: 'push @foo, @bar' is the same as '@foo = (@foo ,@bar)' ?
[shmem]: yes, at least for the result in @foo

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2017-04-27 11:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (503 votes). Check out past polls.