Perl语言问题求助

yqk39

最近刚开始学习Perl语言，写了一段代码没有实现目标功能，有没有大神帮忙看一下。

代码想实现的是：从@net中查找@all_cell，若@net中存在$all_cell，则将$all_cell输出到文件中。

其中@all_cell是从文件中读入的，内容为：
XOR3X8M
XOR3X4M
XOR3X2M
XOR3X1M  ...

@net也是从文件读入的,内容为：
X...... XOR3X4M ......
X...... XOR3X2M ......

1. 
   
2. open(FILEOUT2,"> cell_use2");
   
3. foreach(@all_cell)
   
4. {
   
5. foreach(@net)
   
6. {
   
7. if($net=~/\b($all_cell)\b/)
   
8.   {
   
9.   print FILEOUT2 "$all_cell";
   
10.   last;
    
11.   }
    
12. }
    
13. }
    
14. 
    

复制代码

chen851112

foreach$all_cell(@all_cell)
下面修改雷同

windzjy

还是 用
grep /^$all_cell$/, @net