sub sinki { (略) if (???) { ???; } } |
if ($in{'pass'} eq "") { &error("パスワードが入力されていません"); } |
sub error { &header; print "エラー:<font color='red'>$_[0]</font>\n"; print "<br><a href=JavaScript:history.back()>やりなおし</A>\n"; &unlock; &footer; exit; } |
$title = "マイホームページ"; &header; print "ようこそ!\x20 \x20$titleへ\n"; |