CGI_perl_0001


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。




#! /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 ##################

ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。