情報システム科





unsei.cgiの内容

#!/usr/local/bin/perl


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

print ("<html>\n");
print ("<body>\n");
print ("<br><br><br><br><br><br><br><br><br><br>\n");
print ("今日の運勢は\n\n");
$a = int(rand(3));
if ($a == 1)
{
    print ("大吉です\n");
}
if ($a == 2)
{
    print ("超大吉です\n");
}
if ($a == 0)
{
    print ("本日はラッキーです\n");
}
print ("<br><br><br><br><br><br><br><br><br><br>\n");

print ("</body>\n");
print ("</html>\n");
exit;
ホームへ