perl - 如何使用 Perl 对 kstat -p 的输出进行哈希处理？

Question

我正在工作，所以我需要使用一些东西来获取一些信息kstat -p。所以我正在考虑创建一个所有输出为kstat -p.

Sample output from kstat -p

cpu_stat:0:cpu_stat0:user       18804249

访问值

@{$kstat->{cpu_stat}{0}{cpu_stat0}}{qw(user)};

我还查看了 CPAN 是否有任何可用的模块，发现Sun::Solaris::Kstat但我的 Sun 版本不可用。请建议代码来创建一个带有输出值的哈希变量kstat -p。

Answer 1

使用引用，创建分层数据结构只是有点棘手；唯一有趣的部分来自我们希望以不同方式处理最终级别的事实（分配一个值而不是创建一个新的哈希级别）。

# If you don't create the ref here then assigning $target won't do
# anything useful later on.
my $kstat = {};
open my $fh, '-|', qw(kstat -p) or die "$! execing kstat";
while (<$fh>) {
  chomp;
  my ($compound_key, $value) = split " ", $_, 2;
  my @hier = split /:/, $compound_key;
  my $last_key = pop @hier; # handle this one differently.
  my $target = $kstat;
  for my $key (@hier) { # All intermediate levels
    # Drill down to the next level, creating it if we have to.
    $target = ($target->{$key} ||= {});
  }
  $target->{$last_key} = $value; # Then write the final value in place.
}