Skip to content

Instantly share code, notes, and snippets.

@yuheiomori

yuheiomori/eucjpをMIME-header形式に変換

Created July 30, 2009 06:49
Show Gist options
  • Save yuheiomori/158599 to your computer and use it in GitHub Desktop.
Save yuheiomori/158599 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
eucjpをMIME-header形式に変換
use Encode;
use MIME::Base64;
Encode::from_to($data_from , "eucjp" , "iso-2022-jp");
$data = encode_base64($data,'');
$data =~ s/^(.*)$/=?iso-2022-jp?B?$1?=/mg;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment