perl - 如何在 Perl 中打印出可用的以太网 NIC？

Question

我想知道是否可以实际打印出 linux 机器上存在的可用以太网卡？到目前为止，我已经从“ifconfig”命令中阅读了有关“Grep”的信息。

我必须使用“Net::IP”还是“IO::Socket”？我是这种编程语言的新手，所以有人可以就如何做到这一点提供一些建议吗？

很抱歉让你们困惑了！但是我需要脚本在执行 perl 脚本后直接在终端上打印“eth0”或“eth1”。

谢谢！

Answer 1

看看Net::Address::Ethernet。
它可能只是 ifconfig/ipconfig 的一个可移植包装器。不过，我对此并不担心，因为无论如何您都无法避免在这里调用 OS - 所以调用 ifconfig 可能与任何其他选项一样好。

还有一些其他模块可能值得一看。

UPD。如果您只需要接口名称，您还可以读取文件 /proc/net/dev. 现代 linux 应该有它，而且文件结构很容易解析。

Answer 2

如果您只为 GNU/Linux 或 *BSD 编程，那么您可以使用“ifconfig”中的“grep”。