如何將批量替換轉換爲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";