Lang/Perl/CGI
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#topicpath
/////////////////////////////////////////////////////////...
* SSI からの呼び出し（さくら） [#se3ae5af]
** 引数付きの場合は、 include virtual を使う [#m32cef2c]
- *.shtml から hoge.cgi に引数 arg1 を渡して実行したい場合
<!--#include virtual="./hoge.cgi?arg1" -->
- このように、*.shtml の中に出力が埋め込まれる場合であっ...
print "Content-Type: text/plain; charset=utf-8" . "\n\n\...
/////////////////////////////////////////////////////////...
* CGI でステータスコードを返す方法 [#c29d5a6f]
- 参考：[[Perlでステータスコードを返すとき>http://www.yan...
- 例：
#!/usr/bin/perl
# 引数で渡した値がHTTP_STATUSとなる。
use English;
my ($HTTP_STATUS) = 200;
foreach $argv (@ARGV) {
$HTTP_STATUS = $argv;
}
&return_status_code ($HTTP_STATUS);
exit 0;
########################################################...
sub return_status_code {
my ($http_status) = $_[0];
print "Content-type: text/html\n";
print "Status: $http_status\n";
print "HTML";
}
終了行:
#topicpath
/////////////////////////////////////////////////////////...
* SSI からの呼び出し（さくら） [#se3ae5af]
** 引数付きの場合は、 include virtual を使う [#m32cef2c]
- *.shtml から hoge.cgi に引数 arg1 を渡して実行したい場合
<!--#include virtual="./hoge.cgi?arg1" -->
- このように、*.shtml の中に出力が埋め込まれる場合であっ...
print "Content-Type: text/plain; charset=utf-8" . "\n\n\...
/////////////////////////////////////////////////////////...
* CGI でステータスコードを返す方法 [#c29d5a6f]
- 参考：[[Perlでステータスコードを返すとき>http://www.yan...
- 例：
#!/usr/bin/perl
# 引数で渡した値がHTTP_STATUSとなる。
use English;
my ($HTTP_STATUS) = 200;
foreach $argv (@ARGV) {
$HTTP_STATUS = $argv;
}
&return_status_code ($HTTP_STATUS);
exit 0;
########################################################...
sub return_status_code {
my ($http_status) = $_[0];
print "Content-type: text/html\n";
print "Status: $http_status\n";
print "HTML";
}
ページ名:
![[PukiWiki]](image/tux_100x119.jpg "[PukiWiki]")
