Что не так с этой заменой?

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

замена Эта модель, вероятно, является наиболее эффективным решением:

$a =~ s/\b \b/_/g; 

Answer 2

Подстановка заменяет целое слово (\w+), то пространство затем другое слово подчеркивания.

Там действительно нет необходимости заменить (или захват для того, что имеет значение) эти слова

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

заменит перерыв слова (\b, нулевую шириной перехода между словом и неустановленным словом), а затем одно или несколько пробелов, за которым следует другой разрыв слова, под знаком подчеркивания. Использование \b гарантирует, что вы не замените пробел после или до новой строки.

Answer 3

Этот вопрос не был бы полным без ответа с участием явно look-ahead and look-behind assertions:

$s =~ s/(?<=\w) (?=\w+)/_/g 

• Это фактически то же самое, как и решения, связанных с нулевой шириной слова-границей якоря, \b.

• Обратите внимание, что регулярные выражения могут соответствовать регулярным выражениям любой длины символов, но регулярные выражения look-behind должны иметь фиксированную длину (поэтому (?<=\w+) не может быть выполнено).