SOS用perl正則實(shí)現(xiàn)

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
    

復(fù)制代碼

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

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

復(fù)制代碼

自己寫(xiě)出來(lái)了整個(gè)的正則

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})

復(fù)制代碼

不知道如何去引用。。
   請(qǐng)大家指點(diǎn)下   謝謝了

蘭花仙子

# 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

回復(fù) 2# 蘭花仙子


     謝謝斑竹幫助

mcshell

我試一下  怎么指出來(lái)一行啊

珞水的大叔

回復(fù) 4# mcshell


   

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

    你是要每一行的第一個(gè)ip和最后一個(gè)掩碼？

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

復(fù)制代碼

zhlong8

超人大俠從來(lái)都不去笑臉

mcshell

謝謝大家的幫助

toniz

樓主的眼神很憂(yōu)郁。。。。