perlで変数を付けたHTMLタグをファイルで保存しようとすると上手く行きません。

#perlで変数を付けたHTMLタグをファイルを保存しようとすると上手く行きません。どうかよろしくお願いします。ダブルクォーテンションでくくった文字列の"にはエスケープシーケンス扱いして\をつけています。どうぞよろしくお願いいたします。

my $file ="syouhin/$syouhinmei".".html"; # $$ はプロセスID
open(OUT,">$file");

$msg = "$sql,$name,$pass,$shimei,$mail,$syouhinmei,$nedan,$q1,$file1,$file2,$file3,$mojijouhou\n";

$msg15="<!--$msg--!><html>

<head> <title>$syouhinmei</title> <meta http-equiv=\"content-type\" content=\"text/html; charset=Shift_JIS\"> </head> <body bgcolor=\"#000066\" text=\"#000000\" link=\"#0000ee\" alink=\"#0000ee\" vlink=\"#551a8b\"> <a href=\"1/$file2\" ></a=\"\"><img src=\"btn056_09 - 3.gif\" alt=\"\"> <img src=\"1/$file1\" alt=""> <big><big><big><big><big>$q1,$sql</big></big></big></big></big> <big><big><big><big><big>【題名】$syouhinmei 【価格】$nedan円（税込） 【商品情報</big></big></big></big></big><big><big><big><big><big>】</big></big>$mojijouhou</big></big></big> </a><a href=\"../a1.cgi\"><img src=\"../index2.png\" alt=\"\"> </a> <big><big><big>カートに入れる↑</big></big></big> </body> </html>";

$eee = "shouhin/$syouhinmei".".html";
open(OUT,">> $eee") || die("ファイルを追記モードで開けませんでした。");
print OUT $msg15;
close(OUT);

$eee1 = "kokyakusyouhinjouhou/$nowID".".txt";
open(OUT,"> $eee1") || die("ファイルを追記モードで開けませんでした。");
$msg = "$sql,$name,$pass,$shimei,$mail,$syouhinmei,$nedan,$q1,$file1,$file2,$file3,$mojijouhou\n";
print OUT $msg;
close(OUT);

m.ts10806

2018/02/06 00:11

プログラムコード(およびエラーメッセージ)は```で囲ってください。（わからなければ質問編集画面でコード部分を選択し<code>ボタンを押してください）正しく反映されているかどうかは質問編集画面のプレビューを見ながら編集していってください。

trm

2018/02/06 00:57

わかりました。

m.ts10806

2018/02/06 05:16

対応されないまま質問を完了されるのはいかがなものかと。そのうちどんなに構って欲しくても誰も相手にしてくれなくなりますよ。ご注意を。

行動規範の内容に同意します

回答3件

自己解決

if文の書き方が間違っていました。どうもおさわがせいたしました！でも文字化けの問題は依然治りません。誰か何とかして下さい。

投稿2018/02/06 04:23

trm

総合スコア117

KojiDoi

2018/02/06 04:31

誰か何とかしてくださいとは何という言い草。質問は断片的、回答にはろくに音さたなしで、どうせよと？　そろそろあなたのことは目的外利用者として運営に連絡すべきではないかと思い始めているところです。

trm

2018/02/06 08:12

じゃあ勝手にしろよ！

行動規範の内容に同意します

ディレクトリshouhinというのが存在しないんじゃないですか？
それから、<!-- --!>とか、変な記述がいろいろ残っているのでチェックし直したほうがいいでしょう。

もう一つの大きい問題として、日本語を扱うには内部コードと出力先コードの切り替えをしないといけません。この辺のことは前の質問で説明しましたのでここでは書きません。質問して得た情報はちゃんと活かしてください。 その通りにやらないと他のミスを修正してもおそらく文字化けするでしょう。

こういう長い文字列を書くときはヒアドキュメントにするのがいいでしょう。いちいち"をエスケープせずによくなります。

perl
1$msg = <<"KOKOMADE";
2<!--$msg--!><html>
3<head>
4<title>$syouhinmei</title>
5
6中略
7
8<big><big><big><font color="#ff0000">カートに入れる↑</font></big></big></big><br>
9<br>
10<br>
11<br>
12</body>
13</html>
14KOKOMADE