使用perl从ifconfig中提取ip地址

lichengshuang

大家好如何从ifconfig中使用perl来提取到ip地址。谢谢。
因为在perl脚本中无法使用awk，当执行无法实现。
ifconfig
eth0      Link encap:Ethernet  HWaddr 00:16:764:A3:0D  
          inet addr:172.31.12.36  Bcast:172.31.12.255  Mask:255.255.255.0
          inet6 addr: fe80::216:76ff:fed4:a30d/64 Scopeink
使用  ifconfig | grep '[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}' | grep -v '127'| cut -d: -f2 | awk '{print $1}'
出来
172.31.12.36

但是在脚本中无法把ip地址给一个变量。

lichengshuang

ifconfig | perl -lne 'print $1 if/inet addr.*)Bcast/'
172.31.12.36

lichengshuang

^_^总算研究出来了。
不过大家有什么好的 表达式 欢迎指点我。 谢谢

lichengshuang

在脚本中 如何实现 就不知道了。

sparksong

#!/usr/bin/perl

$str = `ifconfig`;
$str =~ s/sdfsdlkfjsld//;  #根据你的机器上的输出自己填
print $str;

lichengshuang

Post by sparksong
#!/usr/bin/perl

$str = `ifconfig`;
$str =~ s/sdfsdlkfjsld//;  #根据你的机器上的输出自己填 （ 这里写啥东西）

print $str;

请指导一下，谢谢

饭饭

Post by lichengshuang;1769697
大家好如何从ifconfig中使用perl来提取到ip地址。谢谢。
因为在perl脚本中无法使用awk，当执行无法实现。
ifconfig
eth0      Link encap:Ethernet  HWaddr 00:16:764:A3:0D  
          inet addr:172.31.12.36  Bcast:172.31.12.255  Mask:255.255.255.0
          inet6 addr: fe80::216:76ff:fed4:a30d/64 Scopeink
使用  ifconfig | grep '[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}\.[0-9]\{1,3\}' | grep -v '127'| cut -d: -f2 | awk '{print $1}'
出来
172.31.12.36

但是在脚本中无法把ip地址给一个变量。

$a = `ifconfig`
if ($a=~ /^.*t.*) \  Mask.*/) {
        $ip=$1
}

$ip  就是IP地址