perl解压文件问题

juming1983

如果一个zip文件里面有几个文件,我想解压到当前目录,请问用perl该如何解决.谢谢!

[ 本帖最后由 juming1983 于 2009-12-16 15:09 编辑 ]

gaochong

system不就实现了吗？

juming1983

是需要用perl解压出来的!

兰花仙子

多在cpan上找找啦~
http://search.cpan.org/~adamk/Archive-Zip-1.30/lib/Archive/Zip.pm

如果没有GF你会认真找吧，找module也要像找GF一样滴~

mouse.rice

原帖由 兰花仙子 于 2009-12-16 15:36 发表
多在cpan上找找啦~
http://search.cpan.org/~adamk/Archive-Zip-1.30/lib/Archive/Zip.pm

如果没有GF你会认真找吧，找module也要像找GF一样滴~

仙子大姐 是否常当媒婆？

兰花仙子

原帖由 mouse.rice 于 2009-12-16 16:40 发表


仙子大姐 是否常当媒婆？

恩，有这个想法~

cups_book

如果一个zip文件里面有几个文件,我想解压到当前目录,请问用perl该如何解决。。。
不得其解啊。。。

stanley_tam

建议看Archive::Extract的perldoc

1. #!perl
   
2. use strict;
   
3. use Archive::Extract;
   
4. 
   
5. my $zip_file = 'test.zip';
   
6. my $extract_to = '/tmp';
   
7. 
   
8. # build an Archive::Extract object
   
9. my $ae = Archive::Extract->new( archive => $zip_file );
   
10. 
    
11. # extract to current working directory
    
12. $ae->extract();
    
13. 
    
14. # or extract to directory specified
    
15. $ae->extract(to => $extract_to);
    
16. 
    
17. __END__

复制代码

回复 7# cups_book


   

cups_book

回复 8# stanley_tam


   
多谢，我正按此方向往下走。
我需要先把文件夹里的所以zip文件都读出来，让后逐个解压。
现在遇到的问题是：

my $dir = 'C:\\Program Files\\get_map_files\\SPAR\\gtw\\maps';
LogNor("mmm - ".$dir);
my @files = <$dir\\* $dir/.*>;

@files读出来的内容就是：
C:\Program
C:\Program

文件夹的路径包含空格，应该怎么办呢？

cups_book

完整的代码:

1.         if (scalar(@files) > 0 ) {
   
2.                 LogNor(scalar(@files)." files");
   
3.                 foreach(@files){
   
4.                         LogNor($_);
   
5.                         if(-f $_){
   
6.                                 ## build an Archive::Extract object ###
   
7.                                 $ae = Archive::Extract->new( archive => $_ );
   
8.                                 ## extract to /tmp ###
   
9.                                 $ok2 = $ae->extract( to => $ExtraPath );
   
10.                         }
    
11.                 }
    
12.         } else {
    
13.                 LogNor('No files');
    
14.         }

复制代码