通過替換定義另一個字符串變量？

Question

我有時需要兩個字符串變量，其中第二個的值是從第一個字符替換得出的。

有沒有比下面顯示的更簡潔的方法？以兩個獨立的命令從第一定義第二變種是容易出錯和繁瑣：

# 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的是non-destructive substitution with the /r flag: s///r其中派上用場，如果你是在一個map做這種轉變， 例如。

使用/r標誌，你會寫的

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