新人求教提取目标文件名问题

kobe1424

新人求教:wink: ：
有3个文件夹file_1,file_2,file_3,其中:
file_1包含a1,a2,a3...an文件夹，每一个文件又包含若干文件夹A,b,C,x...（随机分布);
file_2包含b1,b2,b3...bn文件夹，每一个文件又包含若干文件夹A,b,C,y...（随机分布）;
file_3包含c1,c2,c3...cn文件夹，每一个文件又包含若干文件夹A,b,C,z...（随机分布）;
需要提取file_1,file_2,file_3中子文件夹的文件名（要求是这些文件名必须同时包含A和C，不满足的则舍弃），然后把符合条件的文件名（a1,a2...b1,b2....c1,c2...中包含A和C则输出到list1）；
另外有一个文件list2；如果list1里面有的名字，list2里面没有，则输出保存到LIST里面，
最后得到LIST形式如下：
a1
b1
c2
...
结束。
我自己尝试写了一点，不知后面怎么继续，请高手帮我完成后面的，我再自己好好学习：

1. #!/user/bin/perl
   
2. #删除list，方便下次运行程序
   
3. system("rm -rf LIST");
   
4. #打开file_1文件夹
   
5. opendir(DIR1,'./file_1');
   
6. #读取file_1的文件名输出到list1
   
7. while(my $file = readdir(DIR1))
   
8. {
   
9. #删除"."".."  
   
10.   next if ($file eq '.');
    
11.   next if ($file eq '..');
    
12.   print $file\n >> list1;
    
13. }
    
14. closedir(DIR1);

复制代码

举个例子，在linux里面显示如下：
> ls
> file_1 file_2 file_3
> cd file_1
> a1 a2 a3 ... an
> cd a1
> A b C x...
其他文件类似，如果包含A C则把a1输出到list1，不同时包含A C则不要。
在比较list1 list2，list1有的名字且不在list2中输出到LIST，LIST是我要的结果。

rubyish

不容易看懂。