从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 strict;
use warnings;

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

print $var;