ページ間データの受け渡し

POST

よくある掲示板の書き込みなどで利用します。

受け取るには以下の命令を実行します。

read (STDIN, <受け取ったデータを格納する変数), $ENV{'CONTENT_LENGTH'});
 

渡す側のHTMLファイル(test.htm)

<html>

<head>
<meta http-equiv="Content-Language" content="ja">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
</head>

<body>
<form method="POST" action="test.cgi">
<p>ポストするデータ<input type="text" name="posted" size="20"></p>
<p><input type="submit" value="送信" name="submit"></p>
</body>

</html>

受け取る側のHTMLファイル(test.cgi)

#!C:/Perl/bin/perl.exe

print "Content-type: text/html\n\n";

read (STDIN, $posted, $ENV{'CONTENT_LENGTH'});

print $posted;

 

戻る