Regular Expressions on variable in Perl

Question

I have value E.1.1.1 in a variable, I want E111 stored in different variable.

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

The above code changes the value in $var1 variable. I want to try as below.

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

Suggest how to do. I am new to Perl.

Try: `(my $var2 = $var1) =~ s/\.//g` or use the `r` modifier — Håkon Hægland, Apr 04 '17 at 15:09

score 2 · Answer 1 · answered Apr 04 '17 at 15:11

2

Something like this should work:

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

answered Apr 04 '17 at 15:11

Rob W.

1

On newish perls: `my $var2 = $var1 =~ s/\.//gr;` – Sobrique Apr 04 '17 at 15:17

score 2 · Answer 2 · answered Apr 04 '17 at 15:19

2

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

or

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

or

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

answered Apr 04 '17 at 15:19

ikegami

score 0 · Answer 3 · answered Apr 04 '17 at 15:39

You already got universal answers using s///.

For this specific task, removing . from a string , you can also use the y (alias tr).

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

or

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

3 Answers3