perl解压文件问题

cups_book

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

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.         }

复制代码

cups_book

1. next if $file !~ m{ \. zip $}mix;

复制代码

这个看不懂，具体用自然语言，解释下？