Chinaunix

标题: 【求助】Perl压缩文件诡异事件 [打印本页]

---

作者: 不死草    时间: 2015-12-30 17:33
标题: 【求助】Perl压缩文件诡异事件


使用同一段代码，压缩相同类型的文件（SQL Serer 备份文件），一个数据库文件可以正常压缩解压；另外一个可以压缩，但是不能正常解压，解压缩报错“不支持的压缩算法”；
区别在于是两个不同数据库的文件；使用代码压缩后，不能正常手动解压的那个文件，如果是使用手动压缩，再手动解压是没问题的。
所以，请问大家有没有碰到过类似的问题。

1. use strict;
   
2. use File::Copy;
   
3. 
   
4. my ($basedir, $bakDir) = @ARGV;
   
5. 
   
6. #direct the base URL
   
7. chdir $basedir;
   
8. 
   
9. #Get current month and the last month info
   
10. my $curMonth = gettime("yyyymm");
    
11. my $lastMonth = $curMonth - 1;
    
12. my $currentime = gettime("yyyy-mm-dd hh:mi:ss");
    
13. print "0.0) Start DB Ziping on $currentime...\n";
    
14. #get all sub folders
    
15. my @dirs = glob("*.bak");
    
16. 
    
17. #get the latest 2 months attach files' URL
    
18. #my @dirs = ($lastMonth,$curMonth);
    
19. 
    
20. #Zip and backup the files
    
21. for my $i (0..$#dirs){
    
22.         if(-e @dirs[$i]){
    
23.          my $zipFilename = $bakDir.@dirs[$i]."\.zip";
    
24.          my $j = $i + 1;
    
25.          if(-e $zipFilename){}
    
26.          else{
    
27.        print "$j.1) Create DB Zip File ",@dirs[$i],"\.zip...\n";
    
28.        zipTree(@dirs[$i],$zipFilename);
    
29.            my $currentime =  gettime("yyyy-mm-dd hh:mi:ss");
    
30.        print "$j.2) Finished the DB Zip File ",@dirs[$i],"\.zip on $currentime\n";
    
31.          }
    
32.    }
    
33. }
    
34. #-------------------------------------------------------------------------------------------------
    
35. #-------------------------------------------------------------------------------------------------
    
36. sub zipTree{
    
37.         use Archive::Zip qw(:ERROR_CODES :CONSTANTS);
    
38.         #define var
    
39.   my ($basedir,$filename) = @_;
    
40.   #create zip object
    
41.   my $zip = Archive::Zip->new();
    
42.   # add all readable files and directories below .
    
43.   $zip->addTree($basedir);
    
44.   # and write them into a file
    
45.   $zip->writeToFileNamed($filename);
    
46. }
    
47. 
    
48. sub readFilenames{
    
49.    my $dir=$_ ;       
    
50.    opendir ( DIR, $dir ) || die "Error in opening dir $dir\n";
    
51.    while( (my $filename = readdir(DIR))){
    
52.      print("$filename\n");
    
53.     }
    
54.    closedir(DIR);
    
55. }
    
56. 
    
57. sub gettime {
    
58.     $_ = shift;
    
59.     my $t = shift;
    
60.     (!$t) and ($t = time);
    
61.     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t);
    
62.     $year += 1900;
    
63.     my $yy = substr $year,2,2;
    
64.     $mon++;
    
65.     s/yyyy/$year/gi;
    
66.     s/yy/$yy/gi;
    
67.     if ($mon < 10)  { s/mm/0$mon/gi;  } else { s/mm/$mon/gi; }
    
68.     if ($mday < 10) { s/dd/0$mday/gi; } else { s/dd/$mday/gi; }
    
69.     if ($hour < 10) { s/hh/0$hour/gi; } else { s/hh/$hour/gi; }
    
70.     if ($min < 10)  { s/mi/0$min/gi;  } else { s/mi/$min/gi; }
    
71.     if ($sec < 10)  { s/ss/0$sec/gi;  } else { s/ss/$sec/gi; }
    
72. 
    
73.     $_;
    
74. }
    

复制代码

---

作者: 不死草    时间: 2016-01-29 17:49
都没有人碰到过吗？自己顶一下。

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2