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

i57110403

如题，想用PERL语言写一个 获取本机的IP/DNS/GW（机器的系统是WINDOWS，Redhat，SUSE或VMware），
并把获得的IP/DNS/GW都配置成固定的。
     不知道能不能实现。

gilet

可以

skskevin

i57110403

我自己写了一个获取WINDOWS下DHCP IP的程序：
$ip = $1 if `ipconfig /all` =~ m/IP Address.+\D(\d+\.\d+\.\d+\.\d+)\D/;
print "IP address is $ip\n";

$GW = $1 if `ipconfig /all` =~ m/Default Gateway.+\D(\d+\.\d+\.\d+\.\d+)\D/;
print "gateway is $GW\n";

$dns = $1 if `ipconfig /all` =~ m/DNS Servers.+\D(\d+\.\d+\.\d+\.\d+)\D/;
print "DNS is $dns\n";
但是不知道怎么可以用PERL设置成静态IP。
    还有就是在REDHAT  SUSE VMWARE下如何获得DHCP IP，以及配置成静态IP
有知道的请指点一下，谢谢啊

兰花仙子

Net::Interface:

http://search.cpan.org/~miker/Net-Interface-1.012/Interface.pm

liyangole

回复 4# i57110403


    windows 设置IP、 网关、DNS的方法 利用CMD 命令 netsh -> interface -> ipv4 -> add address "Nis information" x.x.x.x netmask
                                                                                                            add address "Nis information" gateway=x.x.x.x gwmetric=1

                                                                                                            add dnsservers "Local Area Connection" x.x.x.x index=1

   利用expect模块可以实现啦。linux 更简单啦。方法很多啦

liyangole

回复 5# 兰花仙子


    这个模块试试啦，顶了

Shell_HAT

1. use Sys::Hostname;
   
2. use Socket;
   
3. $host = hostname();
   
4. my $address = inet_ntoa(scalar gethostbyname($host || 'localhost'));
   
5. print $address;

复制代码

Shell_HAT

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

复制代码

zhaobin81

ifconfig|perl -lne 'print $1 if /((\d+\.){3}\d+)/ && !/127/'