Поиск и замена динамически PERL регулярных выражений

Question

$string = "On 0 8 February 2 0 1 4 , he visited the fair"; 

Я хочу, чтобы заменить пробелы между номерами, так что становится "On 08 February 2014, he visited the fair"

Как я могу сделать это с помощью регулярных выражений? Я могу сделать индекс for loop по индексу, но при большом количестве текста он будет медленным.

Это идея о том, что я пытаюсь достичь:

$string =~ s/([0-9]\s)+/substr($string,$-[0],$+[0]-$-[0])/g; 

, но это не будет работать, так как подстрока не рассматривается в качестве функции в регулярном выражении. Есть идеи?

Answer 1

Вы можете использовать оглядываться и смотреть вперед, чтобы фильтровать такие пробелы,

$string =~ s/[0-9]\K [ ]+ (?=[,0-9])//xg; 

Answer 2

Попробуйте этот код:

do{ 
    $string =~s/(\d+)\s+(\d+)/$1$2/g; 
} while($string =~/(\d+)\s+(\d+)/); 

Answer 3

Вы также можете попробовать следующее регулярное выражение $string =~ s/(?<=\d)\s+(?![a-z])//ig;