问题描述：如何使用perl找出分配给eth0或者ra0接口的IP地址？

解决方法：如果您需要知道正在运行的UNIX/Linux机器的IP地址，请使用以下perl一行代码。

Perl没有任何内置功能，但是结合ifconfig命令和shell管道，您可以制作以下内容来显示系统IP地址：

使用Perl和shell管道查找我的IP地址

在shell提示符下执行以下命令：

ifconfig -a | perl -ne 'if ( m/^\s*inet (?:addr:)?([\d.]+).*?cast/ ) { print qq(\n); exit 0; }'