linux - 如何在 perl 中实现 linux 查询？

Question

我在 Linux 上使用以下查询来获取服务器负载:

w | head -n 1 | awk '{print $12}'

现在我想通过 perl 脚本运行查询并在浏览器中打印输出。我怎么做？

Answer 1

以下生成一个进程而不是四个进程:

open(my $pipe, '-|', 'w') or die $!;
my $line = <$pipe>;
close($pipe);
my $load = (split ' ', $line)[11];

• close($pipe) 关闭阻止 w 发送更多输出的管道。
• split ' ', EXPR 在空格处拆分 EXPR。
• (EXPR)[11] 获取 EXPR 返回的第十二项。