如何将批量替换转换为Perl？

Question

我有一个批量替换语句，我想转移到Perl。 但我仍然想从批处理中调用perl，并将结果作为变量返回。

SET TEST = "mystring" 
SET modified=%TEST:"='% 
ECHO %modified% //prints: 'mystring' 

最后我不想打印，只是变量%modified%的工作。

我怎么能写perl上面的语句，以便perl接受teststring，用单引号替换double并将结果返回给变量？

Answer 1

所以你想简单地替换字符串中的字符？这可以在Perl中使用tr///运算符完成。 E.G .:

use strict; 
use warnings; 

my $test = q("mystring"); 
my $modified = $test; 
$modified =~ tr/"/'/; 

print "$modified\n";