[问题求助] Perl语言怎样获取本机IP地址？

Perl

就像用批处理命令ipconfig得到的这种：
192.168.0.10

hwliu11

使用Socket或者NetBios，不知道Perl有没有对应模块

Perl

回复 2# lxzzr


我需要处理很多个国家语言的情况，怎么办？

lxzzr

现学现卖

my @string = `ipconfig`;

for ($index =0; $index < 45; $index++) {

        @IPAddress=split(/: /, $string[$index+3]) if ($string[$index] =~ /宽带连接:/);
}
print "$IPAddress[1]\n";
复制代码