直してみた。JSONモジュールを使うように修正。 Encode::JavaScript::UCSというのがあるのを知った。 Encodeモジュールのサブクラスで大変簡潔に書かれて いるので問題もないことでしょう。 #!/usr/bin/env perl use strict; use warnings; use autodie; use…