Posted by 柿花 剛 on August 17日 (1997年) 23時39分40秒:
In Reply to: Re: formmailをニフティーで受け取ると文字化けが posted by 森帆 on August 17日 (1997年) 22時48分28秒:
森帆さん、こんにちは。jcode.plの使い方はjcode.pl自身に書かれていたと思いますが、きわめて簡単です。
私のWebページの『ひとこと掲示板』での処理の一部をつけときます。
#!/bin/perl
require 'jcode.pl';
(中略)
#========== パラメータの解析 ==========
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $str, $ENV{'CONTENT_LENGTH'});
} else {
$str = $ENV{'QUERY_STRING'};
}
#----- 半角スペースの復元 -----
$str =~ tr/+/ /;
#----- 半角カナと漢字コードの変換 -----
$str =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
&jcode'h2z_sjis(*str);
&jcode'convert(*str, 'sjis');
#----- 改行の処理 -----
$str =~ s/\015\012/\012/g;
$str =~ s/\015/\012/g;
(後略)