perl見よう見まねで改造ができるレベルの者です。
表題の件ですが、ある登録スクリプトをEUCで保存し、登録データファイルもEUCで保存を行っているのですが、携帯からも対応させる為に、携帯用ページではShift_jisで表示を行いたいと思っています。
$word = "ああああ";
&jcode'euc2sjis(*word);
上記のようなコードで、EUCで保存されたスクリプト内の文字がShift-JISに変換されるというのを見つけたのですが、これがprint文の場合どうすれば良いのかわかりません。
例えば、
print "Content-type: text/html;charset=shift_jis\n\n";
print <<_HTML_;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>
<body>
<form method="POST" action="CGIファイル">
登録項目1<br>
<input type="text" name="touroku1" value="$in{'touroku1'}"><br>
登録項目2<br>
<input type="text" name="touroku2" value="$in{'touroku2'}">
</form>
</body></html>
_HTML_
上記のようなHTMLをShift_jisで表示する場合、どのようにすればよいのでしょうか?
use encoding 'euc-jp', STDOUT=>'shift_jis'
while(<>){
print $_;
}
上記のようなコードも調べたのですが、今一適用方法が解らない状況です。
また、携帯用ページではShift_jisで表示を行いたいのと同時に、登録データファイルにはEUCで保存されるようにする方法もご教授頂けますと幸いです。
宜しくお願い申し上げます。
No.1ベストアンサー
- 回答日時:
最初の方法の場合、
print <<_HTML_;
の部分を
$word = <<_HTML_;
#_HTML まで同じ
&jcode'euc2sjis(*word);
print $word;
とでもすればいいんじゃないでしょうか
2番目の方法の場合、
use encoding 'euc-jp', STDOUT=>'shift_jis'
を頭に書いておいて
print "Content-type: text/html;charset=shift_jis\n\n";
print <<_HTML_;
#以下略
でいいと思います。
>登録データファイルにはEUCで保存されるようにする
2番目の方法の場合
書き出すファイルのオープンで
open(OUT,">:encoding(euc-jp)","EUC.dat");
のようにするといいと思います。
、
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
16進の10進変換について
-
関数「exists」と「defined」の...
-
switch文のエラーについて
-
python3について。
-
【至急!!!】python言語で本を見...
-
チェックボックスのCGIへの値の...
-
パイソン文法で(インデント)
-
c言語 16進数の2進数への変換
-
pythonの*
-
Perlにおける<?phpinfo();?>の...
-
パイソンのプログラムで contin...
-
シェルスクリプトで、空白(ス...
-
ランダム文字列
-
Application.ScreenUpdating = ...
-
JSONで文字列が長い時
-
formで特定のinputを送信しない...
-
VBAでPDFのコピーとリネームを...
-
FindFirst を複数条件で検索
-
テーブル内でドロップダウンメ...
-
VB6で、長い時間かかる処理...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
16進の10進変換について
-
pythonで演算子を変数に代入す...
-
【至急!!!】python言語で本を見...
-
pythonの*
-
c言語 16進数の2進数への変換
-
awkの正規表現での最左最短マッ...
-
数値かどうかの判定方法
-
関数「exists」と「defined」の...
-
シェルで、ランダム関数を変数...
-
I2C接続のLCDディスプレイを使う
-
シェルスクリプトで、空白(ス...
-
perでメールが送信出来ない場合...
-
UWSCのSELECT文の記述方法
-
int(input("○○"))の使い方
-
switch文のエラーについて
-
pythonで改行を含めてfindする方法
-
シェルスクリプト+perl
-
PythonでUTF8の文字列をリスト...
-
少数点以下の桁数について
-
qq!!の意味を教えてください。
おすすめ情報