下記のソースをsjisで作っていて、出力するdata.txtをuft-8で保存したいです。
どのようにすればよいでしょうか?
下記ソースでは、data.txtはsjisになっています。
尚、htmlはsjisなのでそのまま使用したいです。
どなたか教えてください。
宜しくお願いします。
#############################
#!/usr/local/bin/perl
require 'jcode.pl';
require 'cgi-lib.pl';
&ReadParse;
$datafile='data.txt'; ←これの保存のみutf-8にしたい
open(FH,">$datafile");
print FH "$in{'name'}";
close(FH);
rint "Content-type:text/html\n\n";
print "<meta http-equiv='Content-Type' content='text/html; charset=Shift_JIS'>";
print "<html><head></head><title>テスト</title><body>\n";
print "<center>入力完了しました。</center><hr /><br>\n";
print "<b>名前:</b>$in{'name'}<br>\n";
print "<hr />\n";
print "</body></html>";
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
何もしなければ、Perlは書いたままの文字を、バイト列として出力します。
たとえば、「
print "テスト"
とShift_JISであれば
print "\x83\x65\x83\x58\x83\x67"
と同じです。
これを受けとった側で、Shift_JISとして解釈すると、
テスト
になり、別の文字コードとして解釈すると「文字化け」になります。
これと同様に、UTF-8のバイト列にしたものを出力すれば、UTF-8の文字列になります。
$datafile='data.txt';
open(FH,">$datafile");
print FH UTF8に変換した$in{'name'};
close(FH);
という感じに。
ただ、一般に出まわっているjcode.plはUTF-8に対応していません。
最近のPerlならEncodeモジュールを使って変換します
No.2
- 回答日時:
あまりにも無茶な注文です。
jcode.plはUTF-8には対応していません。
use:jcode;
でjcode.pmならUTF-8が扱えます。
また、標準ライブラリのencode.pmでも良いです。
もちろん、printする前にUTF-8に変更しておかないと
print FH "$in{'name'}";
だけじゃダメです。
HTML出力の間違ってます。
<meta>は<head>内で、かつ日本語が登場するより前でないとなりません。
>下記のソースをsjisで作っていて、
詳細は省きますが、それは、Perlでは禁忌です。少なくともeuc-jpでプログラムを書かないと深刻なトラブルに合います。今動いているのは偶然です。
最近のperlはUTF-8が使用できますので、そのままUTF-8で書くほうが楽です。
No.1
- 回答日時:
まずは検索しましょうね。
https://www.google.co.jp/search?q=perl+open+%E6% …
ついでに、
・jcode.plは古いのでやめよう
https://www.google.co.jp/search?q=Jcode.pm
・HTMLはせめてヒアドキュメントで出力しよう
https://www.google.co.jp/search?q=perl+%E3%83%92 …
この回答への補足
ありがとうございます。
もちろん検索して調べてみましたが、出力のみutf-8にするといった情報が少なく、あるにはあったのですが同じようにしてもエラーになってしまいました。
上記ソースで行いたいのでよろしければお教えいただけると幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- PHP PHPでCookieを使った訪問回数について 1 2023/05/28 14:10
- PHP PHPのエラーの解消法について教えて下さい。 1 2023/02/06 10:48
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- PHP PHP MySql 画像を取得 1 2022/06/04 14:05
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- PHP 入力した部分を表示させたまま(保持)するにはどうすれば良いでしょうか? 1 2023/01/25 11:14
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
- PHP ここでの ②if($su_d<>"")の比較演算子 を使う理由は 1 2022/03/26 02:33
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
malformed header from script....
-
my $html<<EOMの意味を教えてく...
-
shift-jisからutf8に変換
-
結果を得て自動的にページ移動...
-
テキストエリアにテキストファ...
-
Application.ScreenUpdating = ...
-
JSONで文字列が長い時
-
メモリをアドレスを直接指定し...
-
文字の横にプルダウンを表示さ...
-
16進の10進変換について
-
セレクトメニューで2つの項目...
-
VBAでPDFのコピーとリネームを...
-
テーブル内でドロップダウンメ...
-
【メモリ不足で落ちる(python)】
-
実行時エラー 3020の対策
-
セレクトボックスの「選択して...
-
vscode 文字化け
-
どちのほうがすきですか?
-
パイソンプログラミング
-
パイソンのクラスのブログラム
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
malformed header from script....
-
結果を得て自動的にページ移動...
-
Perl CGIの中で # を使ってコメ...
-
my $html<<EOMの意味を教えてく...
-
テキストファイルの読み込み
-
Perlでの数字の12桁化
-
shift-jisからutf8に変換
-
どうしてもCookieとCGI・perlの...
-
パソコン → パャRン
-
cgiでのデータ受信
-
CGIから出力される文字が化けて...
-
サムネイルCGI
-
SSI にグローバル変数を渡すこ...
-
Application.ScreenUpdating = ...
-
JSONで文字列が長い時
-
どちのほうがすきですか?
-
formで特定のinputを送信しない...
-
文字の横にプルダウンを表示さ...
-
16進の10進変換について
-
実行時エラー 3020の対策
おすすめ情報