请教用正则表达式查找数字字符串

jason680

回复 9# bikkuri

There is the common and good way for Unix like(Linux, Solaris, HUX, ...), but you may not like it

$ perl -lane '{print $1 if(m/\b(\d-\d{7})\b/)}' FILE
1-5702630

   

drakness

回复 6# bikkuri


    在jason大婶基础上修改个perl的通用版

1. perl -F':'  -lane 'foreach(0..$#F){print $F[$_] if  $F[$_]=~s/(.*)(\d-\d{7})(.*)/$2/g}'

复制代码

1. perl -F':'  -lane 's%(.*)(\d-\d{7})(.*)%$2%g;print if m%\d-\d{7}%'

复制代码

bikkuri

谢谢各位大神的赐教。