[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

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

TOP

回复 2# lxzzr


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

TOP

现学现卖
  1. my @string = `ipconfig`;
  2. for ($index =0; $index < 45; $index++) {
  3.         @IPAddress=split(/: /, $string[$index+3]) if ($string[$index] =~ /宽带连接:/);
  4. }
  5. print "$IPAddress[1]\n";
复制代码

TOP

返回列表