태터툴즈 1.1.0.1과 이글루스(2006년12월10일 현재)에서 보내어 봤는데 잘 동작하는 것 같다. :-)
# UTF-8 -> EUC-KR sub encode_korean { my ($str, $from, $to) = @_; eval { require Encode; }; unless($@) { $str = Encode::encode($to, Encode::decode($from, $str)); } else { eval { require Text::Iconv; }; unless($@) { my $converter = Text::Iconv->new($from, $to); $str = $converter->convert($str); } } return $str; }
... my $blog_name = &GetParam('blog_name'); my $excerpt = &GetParam('excerpt'); # UTF-8 -> EUC-KR 전환 (이 단락 추가) if ($ENV{'CONTENT_TYPE'} and ($ENV{'CONTENT_TYPE'} =~ m/utf-8/i)) { $title = encode_korean($title, 'utf-8', 'euc-kr'); $blog_name = encode_korean($blog_name, 'utf-8', 'euc-kr'); $excerpt = encode_korean($excerpt, 'utf-8', 'euc-kr'); } ...