UTF-8とperl

一時はまったのでメモ。

#!/usr/bin/perl
# UTF-8で書かれたperlファイル

use CGI qw(:standard);
use strict 'refs';
use lib '..';
use utf8;
use Encode;
use MIME::Base64;
binmode STDOUT, ":utf8";
charset('utf-8');

print encode_base64(encode("UTF-8","日本語"));   # base64はLFつけてくれる
print decode("UTF-8",decode_base64("5pel5pys6Kqe")) . "\n";