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