perl解压文件问题

stanley_tam

1. my @files = <$dir\\* $dir/.*>;

复制代码

上面这货在文件名有空格的情况下貌似不给力。改成↓这样？{:3_204:}

1. sub get_zip_files_from {
   
2.     use IO::Dir;
   
3.     use File::Spec;
   
4. 
   
5.     my $dir = shift;
   
6.     my @zip_files = ();
   
7. 
   
8.     my $d = IO::Dir->new($dir);
   
9.     if (defined $d) {
   
10.         while (defined(my $file = $d->read)) {
    
11.             next if $file eq '.';
    
12.             next if $file eq '..';
    
13.             next if $file !~ m{ \. zip $}mix;
    
14.             $file = File::Spec->catfile($dir,$file);
    
15.             push @zip_files, $file;
    
16.         }
    
17.     }
    
18. 
    
19.     return @zip_files;
    
20. }
    
21. my @files = get_zip_files_from($dir);

复制代码

回复 9# cups_book


   

cups_book

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

复制代码

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

stanley_tam

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

复制代码

就是如果$file不是以.zip结尾的话，就跳过这个$file，直接开始循环的下一个。

正则匹配一般是 $var =~ /pattern/, 但是这样的话，如果出错，报错不好看，所以偶用的是$var =~ m{pattern}.

回复 12# cups_book