Perl 将一行读入哈希键，另一行读入值

Question

我试图使用外部命令绘制统计数据，外部命令的输出是两行，类似于

insert  query update delete getmore command flushes mapped  vsize
*0    961     *0     *0       0     4|0       0  42.2g  85.2g

我试图把它变成一个散列，所以我以后可以调用键插入/查询将给出相应的值 0/961 我将每一行读入一个数组，如

foreach my $line (@QPS_RAW){
    chomp $line;
    my @STATS_RAW=split("\n ", $line);
    push (@STATS, @STATS_RAW);
    print Dumper @STATS;
}

但我不知道如何将第一行的每个元素推入哈希键，并将第二行的每个元素推入值。任何指针都非常感谢。

Answer 1

使用哈希切片：

#!/usr/bin/perl
use warnings;
use strict;

use Data::Dumper;

my @names  = split ' ', <>;
my @values = split ' ', <>;

my %hash;
@hash{@names} = @values;
print Dumper \%hash;