Perl - 如何將轉義序列轉換爲字符串？

Question

我正在將一種形式的正則表達式轉換爲Perl兼容的正則表達式。我需要更換的%s所有出現\s，所以我做：

$s =~ s/(?<!%)%s/\s/g; 

但它給我的錯誤：Unrecognized escape \s passed through at ....。其實我正在理解問題出在哪裏，所以我可能無法將字符串轉換爲未知的轉義序列。但我怎麼繞過這件事？

Answer 1

你只需要逃避\，如：

$s =~ s/(?<!%)%s/\\s/g; 

例如

my $s = "this is a %s test with two %s sequences, the last one here %%s not changed"; 
$s =~ s/(?<!%)%s/\\s/g; 
print "$s\n"; 

打印

this is a \s test with two \s sequences, the last one here %%s not changed 

（不知道你是否需要%% s到結束只是％s，如果是這樣，它需要一點點調整或第二個正則表達式來做到這一點）。