perl解压文件问题

juming1983

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

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

stanley_tam

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

复制代码

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

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

回复 12# cups_book


   

cups_book

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

复制代码

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

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

回复 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

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

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

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

兰花仙子

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


仙子大姐 是否常当媒婆？

恩，有这个想法~

mouse.rice

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

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

仙子大姐 是否常当媒婆？