如何将批处理替换转换为perl？

我有一个batchreplace语句，我想把它转换成perl。 但我仍然希望从批处理中调用perl，并将结果作为变量返回

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

最后，我不希望打印输出，只希望使用变量

%modified%

---

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

那么您希望简单地替换字符串中的字符吗？这可以在Perl中使用

tr//

操作符完成。例如：

use strict;
use warnings;

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

print "$modified\n";

---

那么您想简单地替换字符串中的字符？这可以在Perl中使用

tr//

操作符完成。例如：

use strict;
use warnings;

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

print "$modified\n";