找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 19014|回复: 3

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

[复制链接]
发表于 2011-12-9 19:26:49 | 显示全部楼层 |阅读模式
就像用批处理命令ipconfig得到的这种:
192.168.0.10
发表于 2011-12-9 20:24:25 | 显示全部楼层
现学现卖

  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";
复制代码
 楼主| 发表于 2011-12-9 21:07:32 | 显示全部楼层
回复 2# lxzzr


我需要处理很多个国家语言的情况,怎么办?
发表于 2011-12-10 00:01:50 | 显示全部楼层
使用Socket或者NetBios,不知道Perl有没有对应模块
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 05:09 , Processed in 0.018291 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表