打印哈希值

Question

我有一組哈希值是具有相同數量的元素的數組。它們正在彼此下面打印，但我想將它們打印在一起。

在下面的輸出中，以clakin_p，clkin_N和phy2clb_scan_out開頭的列是不同的數組，它們是散列值，它們應該彼此相鄰。

for (my $m = 0; $m <= ($#pin_names); $m++) { 
    for (my $n = 0; $n <= ($#output); $n++) { 
     if ($pin_names[$m] eq $output[$n]) { 
      print "$hash{$n}\n"; 
     } 
    } 
} 

電流輸出： -

clkin_P 
     1 
     1 
    clkin_N 
     0 
     0 
    phy2clb_scan_out 
     H 
     H 

Answer 1

你的聲明print "$hash{$n}\n";包括在末端（\n）一個換行符。這會導致每個散列值被打印在一個單獨的行上。只需刪除換行符。

此外，在Perl中很少需要傳統的for循環，您可以在其中跟蹤迭代器，並且可能會導致代碼中出現錯誤。更好的是這樣的：

foreach my $pin (@pin_names) { 
    foreach my $out (@output) { 
     if ($pin eq $out) { 
      print "$hash{$n} "; 
     } 
    } 
}