#!/usr/local/bin/perl $script = "eiriyang.html"; require './lib/jcode.pl'; require './lib/teikei.pl'; &decode; &count; if ($in{'No'} eq ""){ $in{'No'} = '28'; } $No = $in{'No'}; $center .= <
エイリヤング 作:M・F・キノヤン
エイリヤング・28歳・男
ヤング星の記念すべき100代目王子 20歳の誕生日になるとヤング家に代々伝わる絶対に守らなければならない掟がある。 それは「片道切符他で他の星へ行き、自力でガソ\リン代稼いで帰って来いコノヤローッ!」(ヤング家の家訓第9章2項参照)しかも、ガソ\リンはハイオク。 独特の外見により就職も困難。そんな苦境を乗り越えてこそ一人前の王子として認められるのである。ヤング氏帰郷までの奮闘記ここに始まる!
第$No話
BUKKOMI MONEY MASTER

バックナンバー 最新話 第27話 第26話 第25話 第24話 第23話 第22話 第21話 第20話 第19話 第18話 第17話 第16話 第15話 第14話 第13話 第12話 第11話 第10話 第09話 第08話 第07話 第06話 第05話 第04話 第03話 第02話 第01話

EOF #----------------# # 書込Cookie準備 # #----------------# $setcook1 = &setCookie("ID", $COOKIE{ID}); &html; #----------# # カウンタ # #----------# sub count { # カウントファイル $log = "count/eiriyang.dat"; # ロックファイル名 $lockfile = 'count/lock/eiriyang.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); }