关于用PERL 语言实现获取当前机器的IP，并配置成固定IP

i57110403

我在SUSE系统上试了上面的代码，得到的IP都是127.0.0.1。我想要的是eth0的IP地址啊。
有其他代码能实现获取eth0或eth1上面的DHCP IP地址吗？ 有办法能实现将获取的动态IP配置成固定IP吗？
    另外，那WINDOWS下的IP配置成固定IP要怎么实现啊。

yaoliwei

回复 11# i57110403


    等于前面别人那么多热心回答你都没看啊？:wink:

Shell_HAT

回复 11# i57110403


这样可以吗？

1. 
   
2. my $IP = `ifconfig eth0 | awk '/broadcast/{print \$2}`;
   
3. print "$IP";
   

复制代码

redskywy

windows下注册表中保留了必要的信息的
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\Tcpip\Parameters\Interfaces\{GUID}
{GUID}
然后使用 Win32::API来读取相应的信息

i57110403

谢谢，获取DHCP我知道咋么弄了。谢谢
如果我要用PERL 脚本能实现配置固定IP、DNS、GW、MASK吗？ 分别在Windows、Linux、vmware下实现。

Shell_HAT

回复 15# i57110403


6楼不是说了吗，Windows可以调用netsh命令来实现。
你的vmware里面安装的什么操作系统？

i57110403

回复 16# Shell_HAT


    是的，我知道Windows下可以用“netsh interface......” 实现，用PERL 也可以“system(`netsh interface......`)”去实现它。
但我想知道通过PERL 本身的语言是否能实现网络配置