求助：如何用perl做一个自动解压包

tbb2008

看到一个这样的perl脚本，大概记得用到了IPC:pen2, read等模块，函数。其目的是把一列压缩文件（.tar.gz),自动解压。里面有一个hash结构，key是所有的压缩文件名，value是他们对于的文件大小，好像还有一个校验码。脚本的最后是很大的二进制文件，我猜测就是那些的压缩文件。

我是新手，看到这样的一个perl脚本就可以解压一些列压缩文件，的确很方便，但又不知道是如何把这些压缩文件和最前面的自动解压脚本生成为一个脚本文件的，哪位专家能帮忙解析（解释）一下？ 先谢了。

部分code 如下：

1. $product = "pa";
   
2. $version = "";
   
3. 
   
4. %toc = (
   
5.          "dwre_bin_dwh_install_1.19a.tgz" => [ 3631464856, 4878 ],
   
6.          "dwre_bin_dwh_update_4.04a.tgz" => [ 1894093091, 16142 ],
   
7.          "dwre_bin_dwwrap_1.07a.tgz" => [ 3005528922, 2112 ],
   
8.          "dwre_bin_error_1.00a.tgz" => [ 1175915063, 6121 ],
   
9.          "dwre_bin_httpcom_1.01a.tgz" => [ 1826575581, 1519 ],
   
10.          "dwre_bin_versionsorter_1.09a.tgz" => [ 2203230229, 9966 ],
    
11.          "dwre_bin_vetoc_1.01a.tgz" => [ 1226604463, 3357 ],
    
12.          "dwre_snpsperl_2.02a.tgz" => [ 473952241, 9770468 ],
    
13.          "vip_common_6.35a.tgz" => [ 207897596, 4382484 ],
    
14.          "vip_pa_1.04a.tgz" => [ 1015181103, 138288175 ],
    
15.        );
    
16. 
    
17. use Cwd;
    
18. use IPC::Open2;
    
19. 。。。。。。。。。。。。。
    
20. 
    
21. foreach $file ( sort keys %toc ) {
    
22. 
    
23.     read( DATA, $buffer, $toc{$file}[1] );
    
24. 
    
25.     $pid = open2( *CKSUMRD, *CKSUMWR, "$cksum" );
    
26. 
    
27.     print CKSUMWR $buffer;
    
28.     close CKSUMWR;
    
29. 
    
30.     chomp( $checksum = <CKSUMRD> );
    
31.     close CKSUMRD;
    
32. 
    
33.     waitpid( $pid, 0 );
    
34. 
    
35.     $checksum =~ s/\s+.*$//;
    
36. 
    
37.     if ( $checksum != $toc{$file}[0] ) {
    
38.         print "ERROR:  File $file failed checksum validation\n";
    
39.         exit( 1 );
    
40.     }
    
41. 
    
42.     if ( $file =~ /.tgz$/ ) {
    
43. 
    
44.         print "  Unpacking: $file ...\n";
    
45. 
    
46.         open  UNTAR, "| $tar zxf -";
    
47.         print UNTAR $buffer;
    
48.         close UNTAR;
    
49. 
    
50.         if ( $? ) {
    
51.             print "\nERROR:  Unable to unpack file $file.  Please check available diskspace\n";
    
52.             exit( 1 );
    
53.         }
    
54. 
    
55.     }
    
56.     elsif ( $file =~ /.readme$/ ) {
    
57. 
    
58.         $readme = $buffer;
    
59. 
    
60.     }
    
61.     else {
    
62. 
    
63.         print "ERROR:  Found unsupported file type\n";
    
64. 
    
65.     }
    
66. 
    
67.     $buffer = "";
    
68. 
    
69. }

复制代码