#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "\n";
print "ＣＧＩのサンプル
\n";
print "
\n";
print "コマンドの起動
\n";
print "
\n";
# 同期型は、コマンドが終了するまで、待ちます。
# 非同期型は、コマンドが終了するまで、待ちません。
print "同期型で、コマンドを起動 (その1)
\n";
print `date`."
";
print '`sleep 3`;
';
`sleep 3`;
print `date`."
";
print "
\n";
print "同期型で、コマンドを起動 (その2)
\n";
print `date`."
";
print 'system("sleep 3");
';
system("sleep 3");
print `date`."
";
print "
\n";
print "非同期型で、コマンドを起動
\n";
print `date`."
";
print 'system("sleep 3 > /dev/null &");
';
system("sleep 3 > /dev/null &");
print `date`."
";
print "
\n";
print "このＣＧＩのソース：com01.cgi
\n";
print "\n";