perl 将字符串分割成二维数组

Question

好吧..这有效......

sub getApSrvs
{
my %apsrv;
my $cluster;

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

现在我如何在火腿三明治中让它像这样打印 $cluster --> $hostname

好吧，我添加了：

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

然后我得到...

qboc22->数组(0x9111618)

qboc5->数组(0x9111504)

qboc32->数组(0x90e20cc)

qboc28->数组(0x90e1d28)

qboc30->数组(0x90e1f38)

qboc23->数组(0x9111540)

qboc27->数组(0x911181c)

qboc29->数组(0x91115ac)

qbo->数组(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";
}

如果顺序很重要，您将需要在打印之前对键进行排序（排序键 %apsrv）。