08/11/30 14:18:37 H/ku35mj
perlのCGIスクリプトをサーバーにあげてためしに書き込みしてみたらパソコンからだと問題ないのに携帯からだと文字化けしてしまいます。
おおまかに書き込み時のプログラムを書くと
#!/usr/local/bin/perl
use strict;use warnings;
print "content-type: text/html; charset=\"shift_jis\"\n\n";
require "./decode.pl";
変数宣言
&decode;
という感じでdecode.plの中身は
use strict;use warnings;
sub decode{
変数宣言
our %in;
if($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN,$receive,$ENV{'CONTENT_LENGTH'});}else{
$receive=$ENV{'QUERY_STRING'};}
@pairs=split(/&/,$receive);
foreach (@pairs){
($name,$content)=split(/=/,$_);
$content=~ tr/+/ /;
$content=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$content=~ s/&/&/g;
$content=~ s/"/"/g;
$content=~ s/'/？/g;
$content=~ s/</</g;
$content=~ s/>/>/g;
$content=~ s/\r\n/<br>/g;
$content=~ s/\n/<br>/g;
$content=~ s/\r/<br>/g;
$in{$name}=$content;}}1;
となっております。