この質問と回答を読んで役に立った場合は「役に立つ質問」に投票してください。投票が多い質問は、役に立つ質問一覧に掲載され、より多くの人に見てもらうことができます。

文字化けとは関係ないですが、大文字を小文字にするなら、

$aaa = ~tr/A-Z/a-z/;

の方がいいと思います。1文字マッチで、マッチ情報全体を参照して大文字に、というのは大げさすぎますｗ

ご質問の記述からすると、Perlは5系で、jcode.plでしょうか？これらのバージョンと入力された文字コード＋できれば化けた文字列を書いて頂いた方がいいかもしれません。
Perlの場合、環境にもよりますが、他にJcode.pm/Encode.pmなど変換の選択肢はあります。

＃ブラウザで出力を確認していると思いますが、ブラウザがeucになってる（HTMLで文字コードを指定していない）とか、ないですよね？

>>#1
いや～、Perlも始めたばっかりでよくわからないんです・・・
ただ、結構あいまいに書いても動くので・・・

Perlは、5.何番かです。
jcode.plを使っています。
化けた文字は「天気」です。
ブラウザのエンコードは絶対におかしくありません。
で、送信したのは、「SJIS」、
Perlのコードも「SJIS」で作ってあります。

なるほど、問題点が見えましたｗ
>>#2
あのですね・・・SJISで送信したものをSJISで出力するのに、変換する必要がなぜあるのでしょう？
ブラウザ側で送信する前に小文字に変換；
document.form1.name1.value=document.form1.name1.value.toUpperCase();
すれば、それでいい話だと思いますが。。。

Perl内でどうしてもやるなら、ひみつさんの回答１の方法か、単純に

$aaa=uc($aaa);

でいい気がします。uc(UpperCase)は今のPerlならたぶん大丈夫です。

他の正規表現を使うような処理をするのなら、eucにした方が無難です。スクリプト自身もeucにすべきです。utf8にするという選択肢はアリだと思いますが。

Perlのバージョンは、まさか、今更4系はないと思いますので、6系がまだ普及していないことを考えると、5系なのはわかっているのですが、5.8を境に微妙に違うので聞いてみましたが、たぶん、そういう問題ではなかったようです。

>>#3
ちょっと補足：
「eucに」、というのは「プログラム中での文字コードは」という意味です。SJISにするなら、出力する直前に、ということ。

CGIとして動かすスクリプトの文字コードは、
動かす環境の文字コードに合わせるべきです。

ほとんどのLinux/Unix系OSではEUCが使われており、
このような環境であればEUCで記述されるべきです。
環境構築時にUTF8を選択していればUTF8にするべきです。

ただし、一部のftpソフトが文字コード変換機能を
持つことも考慮してよいとおもいます。

ShiftJISの天気は16進数表示で
93 56 8B 43の4バイトになりますが、
56はV、43はCのASCIIコードに該当するため、
ShiftJISのままでは置換できません。

>>#3
の記述ミスりました。大文字にしてしまいました＞＜
document.form1.name1.value=document.form1.name1.value.toLowerCase();
で、
$aaa=lc($aaa);
の間違いです。失礼しました。

今後のことを考えるなら、
#フォームデータを受け取る
#受け取ったものを全てeucに変換
#・・・目的の処理
#SJISに変換して出力
の手順で書く癖をつけた方がいいかもしれません。

第3水準以上の文字が多発するフォームや、
携帯のような絵文字に対応する必要のあるケースでは、
EUC変換することによって文字が化けたり消失したりするので
気をつけてください。

そうか！JavaScriptという手があったか！！
でも、ブラウザによってはできないかもしれない・・・

eucでやることにしました。

トラックバックURL: