匹配替换单词之间的空格

freesiaSS

仅匹配特定单词之间的空格，
比如，将   Lej flava Aej cavifo Dej sjua  替换成
              Lej_flava Aej_cavifo Dej_sjua
有没有什么简便的方法。

白菜饺子馅

所能想到的就是找到特定单词之间的规律，凑出一个结果来。
$s =~ s/(\w+)\s+(\w+)\s+(\w+)\s+(\w+)/$1_$2 $3_$4/;

b114213903

1. #!perl
   
2. use strict;
   
3. 
   
4. my $string='Lej flava Aej cavifo Dej sjua';
   
5. 
   
6. $string=~s/([A-Z][a-z]+)\s+/$1_/g;
   
7. 
   
8. print "$string\n";

复制代码

jason680

回复 1# freesiaSS

$ echo "Lej flava Aej cavifo Dej sjua" | perl -pe 's/(\w+) (\w+)/$1_$2/g'
Lej_flava Aej_cavifo Dej_sjua

   

freesiaSS

回复 3# b114213903

太理解我了。。。。。我就是想把大写字母前的空格，替换成_
很有帮助，谢谢啦～


   

freesiaSS

回复 4# jason680

谢谢，受教啦


   

freesiaSS

回复 2# 白菜饺子馅


我的数据量比较大，有几百个，这样的需要替换啊，手残