让 perl 处理字符串中的反斜杠转义

Question

考虑这段代码：

my $str = '"line 1\n\t line 2"'; # from some JSON, or something
say $str; # print literal backslashes, not what I want
say eval $str; # processes backslashes, but overkill

是否有一种相当简单的方法来获得最后一行的效果，但不使用成熟的 eval？即使抛开安全隐患（我主要信任这个字符串），这也会插入我不想要的变量和东西。这可以通过一个额外的预处理步骤来解决，我手动转义美元符号等，但这仍然感觉有点太老套了，即使是我的口味。

Answer 1

@mob 有正确的建议。对于一般问题：

#!/usr/bin/env perl

use strict;
use warnings;

my %unescape = map +($_ => eval "qq{\\$_}"), qw(f n r t); # etc
my $special = join '|', keys %unescape;
my $str = '"line 1\n\t line 2"';

$str =~ s{ \\ ($special) }{$unescape{$1}}xg;

print "'$str\n'";

Answer 2

如果是 JSON，则用 JSON 解码。

use JSON;
my $str = '"line 1\n\t line 2"'; # from some JSON, or something
my $decoded = JSON::decode_json("[$str]");
say $decoded->[0];