これはなんて文字コードかわかりますか？

解決済

質問者：abiru
質問日時：2003/09/03 13:58
回答数：5件

「埼玉」を「%BA%EB%B6%CC」にしなければいけないのですが、これはなんという文字コードなのか分かりますでしょうか。
変換の命令文まで教えていただけるとうれしいです。
ご教授お願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.5ベストアンサー

回答者： noname#26283
回答日時：2003/09/07 13:50

　＃３です。

>jcode::convert(*value,'sjis');
…と変更したとのことですが、
>jcode::convert(\$value,'euc');
…と変更してみてください。実際にやって見たところ、私の環境では、変換後入力欄が文字化けを起こす不具合がありますが、変換自体は成功しています。

　上述の一文の文法的なことは分かりません。perlのことをよく知らないくせに回答し、申し訳ないです（汗）

- 0
- 件

通報する

この回答へのお礼

ありがとうございました。助かりました。

通報する

お礼日時：2003/09/07 15:51

No.4

回答者： arukamun
回答日時：2003/09/07 11:22

こんにちは

　　　　　埼　　　玉
EUC　　　BAEBh　　86CCh
JIS　　　3A6Bh　　364Ch
SJIS　　 8DE9h　　8BCAh

です。

- 0
- 件

通報する

No.3

回答者： noname#26283
回答日時：2003/09/07 04:26

> 「埼玉」を変換すると「%8d%e9%8b%ca」なりました。

　変換元の文字コードがシフトＪＩＳのようです。
　jcode.pl の機能を利用するとうまく行くかもしれません。
　ご自分でコーディングできるのであれば、参考ＵＲＬの情報さえあれば解決できると思います。

参考URL：http://homepage2.nifty.com/BASH/WWW/make_code.html

この回答への補足

ありがとうございます。
下で出しているソースで、
jcode::convert(*value,'sjis');
に変えてみましたが、結果はeucと同じでした。
結果が同じと言うことは何かが間違っているのでしょうか？

補足日時：2003/09/07 09:40

通報する

- 0
- 件

通報する

No.2

回答者： ranx
回答日時：2003/09/03 14:48

EUCをURLエンコードしたものだと思います。

- 0
- 件

通報する

No.1

回答者： Mizyu
回答日時：2003/09/03 14:16

URLエンコード／デコード

ですね。

参考URL：http://techtips.belution.com/ja/perl/0000/

この回答への補足

ありがとうございます。
教えていただいたURLを元に以下のソースを作り、「埼玉」を変換すると「%8d%e9%8b%ca」になりました。
何か違うようです。
ソース間違ってますでしょうか？

-----ここから
#!/usr/local/bin/perl

require './jcode.pl';

my ($buffer, @pairs, %FORM);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/,$buffer);
for (@pairs) {
my ($name, $value) = split(/=/, $_);
$value =~ tr/+/ /;
$value =~ s/%([a-f\d]{2})/pack 'H2',$1/egi;
jcode::convert(*value,'euc');
$FORM{$name} = $value;
}
$str = $FORM{'input'};
$str =~ s/([^\w ])/'%' . unpack('H2', $1)/eg;

print "Content-type: text/html\n\n";
print <<"EOM";
<html>
<head>
<title>文字コード変換</title>
</head>
<body>
<form action="a.cgi" method="post">
<input type="text" name="input" size="60" maxlength="255" value="$FORM{'input'}">
<input type="submit" value="変換">
</form>
それは、$str みたいです。
</body>
</html>
EOM
exit;