求对一个目录下的很多文件夹中的gz文件解压,已有文件夹的名字~~

baiguihuajl

有很多文件夹，文件名都列在一个txt文件中，每个文件夹中都有一个gz压缩包，要求解压这些文件，我自己写的脚本不知道问题出在哪儿？谢谢~~~
很多文件夹的名字列在1.txt文件中，每个名字一行，如下：
TCGA_A2-A0D0-01A_BH-A0HK-01A_C8-A12T-01A_Proteome_BI_20130326
TCGA_A2-A0D2-01A_C8-A12U-01A_AR-A1AS-01A_Proteome_BI_20131010
TCGA_A2-A0EV-01A_AN-A0AM-01A_D8-A142-01A_Proteome_BI_20130625
TCGA_A2-A0SW-01A_AO-A0JL-01A_BH-A0BV-01A_Proteome_BI_20131024
TCGA_A2-A0T6-01A_E2-A158-01A_E2-A15A-01A_Proteome_BI_20130918
TCGA_A2-A0T7-01A_C8-A12Q-01A_A8-A079-01A_Proteome_BI_20130820
TCGA_A2-A0YF-01A_BH-A0DD-01A_BH-A0E9-01A_Proteome_BI_20131018
TCGA_A2-A0YG-01A_E2-A150-01A_BH-A18N-01A_Proteome_BI_20130912
TCGA_A2-A0YM-01A_BH-A0C7-01A_A2-A0SX-01A_Proteome_BI_20131025
TCGA_A7-A0CD-01A_C8-A12W-01A_AN-A0AL-01A_Proteome_BI_20130913
TCGA_A7-A0CE-01A_BH-A0C0-01A_A2-A0YC-01A_Proteome_BI_20130524
TCGA_A7-A0CJ-01A_AO-A12F-01A_A2-A0YL-01A_Proteome_BI_20130805
还有很多行。。。

1. #user/bin/perl
   
2. open(F1,"1.txt");
   
3. while(<F1>){
   
4.         chomp;
   
5.         foreach($_){
   
6.                 chdir "$_";
   
7.                         gunzip -c "$_/*.gz";
   
8.         }
   
9. }
   
10. close(F1);

复制代码

stanley_tam

是tar.gz压缩包里面有后缀为tar的压缩包吗？

baiguihuajl

回复 2# stanley_tam
没有，也是后缀为tar.gz的包


   

baiguihuajl

可以先在unix系统下把所有的压缩包都放到一个文件夹下吗？
我用的命令“mv */* >> ../new"为什么执行了不对？

不仅仅是符号

open IN,"<","1.txt";
while ($line=<IN>){
        chomp $line;
        system ("你的解压命令");
}
close IN;

试试看...