迴圈的問題!!急

kfcdog0419

my $file = $ARGV[0];

open my $info2, $file or die "Could not open $file: $!";
while( my $line2 = <$info2>
{
  
  my $lookfor = $uniq_net4[2];
    if($line2=~ m/\(([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\)\s+nch_dnw\s+([^\s]+)\s+w=([^\s]+)\s+l=([^\s]+)/){
       
        if($4 eq $lookfor){
                       print "$8\n";
                       print "$9\n";       
        }
       
      }      
}               

close $info2;

===========================================================================================
以上是我程式碼的後半段，@uniq_net4是我前半段會產生的一個陣列，內容有多少個會不一定。
我想要把我的@uniq_net4所有元素丟進去尋找$8和$9，也就是說一個uniq_net4進去找到"第一個"$8$9就退出迴圈存起來，
每一個uniq_net4會有一個$8$9

這邊該如何修改。
============================================================================================

假設@uniq_net4 = qw/aa bb cc/;
$file=
M1 (a b c aa e f nch_dnw g w=2 l=3)
M2 (a b c bb e f nch_dnw g w=4 l=5)
M3 (a b c cc e f nch_dnw g w=6 l=
=============================================================================================
結果就是想要aa找到2與3
                 bb     4   5
                 cc      6   8
把這些都值存起來讓我使用

MMMIX

回复 1# kfcdog0419


    把 uniq_net4 弄成一个 hash，在你匹配完了文件中的一行之后，检查下 $4 是不是 %uniq_net4 的 key，是的话就把 $8, $9 保存到 $4 对应的值中。