置換によって別の文字列変数を定義していますか？

Question

2つの文字列変数が必要になることがあります.2つ目の文字列変数の値は、最初の文字置換によって得られます。

以下に示すより簡潔な方法がありますか？最初から2番目VARを定義するための2つの別々のコマンドを取ることは、バグが発生しやすいと面倒です：

# Example: "pstopdf" and "ps2pdf": 
my $name1 = "pstopdf"; 
my $name2 = $name1; 
$name2 =~ s/to/2/; 

Answer 1

(my $name2 = $name1) =~ s/to/2/; 

Answer 2

new features in Perl 5.14の一つは、あなたがmapに変換のこの種を行っている場合に便利ですnon-destructive substitution with the /r flag: s///rあります、 例えば。

/rフラグを使用して、の

my $name2 = $name1 =~ s/to/2/r;