Ajax 日本語処理


  Perl ( Shift_JIS )



日本語変換には、jcode.pl 互換の Jcode を使用しました。基本的には、PHP と同じで特記する事はありません

  
#!/usr/local/bin/perl

print "Content-Type: text/html; Charset=shift_jis\n";
print "\n";

use Jcode;

$QUERY_STRING = $ENV{'QUERY_STRING'};

@Fields_Data = split(/&/, $QUERY_STRING);

foreach $Field_Data ( @Fields_Data ) {
	($Name, $Value) = split(/=/, $Field_Data);
	$Value =~ tr/+/ /;
	$Value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	Jcode::convert(\$Value, 'sjis', 'utf8');
	$_GET{$Name} = $Value;
}

if ( $_GET{'value'} eq '送信' ) {
	$sjis = '送信を受信しました';
}

print $sjis;

  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ