SOS用perl正则实现

mcshell

1. inet addr:204.188.247.43  Bcast:204.188.247.255  Mask:255.255.255.192
   
2.           inet addr:204.188.247.44  Bcast:204.188.247.255  Mask:255.255.255.192
   
3.           inet addr:204.188.247.45  Bcast:204.188.247.255  Mask:255.255.255.192
   
4.           inet addr:204.188.247.46  Bcast:204.188.247.255  Mask:255.255.255.192
   
5.           inet addr:204.188.247.47  Bcast:204.188.247.255  Mask:255.255.255.192
   
6.           inet addr:204.188.247.48  Bcast:204.188.247.255  Mask:255.255.255.192
   
7.           inet addr:204.188.247.49  Bcast:204.188.247.255  Mask:255.255.255.192
   
8.           inet addr:204.188.247.50  Bcast:204.188.247.255  Mask:255.255.255.192
   
9.           inet addr:204.188.247.51  Bcast:204.188.247.255  Mask:255.255.255.192
   
10.           inet addr:204.188.247.52  Bcast:204.188.247.255  Mask:255.255.255.192
    

复制代码

要求用perl正则提取出 第一行IP和最后掩码
如

1. 204.188.247.43   255.255.255.192
   
2. 。。。             。。。

复制代码

自己写出来了整个的正则

1. \w{1,4} \w{1,4}:((\d{1,3}\.){3}\d{1,3})  \w{1,5}:((\d{1,3}\.){3}\d{1,3})  \w{1,4}:((\d{1,3}\.){3}\d{1,3})

复制代码

不知道如何去引用。。
   请大家指点下   谢谢了

兰花仙子

# perl -le '
> $_="addr:204.188.247.44  Bcast:204.188.247.255  Mask:255.255.255.192";
> print "$1 $2" if /addr:(\d+\.\d+\.\d+\.\d+).*Mask:(\d+\.\d+\.\d+\.\d+)/'

204.188.247.44 255.255.255.192

mcshell

回复 2# 兰花仙子


     谢谢斑竹帮助

mcshell

我试一下  怎么指出来一行啊

珞水的大叔

回复 4# mcshell


   

要求用perl正则提取出 第一行IP和最后一行掩码

    你是要每一行的第一个ip和最后一个掩码？

1. perl -ne 'print "$1 $2" if /addr:(\d+\.\d+\.\d+\.\d+).*Mask:(\d+\.\d+\.\d+\.\d+)/' 文件名

复制代码

zhlong8

超人大侠从来都不去笑脸

mcshell

谢谢大家的帮助

toniz

楼主的眼神很忧郁。。。。