10/06/08 11:05:28
文字列をutf8からsjisに変換するのに、jcode を使用すると特定の文字が変換されずに？になってしまいます。（'１～５' → '１?５'）
正しく変換するにはどのようにすればよいのでしょうか。
#!/usr/bin/perl
use Jcode;
my $utf = "１～５";
my $sjis = jcode($utf)->sjis;
my $euc = jcode($utf)->euc;
print jcode($sjis)->utf8 . "/" . $utf . "/" . jcode($euc)->utf8;