Perl 如何用转义字符替换特殊字符 my$c='ODD\`！“£$%^&*（）{}][@；：/？。>，

使用

quotemeta

：

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

！/usr/bin/env perl
使用警告；使用严格的警告；
我的$c='ODD_`！“£$%^&*（{}][@；：/？。>，使用
quotemeta
：

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

！/usr/bin/env perl
使用警告；使用严格的警告；
我的$c='ODD_`！“£$%^&*（{}][@；：/？。>，而我认为Sinan的答案是正确的，我假设你需要（基于你要转义的字符列表），为了完整起见，我将添加一个模块，用于转义HTML文本中的元字符。不过，它似乎有一些功能来指定不安全字符，因此它可能也会对您有所帮助。
而我认为Sinan的答案对于我假设您需要的内容是正确的（基于您要转义的字符列表），为完整起见，我将添加一个模块，用于转义HTML文本中的元字符。不过，它似乎有一些功能来指定不安全的字符，因此它可能也会对您有所帮助

#!/usr/bin/env perl

use warnings; use strict;

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

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