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. }
    

复制代码

william_liwei

文件句柄close了吗

yqk39

回复 2# william_liwei


    没有close，不知这样会有什么影响？
    新手不太懂，多指导！

cool_lovexia

需要修改两行：
foreach(@all_cell)  改为  foreach $all_net  (@all_cell)
foreach(@net)     改为    foreach  $net  (@net)

yqk39

回复 4# cool_lovexia


    改过了，还是不行。
    但还是谢谢你！

cool_lovexia

回复 5# yqk39

说错了，应该是这么改：

需要修改两行：
foreach(@all_cell)  改为  foreach $all_cell  (@all_cell)
foreach(@net)     改为    foreach  $net  (@net)


你再试以下

明月在树梢

回复 3# yqk39

没有影响，perl执行完了，自行关闭

明月在树梢

foreach(@all_cell)  改为  foreach $all_cell  (@all_cell)
foreach(@net)     改为    foreach  $net  (@net)
if($net=~/\b($all_cell)\b/) 改为 if($net=~/\b\Q$all_cell\E\b/)

kevintso

把完整的input file和output file傳上來給大家幫你試看看吧