使用perl和字符串连接解析文件

Question

我试图通过文件解析并收集不同模块中的不匹配类型并生成一个xls。以下是报告模式我需要解析（但实际的报告模式不是简单如下）：

outsocket ports in design1 not in design2 
a 
b 
Insocket ports in design1 not in design2 
g 
h 

可以有很多花样名（推到模块使用$module列表）在日志中，但这种格局将（在<>中的Insocket/outsocket /其他端口不在<>）

下面是我的核心代码。我遇到了这个代码的问题，并且它不能正常工作（尤其是字符串连接），请帮助我修复这个。

while ($line = <FH>) { 
    if ($line =~ /Insocket(\s*)ports(\s*)in(\s*)${design1}(\s*)not(\s*)in(\s*)${design2}/) { 
     $mismatch_type = "type_i_n"; 
    } 
elsif ($line =~ /Insocket(\s*)ports(\s*)in(\s*)${design2}(\s*)not(\s*)in(\s*)${design1}/) { 
     $mismatch_type = "type_i_r"; 
    } 

elsif ($line =~ /outsocket(\s*)ports(\s*)in(\s*)${design2}(\s*)not(\s*)in(\s*)${design1}/) { 
     $mismatch_type = "type_o_n"; 
    } 

elsif ($line =~ /outsocket(\s*)ports(\s*)in(\s*)${design1}(\s*)not(\s*)in(\s*)${design2}/) { 
     $mismatch_type = "type_o_r"; 
    } 

     $result = $mismatch_type . "_code_ " . $module; 
     $$result = $$result .$line; 
     if(!present_in_list ($module,@module_list)) { 
      push @module_list,$module; 
     } 
     push @mismatch_type_list,$mismatch_type; 
}#PARSING OF FILE ENDS 


#NOW PROCESSING THE RESULTS BASED ON PARSING 
foreach $module (@module_list) { 
     foreach $each_mismatch (@mismatch_type_list) { 
      $result = $mismatch_type . "_code_ " . $module; 
      print FH2" $$result,"; 
                            } 
    } 

Answer 1

这里有几个猜测和一般建议。我不知道这将解决你的问题，但它可能会帮助：

1. 前两个正则表达式中${design1}}和${design2}}有一个额外的}。不确定这是否存在于您的原始程序中，或者是否在此处发布时引入了错误。

2. 它看起来像你使用字符串连接，建立一个$result变量的名称，这样，那么你可以使用该字符串作为另一变量像$type_i_n_code_module_a名称。我强烈建议，以减少混乱，您使用的哈希来代替：

   %result =(); 
   while ($line = <FH>) { 
       ... 
       $result_key = $mismatch_type . "_code_ " . $module; 
       $result{$result_key} = $result{$result_key} . $line; 
   } 
   
   ... 
   foreach $module (@module_list) { 
       foreach $each_mismatch (@mismatch_type_list) { 
        $result_key = $mismatch_type . "_code_ " . $module; 
        print FH2" $result{$result_key},"; 
       } 
   }