携帯サイトのWebプログラムを語ろう Part2

携帯サイトのWebプロ� ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

820:nobodyさん
 08/11/30 01:31:15 
金に使われる人生哀しいなあ

821:nobodyさん
 08/11/30 05:44:11 
携帯を食うわけにもいかないしな

822:nobodyさん
 08/11/30 05:51:42 
SJIS外字って、機種が分からないと対応のしようがないぞ 
SB系3Gはutf-8じゃないと絵文字が飛んでこないっていう仕様らしいから、 
一律utf-8のフォームから投稿させてるんだから

823:nobodyさん
 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; 
となっております。

次ページ