+ -
当前位置:首页 → 问答吧 → SOS用perl正则实现

SOS用perl正则实现

时间:2010-10-26

来源:互联网

  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})
复制代码
不知道如何去引用。。
   请大家指点下   谢谢了

作者: mcshell   发布时间: 2010-10-26

# 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

作者: 兰花仙子   发布时间: 2010-10-26

回复 兰花仙子


     谢谢斑竹帮助

作者: mcshell   发布时间: 2010-10-26

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

作者: mcshell   发布时间: 2010-10-26