Question

关于perl从text文件中查找特定非数字字符串

1找出这个字符串 并将其print出来
2找出跟这个字符串在一起的前后各一个字符 并print出来

Answer 1

perl -e ' $_="123double456" ; /(\d)(\D+)(\d)/ ; print "$1 $2 $3" '

追问

但是如果是text文件中是如下的一段话：
Walmart chief executive Douglas McMillon defends company's decision to invest billions
要找出McMillon这个词左右附近的词，例如 ”Douglas McMillon defends“其中左边是“Douglas“ 右边是 ”defends“请问应该如何处理？

追答

perl-e ' $_ = "Walmart chief executive DouglasMcMillon defends companys decision to invest billions";
/(\w+)\s+McMillon\s+(\w+)/ ;
print"$1 - $2" '