Free CGI Perl PHP Script Olive Design CGI

CGIへフォーム内容を渡すスクリプト その5

外部ファイルdata.datにフォームの内容を書き込み、記憶させます。

スクリプトフォームのエンコード、デコードにはcgi-lib.plライブラリを使用しています。

まず、ファイル名form05.cgiを作成し、下のソースを貼り付けてパーミションを755にします。 同じ階層に空のファイルlog.datを作成してパーミションを666にします。

またcgi-lib.plも同じフォルダに置いておきます。

ソース form05.cgi

#!/usr/bin/perl

require 'cgi-lib.pl';
&ReadParse( *form );
$name = $form{'yourname'};


open(LOG,"log.dat") ;
@log = <LOG>;
close(LOG);

if ($name){ 
 open(LOG,">log.dat") ;
 unshift (@log,"$name\n");
 print LOG @log;
 close(LOG);
}

#htmlを表示
print <<"HTML";
Content-type: text/html

<html><body>
<form action="form05.cgi">
入力=>
<input type=text name="yourname">
<input type="submit" value="送信">

HTML

foreach $com( @log ){
 print "==>$com<br>";
}
print "</body></html>";

exit;
__END__
Perl PHP Free CGI Script OliveDesign CGI

Perl PHP Free CGI Script OliveDesign CGI

プライバシーポリシー / 特定商取引法に基づく表示