[Wellington-pm] Side effects

[Grant McLean]

On Fri, 2006-03-31 at 19:45 +1200, Cliff Pratt wrote:
> Hi Perlmongers!
> 
> I don't know if this qualifies as a tip or a question!
> 
> my $v = "123456789ABC" ;
> my $v1 = "7" ;
> 
> print "|" . eval { $v =~ s/$v1// ; return $v } . "|\n" ;
> 
> Now, orginally, I had the following:
> 
> print "|" . $v =~ s/$v1// . "|\n" ;
> 
> which prints "1", since "$v =~ s/$v1//" returns '1'.
> 
> I wanted to print the side-effect ($v with "7" removed).
> 
> After trying various things I got the line of code I printed at the
> beginning. Is this the best way of doing it?

Here's a way that might be clearer:

  $v =~ s/$v1//;
  print "|$v|\n";

:-)
Grant