这种替代有什么问题？

Question

#!/usr/bin/perl

use strict;
use warnings;

my $s = "sad day
 Good day
 May be Bad Day 
 ";

$s =~ s/\w+ \w+/_/gm;

print $s;

我试图用_替换单词之间的所有空格,但它不起作用.这有什么问题？

Answer 1

替换替换整个单词(\w+)然后是空格,然后用下划线替换另一个单词.

实际上没有必要替换(或捕获重要的)这些词

$a=~s/\b +\b/_/gm;

将替换一个单词中断(\b一个单词和一个非单词之间的零宽度过渡),后跟一个或多个空格,后跟另一个单词中断,用下划线.使用\b可确保您不会在新行之后或之前替换空格.