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

Question

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

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

最后我不想要打印输出，只需要使用变量 %modified%。

我如何在 perl 中编写上面的语句，以便 perl 获取测试字符串，用单引号替换 double 并将结果返回到变量中？

Answer 1

所以你想简单地替换字符串中的字符？这可以在 Perl 中使用 tr/// 运算符来完成。例如：

use strict;
use warnings;

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

print "$modified\n";