Unicode::RecursiveDowngrade を初めて使った

とりあえずメモ書きするお。

my $rd = Unicode::RecursiveDowngrade->new;
$rd->filter(sub {
  my $val = shift;
  unless (Encode::is_utf8($val)) {
    $val = Encode::decode('utf-8', $val);
  }
});
$data = $rd->downgrade($data);

後日談

23:20 (woremacx) 記事にした！

23:20 (woremacx) これ超便利だったんだけど

23:21 (woremacx) 逆の用途に使っちゃった＞＜

23:21 (tomyhero) lol

23:21 (tomyhero) http://search.cpan.org/~dmaki/Data-Visitor-Encode-0.09000/lib/Data/Visitor/Encode.pm

23:21 (mobitaro) Data::Visitor::Encode - Encode/Decode Values In A Structure ... [text/html; charset=iso-8859-1]

23:22 (woremacx) 先に言ってくださいよ！！

23:22 (tomyhero) 今思い出した

23:22 (tomyhero) これさ

23:22 (tomyhero) nipotanサンに前

23:22 (tomyhero) こっちがいいかもと

23:22 (tomyhero) 教えてもらったのを

23:22 (tomyhero) ><

ということで、Data::Visitor::Encode を今度使ってみたいと思います！