Perl，获取没有特殊模块的接口列表

Question

我正在为vnstat / vnstati上的Webfront编写Perl脚本。我不确定如何在没有任何特殊模块的情况下构建接口列表，例如Net::Interface或OS::Interface

以下是我在bash中的表现：

ip addr show|grep "^[0-9]:"|grep -e "state UP"|cut -d':' -f2

返回wlan1，但我需要让它在Perl中创建一个数组。以下是我到目前为止的情况：

my @graphs = (
        { interface => 'eth0' },
        { interface => 'venet0' },
);

这是“默认”，但我的一些机器有超过1，我不想在每次构建新的测试服务器时自定义它。

Answer 1

问题是什么？如何执行和捕获该shell命令的输出？

my $output = `...command...`;