Perl中变量的正则表达式

Question

我在变量中有值E.1.1.1，我希望E111存储在不同的变量中。

$var1 = "E.1.1.1";
$var1 =~ s/\.//g;

上面的代码更改了$var1变量中的值。我想尝试如下。

$var2 = s/\.//g $var1;

建议怎么做。我是Perl的新手。

Answer 1

这样的事情应该有效：

(my $var2 = $var1) =~ s/\.//g;

Answer 2

my $var2 = $var1;
$var2 =~ s/\.//g;

或

( my $var2 = $var1 ) =~ s/\.//g;

或

my $var2 = $var1 =~ s/\.//gr;    # 5.14+

Answer 3

您已使用s///获得了通用答案。

对于此特定任务，从字符串中删除.，您还可以使用y（别名tr）。

( my $var2 = $var1 ) =~ y/.//d;

或

my $var2 = $var1 =~ y/.//dr; #the /r needs 5.14+

更多信息：perlop - Quote-Like Operators