將分割變量從Perl腳本中的數組排序為此特定格式？

Question

我寫了一個腳本，使用兩個參數調用另一個腳本，其中一個是日志文件，另一個是sql文件，我想要捕獲的是來自數據庫的spid和cid（兩個條目），我已經管理過將輸出捕獲到數組中。 例如325是spid＆p58是cid。

325    p58
525    p58
591    p58
1180   p85

但我應該以特定的格式安排它，在那里不能有任何重復的cid，每個cid都應該在它旁邊打印spid。 我已經設法拆分陣列，這是我到目前為止所能想到的

p58- 325
p58- 525
p58- 591
p58- 1180 

這是所需的格式。

p58-325,525,591,1180

    my @results = capture( [0,1,2], $^X, "/asp_batch/bin/clientquery.pl", @ARGV);


    my $size =  scalar(@results);


    for (my $count = 0; $count < $size; $count++)
      {
         my ($spid, $cid) = split /\s+/, $results[$count];
         print $cid, "- ";
         print $spid, "\n";

      }     

Answer 1

使用哈希來收集在cid上索引的值。 收集完所有內容后，在散列中為每個鍵輸出一行：

my %hash;

for (my $count = 0; $count < $size; $count++)
      {
         my ($spid, $cid) = split /\s+/, $results[$count];
         # the hash value is an anonymous array
         # it's created automatically for you when
         # you treat the value as a reference
         push @{ $hash{$cid} }, $spid;

      }  

foreach my $cid ( sort keys %hash ) 
    {
      say "$cid- ", join " ", @{ $hash{$cid} };
    }

這是一種非常常見的Perl技術。 大多數情況下，“只有一次”或“獨特”出現在問題中，有人會想要哈希。