内部表現文字列を表示する方法について

Question

Google Big Queryを使用してデータを集計しているのですが、日本語のデータだけが内部表現文字列になってしまいます。
（\xE3\x83\x95のような形）

これを人の目で見れるような文字列に変換するためにはどうしたら良いでしょうか？
下記のようにダブルクォートで囲ってあげると正しく表示されます。
$testに入った文字列を’フ’と表示させる方法はありますか？

#!/bin/env perl
use strict;
use warnings;
use utf8;

my $test = '\xE3\x83\x95';
my $test2 = "\xE3\x83\x95";

print "$test\n\n";
print "$test2\n\n";

結果

\xE3\x83\x95

フ

Answer 1

通常のASCII文字と混ざるかもしれない場合は単に""でくくると副作用が起きるかもしれないので必要部分だけを置換するならこんな感じに:

#!/bin/env perl
use strict;
use warnings;
use utf8;

my $test = '\xE3\x83\x95';
my $test2 = "\xE3\x83\x95";

$test =~ s/(\x[0-9a-fA-F]{2})/chr(hex(substr($1, 2)))/ge;

print "$test\n\n";
print "$test2\n\n";

Comments

[acep]

ありがとうございます。
具体的に副作用とはどのようなことが考えられますか？""でくくるほうがわかりやすいのでできればそちらを採用したいと思っています。

[harrek]

元の文字列に変数名に見えるもの(下の例では"$a")が含まれている場合、""でくくると変数展開しようとして(未定義なので空文字列になり)消えてしまいます。

そのような文字列が来ないことが分かっているなら""でくくるほうがシンプルだと思います。

```perl
#!/bin/env perl
use strict;
use warnings;

my $test = '\xE3\x83\x95$a';

print eval(qq{"$test"}), "\n";

$test =~ s/(\x[0-9a-fA-F]{2})/chr(hex(substr($1, 2)))/ge;

print "$test\n";
```

[acep]

ありがとうございました。理解できました。$など記号類が出現しないことが保証されている文字列のため、""でくくる方法で行きたいと思います。

Answer 2

""で括り直せばいいということで。

#!/bin/env perl                                                                                                      
use strict;
use warnings;

my $test = '\xE3\x83\x95';
my $test2 = "\xE3\x83\x95";

print eval(qq{"$test"}), "\n";
print "$test2\n\n";