大家好如何从ifconfig中使用perl来提取到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地址给一个变量。

coolend

使用 ip 命令

1. 
   
2. foreach (qx|ip addr show dev eth0|) {
   
3.         if (/^\s+inet ([0-9\.]+)\/\d+/) {
   
4.                $ip = $1; last;
   
5.         }
   
6.     }
   

复制代码

使用 ifconfig 命令

1. 
   
2.     foreach (qx|ifconfig eth0|) {
   
3.         if (/^\s+inet addr:([0-9\.]+)/) {
   
4.                $ip = $1; last;
   
5.         }
   
6.     }
   

复制代码

其实字符串匹配是perl的强项，不需要使用 awk 和 grep 来完成[QUOTE][/QUOTE]

xuanfei

Post by lichengshuang
大家好如何从ifconfig中使用perl来提取到ip地址。谢谢。
因为在perl脚本中无法使用awk

用  perl -lne ' print $1 if ( /((\d{1,3}\.){3}\d{1,3})/ ) '    试试 接下来就看你发挥了 good luck

lastart

Post by xuanfei
用  perl -lne ' print $1 if ( /((\d{1,3}\.){3}\d{1,3})/ ) '    试试 接下来就看你发挥了 good luck

perl 果然强大.
能解释下-ln的意义吗?

huan

看看这个就明白

2. perl -MO=Deparse -le 1
3. perl -MO=Deparse -lne 1

复制代码

lxmxn

顺便问问，如果一个文本里面含有IP地址，内容如下：

15.16.17.18 and 18.52.62.15 and 64.28.59.75
21.23.25.29 or 15.156.15.48 or 184.46.46.4

如何用perl将里面的所有IP地址都过滤出来输出到文件IP.txt中？
要求得到的IP.txt的内容就是:

15.16.17.18
18.52.62.15
64.28.59.75
21.23.25.29
15.156.15.48
184.46.46.4

huan

2. [ 01:29:18 | /tmp | $?: 0 ]
3. $ cat txt
4. 15.16.17.18 and 18.52.62.15 and 64.28.59.75
5. 21.23.25.29 or 15.156.15.48 or 184.46.46.4
6. [ 01:29:20 | /tmp | $?: 0 ]
7. $ perl -lne ' print $1 while /((:?\d{1,3}\.){3}\d{1,3})/g ' txt
8. 15.16.17.18
9. 18.52.62.15
10. 64.28.59.75
11. 21.23.25.29
12. 15.156.15.48
13. 184.46.46.4
14. [ 01:29:23 | /tmp | $?: 0 ]
15. $                                                         

复制代码

lxmxn

非常感谢huan的回复.
另外想请教一下那个Perl命令里面“:?”有什么作用，剔除“:?”似乎也成。

huan

每一个被()捕获的串都将被放入$1, $2...中
(:?)取消这个功能， 只是分组
详细请看Perl扩展正则的解释

lichengshuang

谢谢大家

啥也不说了，就是学习。谢谢