如何更換使用轉義字符的特殊字符

Question

my $c= 'ODD_`!"£$%^&*(){}][@@;:/?.>,<|\' 

我想他們都更換成特殊字符

如何achiveve本的快捷方式..

my $c= 'ODD_\`\!\"\£\$\%\^\&\*\(\)\{\}\]\[\@\,\;\:\/\?\.\>\,\<\|\\' 

Answer 1

使用quotemeta：

#!/usr/bin/env perl 

use warnings; use strict; 

my $c = 'ODD_`!"£$%^&*(){}][@@;:/?.>,<|\\'; 

print quotemeta($c), "\n"; 

請注意，您的$c定義將不會編譯爲y OU不得不逃離\即使在單引號的字符串。

Answer 2

儘管我認爲思南的答案對於我認爲您需要的答案是正確的（基於您的字符列表進行轉義），但爲了完整起見，我將添加模塊URI::Escape，這些模塊轉義HTML文本中的元字符。它似乎有一些設施來指定不安全的字符，所以也許它可以幫助你。