CGI_perl_0001

「CGI_perl_0001」の編集履歴（バックアップ）一覧はこちら

「CGI_perl_0001」(2008/07/12 (土) 15:15:55) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

<p><br /><br /><br />
#! /usr/local/bin/perl<br />
#<br />
# id=form2r.cgi <br />
# <br />
# ＦＯＲＭ２．ＣＧＩで書き込んだファイルを読み表示する <br />
# update. 00.2.13 <br /><br /><br />
# ファイル名<br />
$file = &quot;../form1.dat&quot;;</p>
<p><br />
# ブラウザに出力<br />
print &quot;Content-type: text/html\n\n&quot;;<br />
print &quot;\n\n&quot;; print &quot;\n&quot;;<br />
print &quot;\n\n&quot;; print &quot;ファイルの内容を表示します\n&quot;;<br />
print &quot;&quot;;</p>
<p># １．ファイルを読み出しモードでオープン</p>
<p>open(DATA,&quot;$file&quot;);</p>
<p>#　２．読み込み、 WHILE命令により、ファイルの最後まで１行ずつ読み込み表示します <br />
# 　わかりやすくするため、改行させて表示させます<br />
while() { print ; print '';}</p>
<p># ３．ファイルを閉じます<br />
close(DATA);</p>
<p>print &quot;\n\n&quot;;</p>
<p>################## end of script ##################</p>