GET 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];