從Perl的正則表達式

Question

在Perl中刪除角色，我有一個變量：

$var = 1M; 

但我想$var是唯一1。我不想在$var的M。所以我在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;