Reqexp в Perl не заменяя целые числовые символы, но оставляет последнюю цифру, как это

Question

Я пытаюсь устранить число из следующего текста:

This is a test for eliminating numbers from the text, the numbers are 3 1044 232 10.5 

с использованием кода Perl для регулярных выражений

$split1[$j] =~ s/\A[0-9]+\B/ /g; 

я должен получать выход в

This is a test for eliminating numbers from the text, the numbers are 10.5 

в 10.5 не является чисто числом, но и имеет ре riod к нему. Но вывод, который я получаю

This is a test for eliminating numbers from the text, the numbers are 3 4 2 0.5 

Answer 1

Как уже говорилось выше, вы по-прежнему держать некоторые цифры, потому что вы используете \B, что означает «не границу слова», так что все числа, которые находятся впереди границы слов сохраняются. При этом я не получаю результат, который вы указали в своей строке, потому что вы используете \A. Регулярное выражение не найдет ни одного из ваших номеров, потому что вы сказали ему искать его «в начале строки» с \A.

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

$split1[$j] =~ s/[0-9]+//g; 
$split1[$j] =~ s/\d+//g; 

регулярное выражение, которое будет найти любое число, в том числе с плавающей точкой, будет выглядеть примерно так:

$split1[$j] =~ s/[-+]?[0-9]*\.?[0-9]+//g;