#! /usr/local/bin/perl## id=form2r.cgi # # FORM2.CGIで書き込んだファイルを読み表示する # update. 00.2.13 # ファイル名$file = "../form1.dat";
# ブラウザに出力print "Content-type: text/html\n\n";print "\n\n"; print "\n";print "\n\n"; print "ファイルの内容を表示します\n";print "";
# 1.ファイルを読み出しモードでオープン
open(DATA,"$file");
# 2.読み込み、 WHILE命令により、ファイルの最後まで1行ずつ読み込み表示します # わかりやすくするため、改行させて表示させますwhile() { print ; print '';}
# 3.ファイルを閉じますclose(DATA);
print "\n\n";
################## end of script ##################
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。
下から選んでください: