クッキーに食わせる前に文字化けを直したいです。

お世話になります。

Perlは超ド素人です。
ほとんど分かっておりません。

そんな者がおこがましいですが、
クッキーに名前を食わせて吐き出させると文字化けしてしまいます。サファリだけですが。

$nameをなんとか処理してから、$cookie{'name'} を設定した方がいいのでしょうか？

教えてください。よろしくお願い致します。


# この時点での値をクッキーとして設定する。
undef %cookie;
$cookie{'name'} = $name;
$cookie{'mail'} = $mail;
$cookie{'age'} = $age;
$cookie{'sex'} = $sex;

&print_cookie($cookiename, $cookiedays);

質問者からの補足コメント

• 

  あっ、サファリじゃなくて、ファイヤーフォックスでした。
  サファリもたぶんダメと思います。
  
  よろしくお願い致します。

    補足日時：2015/08/18 10:54

No.1 ベストアンサー 回答者： bx2 回答日時： 2015/08/18 09:14

クッキーに入れる時にBase64エンコードして、取り出すときにBase64デコードすれば解決します。

エンコード・デコードは他の方法でも構いません。

この回答へのお礼

bx2さん、早々のご回答を本当にありがとうございます。
クッキーに入れる時にBase64エンコードするPerlの記述はどのように書けばいいのでしょうか？
デコードも自分で調べてみますが、簡単なら教えてください。
勝手言ってすいません。

お礼日時：2015/08/18 09:37

No.2 回答者： bx2 回答日時： 2015/08/18 12:48

共通処理の中に追加すれば、エンコードとデコードは1箇所ずつ追加するだけで済むと思います。

use MIME::Base64;

# エンコード
$value = encode_base64($value, '');

# デコード
$value = decode_base64($value);

この回答へのお礼

ありがとうございました。
今回は別のクッキーの対応の方法でクリアしました。
お陰様でuse MIME::Base64;の方法も分かりました。

お礼日時：2015/08/18 20:01