str + varとしたとき、varの型がfloatなどの数値だとうまく動かない場合があるので
str & varを基本とした方が良いと思われる
print qq{Content-type: application/octet-stream\n}; print qq{Content-Disposition: attachment; filename="aiueo"\n\n};
require 'unicode.pl'; require 'jcode.pl'; sub sjis2utf8 { local($w) = @_; &jcode::convert(*w,'euc'); my @unicodeList = &unicode::e2u($w); my $utf8 = &unicode::UTF16toUTF8(@unicodeList); return $utf8; }
$utf8str = &sjis2utf8('シフトJISの文字列');