【Perl 】初心者コーナーPart5
586 ：580：
ちょっと書き直してみましたがやっぱりだめです。
ドキュンな質問ですいません・・・
#!/usr/local/bin/perl
# サーバ出力
print <<END;
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>ファイルの読み込み</title></head>
<body>
<form action="a.cgi" method="POST">
項目 <input type=text name=item size=30>
<input type=submit value="項目を追加">
</form>
</body></html>
END
$domo = $form{'item'};
#ファイルへの書き込み
open(OUT, ">./a.dat");
print OUT $domo;
close(OUT);
ドキュンな質問ですいません・・・
#!/usr/local/bin/perl
# サーバ出力
print <<END;
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>ファイルの読み込み</title></head>
<body>
<form action="a.cgi" method="POST">
項目 <input type=text name=item size=30>
<input type=submit value="項目を追加">
</form>
</body></html>
END
$domo = $form{'item'};
#ファイルへの書き込み
open(OUT, ">./a.dat");
print OUT $domo;
close(OUT);
|
|
|