Чтобы удалить символ из Perl Regex

Question

В Perl, у меня есть переменная:

$var = 1M; 

Но я хочу $var быть только 1. Я не хочу M в $var. Поэтому я использую регулярное выражение в Perl как:

$var = s/M/; 

Но его не работает.

Пожалуйста, помогите. Заранее спасибо.

Answer 1

Вы забываете добавить замену. Синтаксис для кода замены будет $variable =~ s/regex/replacement-string/modifier. Добавьте модификатор g в нижеследующий код, если вы хотите, чтобы замена произошла во всем мире.

use strict; 
use warnings; 
my $var = "1M"; 
$var =~ s/M//; 
print "$var\n"; 

Выход:

1 

Answer 2

$var=~s/M//g; 

Это должно работать. Я бы предложил сначала прочитать хороший учебник.

Answer 3

Вы использовали неправильный синтаксис для замены. Попробуйте использовать строгое использование; и использовать предупреждения;

use strict; 
use warnings; 

my $var = "1M"; 
$var =~ s/M//; 

print $var;