Perl：在Perl中打印值，并在键值中使用特定的单词

Question

我有一个包含以下值的散列值。它有多个（2）每个键的值。

my %output = ("projectA" => [ "Compliant files excl rules: 456 - 76% 
           Noncompliant files excl rules 142 - 24% " , 
          "Compliant files incl rules: 2910 - 84% 
           Noncompliant files incl rules: 572 - 16%" ], 
       "projectB" => [ "Compliant files excl rules: 345 - 72% 
           Noncompliant files excl rules 123 - 32% " , 
          "Compliant files incl rules: 1234 - 98% 
           Noncompliant files incl rules: 232- 10%" ]); 

所以，当我打印出来（电流输出），看起来像下面

Project Excluding rules        Including rules 
---------------------------------------------------------------------------------------- 
ProjectA Compliant file excl rules: 456 -76% Compliant files incl rules: 2910 - 84% 
     Noncompliant files excl rules: 142-24% Noncompliant files incl rules:572 - 16% 
ProjectB Compliant files excl rules: 345 - 72% Compliant files incl rules: 1234 - 98% 
     Noncompliant files excl rules: 123 - 32% Noncompliant files incl rules: 232- 10% 

*所需的输出*我怎样才能打印出来没有的话excl rules和incl rules。我不想为每个项目重复他们，因为我已经在标题中提到它。

Project Excluding rules        Including rules 
---------------------------------------------------------------------------------------- 
ProjectA Compliant files: 456 -76%     Compliant files: 2910 - 84% 
     Noncompliant files: 142-24%    Noncompliant files:572 - 16% 
ProjectB Compliant files: 345 - 72%    Compliant files : 1234 - 98% 
     Noncompliant files:123 - 32%    Noncompliant files: 232- 10% 

我使用打印它们目前的代码是：

my $key; 
foreach $key (sort keys %output) { 
$html .= "<tr><td>$key</td>"; 
    $html .= "<td>$_</td>" for @{ $output{$key} }; 
    $html .= " </tr>"; 
} 

Answer 1

改变这一行：

$html .= "<td>$_</td>" for @{ $output{$key} }; 

到

for (@{ $output{$key} }) { 
    s/ (ex|in)cl rules//g; 
    $html .= "<td>$_</td>"; 

}