クイズ番組でやってた問題の備忘録

48：女傑さん ◆nDpXSJz8i.：2013/03/10(日) 16:26:39: sub error {

local (@msg) = @_;
local ($i);

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

print <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML><HEAD>
<TITLE>$msg[0]</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</HEAD>
<BODY>
<h1>$msg[0]</h1>
EOF
if ($msg[1] ne '') {

print "<ul>\n";
foreach $i (1 .. $#msg) { print "<li>$msg[$i]\n"; }
print "</ul>\n";
}

print <<"EOF";
</body></html>
EOF
exit;

}

sub lock
{
local $ok;
local $lockdir;

$lockdir = $_[0];
$ok = 0;

for (1 .. 3) {
if (mkdir($lockdir, 0755)) {
$ok = 1;
last;
}
else {
sleep(1);
}
}

if ($ok == 0){
if ((-M $lockdir)*60*60*24 >= 30) {
rmdir($lockdir);
if (mkdir($lockdir, 0755)) {
$ok = 1;
}
}
}

return $ok;
}

sub unlock
{
rmdir($_[0]);
}

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板