perlでHTMLを吐き出した画面をそのままHTMLファイルに変更する方法

解決済

質問者：aeic
質問日時：2003/04/07 00:14
回答数：3件

perlでHTMLを吐き出した画面をそのままHTMLファイルに変更する方法を考えています。

どうしても良い方法がわかりません。
どのような方法が良いのか教えていただけないでしょうか？お願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： noname#48234
回答日時：2003/04/07 01:50

こんばんは。

吐き出すと同時に同じ内容（HTML文）を新規ファイルに保存してしまえばよいですね。

例えば・・・

#!/usr/local/bin/perl

#吐き出す内容を$htmlに代入。
$html ="<html><body>\n<head><title>HTML保存</title></head>\nこんにちは</body>\n</html>\n";

#吐き出す
print "Content-type: text/html\n\n";
print "$html";

#newfile.htmlという新規ファイルを作成
open (NEWFILE,">newfile.html");

#新規ファイルに吐き出したのと同じ内容を書き込む
print NEWFILE $html;

#新規ファイルを閉じる
close (NEWFILE);

こんな風です。
ただし、この場合、newfile.htmlを保存するディレクトリ（フォルダ。上の例文ではこのcgiと同じディレクトリ）への書き込み権限がないとダメです。

- 0
- 件

通報する

No.3

回答者： mohao
回答日時：2003/04/07 11:28

吐き出す内容を，$htmlに保存する際にヒアドキュメントを利用する方法も便利です。

$html=<<HTML;
<html>

<head>
<title>HTML保存</title>
</head>

<body>
こんにちは
</body>

</html>
HTML

これで，HTMLのソースが$htmlに格納されますので，出力するなり，ファイルに書き出すなりしたらよいです。

ヒアドキュメントの詳細に関しては，参考URLをどうぞ。

ヒアドキュメント

参考URL：http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd …