perl将字符串拆分为2d数组

Question

好的......这有效......

sub getApSrvs
{
my %apsrv;
my $cluster;

  foreach $cluster (getClusters())
  {
  $apsrv{$cluster} = [split('\s+', `/$cluster/bin/gethosts -t app|sort -u`)];
  }
return %apsrv;
}

...现在如何在火腿三明治中打印这样的 $ cluster - ＆gt; $ hostname

好的，我补充道：

my %apsrv = getApSrvs();
for my $cluster (keys %apsrv) {
print "$cluster -> $apsrv{$cluster}\n";
}

我得到......

  

qboc22 - ＆gt; ARRAY（0x9111618）

     

qboc5 - ＆gt; ARRAY（0x9111504）

     

qboc32 - ＆gt; ARRAY（0x90e20cc）

     

qboc28 - ＆gt; ARRAY（0x90e1d28）

     

qboc30 - ＆gt; ARRAY（0x90e1f38）

     

qboc23 - ＆gt; ARRAY（0x9111540）

     

qboc27 - ＆gt; ARRAY（0x911181c）

     

qboc29 - ＆gt; ARRAY（0x91115ac）

     

qbo - ＆gt; ARRAY（0x90e2294）

Answer 1

$ apsrv {$ cluster}是对数组的引用，因此如果要打印它的内容，您可以这样做：

my %apsrv = getApSrvs();
for my $cluster (keys %apsrv) {
    print "$cluster -> ", join(', ', @$apsrv{$cluster}), "\n";
}

Answer 2

my %apsrv = getApSrvs();
for my $cluster (keys %apsrv) {
    print "$cluster -> $apsrv{$cluster}\n";
}

如果订单很重要，您需要在打印前对键（sort keys %apsrv）进行排序。