#!/usr/bin/perl print <<"_END_HTML_"; Content-Type: text/html <html lang="ja"><head> <title>get method の受信内容</title> </head><body> クライアントの送信方法(環境変数:REQUEST_METHODの内容)= $ENV{"REQUEST_METHOD"}<br> Getで送られたデータ(環境変数:QUERY_STRINGの内容)= $ENV{"QUERY_STRING"} </body></html> _END_HTML_"
#!/usr/bin/perl read(STDIN, $rec, $ENV{"CONTENT_LENGTH"}); #受信データ読み取り print <<"_END_HTML_"; Content-Type: text/html <html lang="ja"><head> <title>post method の受信内容</title> </head><body> クライアントの送信方法(環境変数:REQUEST_METHODの内容)= $ENV{"REQUEST_METHOD"}<br> クライアント送信データの長さ(環境変数:CONTENT_LENGTHの内容)= $ENV{"CONTENT_LENGTH"}<BR> POSTで送られたデータをSTDINから読み取った内容 = $rec </body></html> _END_HTML_"