#!/usr/local/bin/perl $script = "hyouki.html"; require './lib/jcode.pl'; require './lib/teikei.pl'; &decode; &count; $center = '
新表記「K」「Q」「J」とは!?
'; $center .= '
ぱっちGuu的新表記!ぱっちGuuだけの独自新表記「K」「Q」「J」!紙面各ホール情報に表記されたこのマークは、その店の期待度を示すもの。「K」「Q」「J」マークを見逃すな!!!!
KING KING
KING、それは最高の証
ぱっちGuu的<期待度最高称号!
QUEEN QUEEN
QUEEN、それは女神の微笑!
爆発の予感
JACK JACK
JACK、それは若き勇者の叫び!
勝利はここから始まる!

'; #----------------# # 書込Cookie準備 # #----------------# $setcook1 = &setCookie("ID", $COOKIE{ID}); &html; #----------# # カウンタ # #----------# sub count { # カウントファイル $log = "count/hyouki.dat"; # ロックファイル名 $lockfile = 'count/lock/hyouki.lock'; &lock; #カウントファイル読込み open(IN,"$log"); $in_line = ; close(IN); #カウント1増やす $in_line++; #カウントファイル書込み open(OUT,">$log"); print OUT $in_line; close(OUT); &unlock; } sub lock { local($retry) = 5; while (!mkdir($lockfile, 0755)) { sleep(1); } } sub unlock { rmdir($lockfile); }