Board logo

标题: [问题求助] Perl语言怎样获取本机IP地址？ [打印本页]
作者: Perl    时间: 2011-12-9 19:26     标题: Perl语言怎样获取本机IP地址？

就像用批处理命令ipconfig得到的这种：
192.168.0.10
作者: lxzzr    时间: 2011-12-9 20:24

现学现卖
  1. my @string = `ipconfig`;

  2. 

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

  4. 

  5.         @IPAddress=split(/: /, $string[$index+3]) if ($string[$index] =~ /宽带连接:/);

  6. }

  7. print "$IPAddress[1]\n";
复制代码
作者: Perl    时间: 2011-12-9 21:07

回复 2# lxzzr


我需要处理很多个国家语言的情况，怎么办？
作者: hwliu11    时间: 2011-12-10 00:01

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



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2