ココとPerlで头びませんか(マスタ〖マインド)

マスタ〖マインド

ⅲ=Perl, ⅲ=冯蔡

マスタ〖マインドは眶碰てゲ〖ムです。ヒットアンドブロウとも钙ばれています。陵缄が联んだｎ峰の眶を夸妄して、赖豺を瞥き叫します。あなたが雇えた眶に滦して、眶机も疤弥も赖しいときには[HIT]がいくつ、疤弥は赖しくないが眶机が赖しいときは[BLOW]がいくつと叫玛荚は批えます。
叫玛荚はPerlにお搓いすることにします。ゲ〖ムが戚み哈めない数は、この豺棱を粕まれる涟に、ゲ〖ムを弛しんでから提ってきてください。

mastermind_1.html

このペ〖ジの悸乖には、すぐ布にある掐蜗フォ〖ムとmastermind.cgi、stdin.txt、fotter.txtが涩妥です。3つのスクリプトはこのペ〖ジの呵布婶にあります。mastermind.cgiのみパ〖ミッション757にしてください。掐蜗フォ〖ムを弥くディレクトリの布のcgi-binディレクトリに呈羌することを涟捏に淡揭しています。

≈マスタ〖マインド∽の掐蜗フォ〖ムを侯りました。

讳が联んだｎ改の眶机を碰ててください—
(0から9の眶机で黎片は0ではありません)

峰眶: 呵络: 脚剩:

布が掐蜗フォ〖ムの淡揭です。掐蜗される眶机(no)、峰眶(keta)、搀批の呵络搀眶(max)、眶の脚剩の铜痰(du)をCGIに流ります。また茶烫には山绩されませんが、办搀誊の搀批であることを绩すname=yもCGIに畔されます。
<table border="1" bgcolor="#DFEFEE" cellpadding="5"><tr align="center"><td>
<hr>
讳が联んだｎ改の眶机を碰ててください—<br>
<font size="-1">(0から9の眶机で黎片は0ではありません)</font>
<hr>
<form action="./cgi-bin/mastermind.cgi" method="POST" name=form>
<img src="./images/coco_l.gif" width="42" height="39" align="absmiddle"
 border="0" alt="尽てるかな々">
<input type="text" name="no" maxlength="5" size="10">
<input type="submit" value="ＧＯ—">
<img src="./images/coco_r.gif" width="42" height="39" align="absmiddle"
 border="0" alt="尽てるかな々"><br>
<input type="hidden" name="y" value="0">
<hr>
峰眶:<select name="keta">
<option value="3">3峰
<option value="4">4峰
<option selected value="5">5峰
</select>
 呵络:<select name="max">
<option value="10">10搀
<option value="15" selected>15搀
<option value="20">20搀
<option value="30">30搀
</select>
 脚剩:<select name="du">
<option value="0" selected>铜
<option value="1">痰
</select>
</form>
</td></tr>
</table>
それではスクリプトを界戎に绩していきます。
#!/usr/local/bin/perl

require './stdin.txt';# GET,POST借妄

######掐蜗フォ〖ム艰评######
$nomber = $FORM{'no'};# 掐蜗戎规
$nagasa = $FORM{'keta'};# 啼玛の峰眶
$maxkai = $FORM{'max'};# 搀批の搀眶MAX
$dup = $FORM{'du'};# 眶机の脚剩 0=千める 1=千めない
$kai = $FORM{'y'};# 末里搀眶
$kotae = $FORM{'k'};# 批え
$nom = $FORM{'n'};# 掐蜗戎规旺悟
$hb = $FORM{'hb'};# Hit&BLOW旺悟

######介袋肋年######
$title = "マスタ〖マインド";
$html = 'mastermind_1.html';
$script = 'mastermind.cgi';
($hit, $ball) = (0, 0);
#!/usr/local/bin/perl
どこにPerlがあるかを离咐しています。(≈黎ずはこれ∽徊救)
require './stdin.txt';
≮ⅹPerl Reference: require≯

stdin.txtを粕み哈みます。stdin.txtでは掐蜗フォ〖ムから流られてくるGETやPOSTデ〖タを减艰る狠の艰り疯めをしています。(≈テキストの咖仑え∽のPOSTとGETを徊救)
$nomber = $FORM{'no'};# 掐蜗戎规
$nagasa = $FORM{'keta'};# 啼玛の峰眶
$maxkai = $FORM{'max'};# 搀批の搀眶MAX
$dup = $FORM{'du'};# 眶机の脚剩 0=千める 1=千めない
$kai = $FORM{'y'};# 末里搀眶
$kotae = $FORM{'k'};# 批え
$nom = $FORM{'n'};# 掐蜗戎规旺悟
$hb = $FORM{'hb'};# Hit&BLOW旺悟
掐蜗フォ〖ムから流られてくるデ〖タを恃眶に洛掐しています。
掐蜗される眶机(no)、峰眶(keta)、搀批の呵络搀眶(max)、眶の脚剩の铜痰(du)は黎ほど绩した掐蜗フォ〖ムから掐蜗ˇ联买されたデ〖タです。末里搀眶(y)は茶烫には山绩されていませんが、掐蜗フォ〖ムに崔まれています。
その戮の宛眶で侯喇された批え(k)、掐蜗戎规旺悟(n)、Hit&BLOW旺悟(hb)は黎ほどの掐蜗フォ〖ムには崔まれていません。これらは企搀誊笆惯のＣＧＩが侯り叫す掐蜗フォ〖ムで蝗脱されます。息鲁して眶を掐蜗してもらい、髓搀の旺悟も茶烫に山绩させるには、海まで掐蜗された眶机も承えておかなければなりません。そのためには掐蜗された眶机を侍ファイルに今き哈み、それを粕み哈む涩妥があります。海搀のスクリプトでは旺悟のファイルを蝗わずに、CGIにデ〖タとして髓搀、海までの旺悟链てを畔す数恕をとっています。掐蜗戎规の旺悟は办搀誊から涟搀までの掐蜗された眶机の旺悟を、Hit&BLOW旺悟にはそれぞれのHit眶BLOW眶の旺悟を呈羌しています。
$title = "マスタ〖マインド";
$html = 'mastermind_1.html';
$script = 'mastermind.cgi';
($hit, $blow) = (0, 0);
ここでは、介袋肋年をおこなっています。HTMLに山绩するタイトル($title)、掐蜗フォ〖ムに山绩するCGI叹($script)、HTMLファイル叹($html)を肋年しています。
($hit, $blow) = (0, 0);
疤弥も眶もあっているHITの眶、疤弥は粗般っているが眶机があっているBLOWの眶の介袋猛をゼロにしています。

肌はHTMLのヘッダ〖婶尸の淡揭です。
print "Content-type: text/html\n\n";

######HTML倡幌######
print qq|
<html>
<head>
<meta HTTP-EQUIV="content-type" CONTENT="text/html; charset=x-euc-jp">
<title>$title</title>
<script>

</script>
</head>
<body onLoad=sf()>
<center>
<h2>$title</h2>
|;
print "Content-type: text/html\n\n";
Content-typeはサ〖バからブラウザに流るデ〖タ妨及を回绩するものです。拒しくは≈黎ずはこれ∽のContent-typeを徊救してください。
print qq|

面维

|;
print qq| はprint矢のなかに、ダブルコ〖テ〖ション(")を裳人に蝗脱するときに蝗脱すると守网です。拒しくは≈茶烫に矢机を山绩しよう∽の print qq|　　| を徊救してください。

ここではHTMLの淡揭をしているだけですが、茶烫から眶机を掐蜗してもらうときに、髓搀掐蜗ボックスをクリックしてからでないと眶机が掐蜗できないのは烫泡です。茶烫が山绩されれば、贷に掐蜗ボックスにカ〖ソルが弥かれているようにしました。掐蜗フォ〖ムのHTML淡揭と圭わせてご枉になってください。

介めての眶机掐蜗かどうかを冉们します。介めての掐蜗ならば、宛眶から回年された峰眶の眶机を艰评します。企搀誊笆惯の掐蜗では、海までの掐蜗旺悟に纳裁借妄をおこないます。
######介搀のみ搀批を艰评######
if ($kai == 0) {
	$kai = 1;
	$nom = $nomber;
	while ($kakutei == 0) {#ＰＣの搀批眶机の券栏ˇチェック
		$kakutei = 1;
		$kotae = (rand(1) * ( time % 10000 ) );
		$kotae = substr($kotae, length($kotae)-$nagasa, $nagasa);
		if ($kotae =~ /^0/) {# 黎片の峰にはゼロは烧けない
			$kakutei = 0;
		}
		for ($i=0;$i<$nagasa;$i++) {#５峰の眶机をバラス
			$kotae[$i] = substr($kotae,$i,1);
		}
		if ($dup == 1) {
			for ($i=0;$i<$nagasa;$i++) {
				for ($j=$i+1;$j<$nagasa;$j++) {
					if ($kotae[$i]==$kotae[$j]) {#眶机の脚剩を近く
						$kakutei = 0;
					}
				}
			}
		}
	}
} else {
	$nom = "$nom" . "$nomber";#掐蜗旺悟を儡鲁
	$kai++;
}
if ($kai == 0) {
	$kai = 1;
	$nom = $nomber;
$kaiがゼロ(介めて)なら、$kaiに1を洛掐します。
$nomber(掐蜗された眶机)を$nom(企搀誊笆惯に蝗脱する掐蜗旺悟)に洛掐します。
while ($kakutei == 0) {

面维

}
while (掘凤及) { 借妄 }で、帆り手しをおこないます。掘凤は $kakutei == 0 ですから、$kakutei がゼロのときは借妄を鲁けることになります。誊弄は回年された峰眶の眶机の艰评。ｎ峰の眶机の黎片峰にゼロがこないこと。そして掐蜗フォ〖ムで眶机の脚剩痰しを联买されたときの脚剩怯近です。掘凤を塔たさない箕には、宛眶を肌」と券栏させます。
$kakutei = 1;
$kakuteiに1を洛掐しています。あとの借妄で$kakuteiをゼロに提す借妄がありますが、その掘凤借妄がされないときに、whileの帆り手しから却け叫すための洛掐です。
$kotae = (rand(1) * ( time % 10000 ) );
ここではtime簇眶から宛眶を艰评して、$kotaeに洛掐をしています。
rand(1) は0から1踏塔までの井眶爬笆布の眉眶を崔んだ宛眶を手します。毋えば 0.787567138671875 のような眶机です。宛眶については≈宛眶の澄唯∽を徊救してください。
≮ⅹPerl Reference: rand≯

time は1970钳1奉1泣0箕0尸0擅からの沸册箕粗(擅)です。毋えば 1015566056 となります。

time % 10000 は time を10000で充って途りを滇めています。宛眶と寥み圭わせて努刨疤艰りの井眶爬笆布の猛を滇めて、$kotaeに洛掐しています。
$kotae = substr($kotae, length($kotae)-$nagasa, $nagasa);
substr で矢机误を艰り叫します。 substr(滦据の矢机误, 黎片から部矢机誊, 艰り叫す墓さ)となります。
≮ⅹPerl Reference: substr≯

length でスカラ〖猛の墓さを评ることができます。length($kotae)で黎ほど券栏させた宛眶の墓さが尸かります。
≮ⅹPerl Reference: length≯

$kotaeの矢机误から、$kotaeの墓さ苞く$nagasa(フォ〖ムから联买された峰眶)を倡幌疤弥として、$nagasaの墓さ尸の矢机を艰り叫します。つまり回年された峰眶の眶机を评ることができます
if ($kotae =~ /^0/) {
	$kakutei = 0;
}
宛眶で艰评した眶の黎片がゼロではないようにしたいので、if矢を蝗ってみました。
$kotae =~ /^0/ [^]は矢机误の黎片の罢蹋です。
$kotae の黎片がゼロならば $kakuteiにゼロを洛掐します。ゼロのときにはwhileのル〖プから却け叫さないようにしています。
for ($i=0;$i<$nagasa;$i++) {
	$kotae[$i] = substr($kotae,$i,1);
}
ここでは、宛眶で评られたｎ峰の矢机を办峰ずつにばらしています。

for 矢で借妄の帆り手しをしています。($i=0;$i<$nagasa;$i++)は$iに0を洛掐し、$iが○nagasa踏塔の粗は借妄を帆り手します。借妄をする刨に、$i++で$iに1を裁换していきます。

$kotae[$i] = substr($kotae,$i,1) で、$kotaeの焊から界戎に办矢机づつ$kotaeの芹误に洛掐していきます。
if ($dup == 1) {
	for ($i=0;$i<$nagasa;$i++) {
		for ($j=$i+1;$j<$nagasa;$j++) {
			if ($kotae[$i]==$kotae[$j]) {#眶机の脚剩を近く
				$kakutei = 0;
			}
		}
	}
}
$dupが1の眷圭、つまり眶机の脚剩痰しを联买されたときの借妄です。
企つのfor矢を寥み圭わせて $kotae[$i]==$kotae[$j] 票じ眶机(脚剩)のときに、$kakuteiにゼロを洛掐して宛眶券栏のル〖プから却け叫さないようにしています。
毋えば5峰が联买されたときには$kotae[$i]==$kotae[$j]は
$kotae[0]==$kotae[1]
$kotae[0]==$kotae[2]
$kotae[0]==$kotae[3]
$kotae[0]==$kotae[4]
$kotae[1]==$kotae[2]
$kotae[1]==$kotae[3]
$kotae[1]==$kotae[4]
$kotae[2]==$kotae[3]
$kotae[2]==$kotae[4]
$kotae[3]==$kotae[4]
となります。これで票じ寥み圭わせを企刨拇べる涩妥がなくなります。

$kakutei = 0;脚剩があるときには$kakuteiにゼロを洛掐して、ル〖プから却け叫すことはできません(浩刨宛眶を券栏させます)。
} else {
	$nom = "$nom" . "$nomber";
	$kai++;
}
掘凤借妄の呵稿です。if ($kai == 0) {　に滦する elseです。
办搀誊の掐蜗でない箕を回します。企搀誊笆惯は宛眶を券栏させる涩妥はありません。

$nom = "$nom" . "$nomber"; では$nomに$nomと$nomber(掐蜗された眶机)を矢机误として儡鲁しています。毋えば5峰の掐蜗で办搀誊が"12345"で企搀誊が"45678"だったら"1234545678"となります。このようにして掐蜗された眶の旺悟をつくり、CGIのフォ〖ムに苞き畔す洁洒をしています。

呵稿で$kaiに１を裁换しています。

鲁いて掐蜗された眶机のチェック借妄です。
######疙掐蜗チェック######
if ($nomber eq '') { &error(1); }
if ($nomber =~ /\D/) { &error(2); }
if (length($nomber) ne $nagasa) { &error(3); }
$nomber(掐蜗された眶机)に部も掐蜗されていない箕は、&error(1)でerrorと叹づけられたサブル〖チンに苞眶1を畔します。
肌の乖の /\D/ は眶机笆嘲の矢机を罢蹋します。$nomberに眶机笆嘲が掐蜗されていれば&error(2)を悸乖します。
呵稿の冉们は联买された峰眶と掐蜗された峰眶が霹しくないときの借妄です。length($nomber)で$nomberの墓さを拇べています。5峰の眶机が涩妥なときに3峰の眶机が掐蜗されたらエラ〖ル〖チンに苞眶3を畔します。
######エラ〖山绩######
sub error {
	$error = $_[0];
	if ($error == 1) { print "眶机を掐蜗してください。"; }
	if ($error == 2) { print "0から9までの染逞眶机で掐蜗してください。"; }
	if ($error == 3) { print "$nagasa峰の染逞眶机を掐蜗してください。"; }
	print "<br>もう办刨<a href=\"Javascript:history.back()\">掐蜗</a>\n";
	exit(1);
}
悸狠にはスクリプトの呵稿に今かれていますが、棱汤の旁圭で黎に棱汤をします。黎ほどの掘凤冉们で绩されたerrorサブル〖チンです。

苞眶によってエラ〖山绩を恃えています。
ここで掐蜗された眶机と、批えとのチェックをしています。
######HIT&BLOWのチェック######
for ($i=0;$i<$nagasa;$i++) {#５峰の眶机をバラス
	$kotae[$i]=substr($kotae,$i,1);
	$anata[$i]=substr($nomber,$i,1);
}
for ($i=0;$i<$nagasa;$i++) {
	if ($kotae[$i] eq $anata[$i]) {#眶机の疤弥も赖しい
		$hit++;
		($kotae[$i], $anata[$i]) = ('H', 'I');#办刨碰たった眶机を近く
	}
}
for ($i=0;$i<$nagasa;$i++) {
	for ($j=0;$j<$nagasa;$j++) {#眶机は赖しい
		if ($kotae[$i] eq $anata[$j]) {
			$blow++;
			($kotae[$i], $anata[$j]) = ('B', 'A');#办刨碰たった眶机を近く
		}
	}
}
$hb = "$hb" . "$hit" . "$blow";#HIT&BLOWの旺悟を儡鲁
for ($i=0;$i<$nagasa;$i++) {
	$kotae[$i]=substr($kotae,$i,1);
	$anata[$i]=substr($nomber,$i,1);
}
批えと掐蜗された眶机を办矢机ずつ芹误に呈羌しています。芹误は1からではなく0から幌まります。
for矢で $i がゼロから $nagasa 踏塔の粗で借妄を乖ないます。substrで $kotaeや $nomberを焊から办矢机ずつ$kotae[$i]と$anatar[$i]の芹误に洛掐しています。
for ($i=0;$i<$nagasa;$i++) {
	if ($kotae[$i] eq $anata[$i]) {
		$hit++;
		($kotae[$i], $anata[$i]) = ('H', 'I');
	}
}
黎ほど洛掐した芹误の猛が霹しいときに、$hitに1を裁换し、$kotae[$i]に矢机误"H"を、$anata[$i]に"I"を洛掐します。HIT貉みんなので、肌のBLOWのカウントに崔ませないための借妄です。
for ($i=0;$i<$nagasa;$i++) {
	for ($j=0;$j<$nagasa;$j++) {
		if ($kotae[$i] eq $anata[$j]) {
			$blow++;
			($kotae[$i], $anata[$j]) = ('B', 'A');
		}
	}
}
疤弥は赖しくないが、眶机がどこかに崔まれる眷圭(BLOW)の借妄です。

企脚のforによる帆り手しで、霹しい眶机をチェックしています。霹しい箕には$blowに1を裁换し、$kotae[$i]に"B"を、$anata[$j]には"A"を洛掐します。
$hb = "$hb" . "$hit" . "$blow";
HITとBLOEWの旺悟を$hbに息冯しています。毋えば办搀誊がHITが0でBLOWが1、企搀誊にHITが2でBLOWが1なら、$hbは0121となります。

警し墓くなっていますが、海までの掐蜗された猛に滦する、HITとBLOWの旺悟を山绩します。
######旺悟艰评ˇ山绩######
print "<table border=\"1\"><tr align=\"center\"><td>搀眶</td><td>　</td>\n";
print "<td width=\"30\" bgcolor=\"lime\">HIT</td>";
print "<td width=\"30\" bgcolor=\"yellow\">BLOW</td></tr>\n";
for ($i = 0; $i < $kai; $i++) {
	$nomb[$i] = substr($nom, $i*$nagasa, $nagasa);#焊から$nagasa矢机づつ艰评
	$nohi[$i] = substr($hb, $i*2, 1);#焊から1矢机づつ艰评
	$noba[$i] = substr($hb, $i*2+1, 1);#焊から1矢机づつ艰评
	$ii++;
	print "<tr align=\"center\"><td>$ii</td><td>$nomb[$i]</td>\n";
	print "<td colspan=\"2\" bgcolor=\"black\">";
	if ($nohi[$i] > 0) {
		print "<font color=\"lime\">";
		for ($j=0; $j < $nohi[$i]; $j++) {
			print "↑";
		}
		print "</font>";
	}
	if ($noba[$i] > 0) {
		print "<font color=\"yellow\">";
		for ($j=0; $j < $noba[$i]; $j++) {
			print "ⅴ";
		}
		print "</font>";
	}
	if ($nohi[$i] + $noba[$i] < $nagasa) {
		print "<font color=\"white\">";
		for ($j=0; $j < ($nagasa - $nohi[$i] - $noba[$i]); $j++) {
			print "↑";
		}
		print "</font>";
	}
	print "</td></tr>\n";
}
print "</table>\n";
海までに棱汤した票じ簇眶がたくさん叫てきますので、棱汤は词帽にします。
	$nomb[$i] = substr($nom, $i*$nagasa, $nagasa);
	$nohi[$i] = substr($hb, $i*2, 1);
	$noba[$i] = substr($hb, $i*2+1, 1);
掐蜗された眶机の旺悟($nom)を掐蜗搀眶ごとにばらしています。
またHIT&BLOWの旺悟($hb)をHITとBLOW侍に、掐蜗搀眶ごとに尸けています。

↑やⅴを崔むprint矢でHITとBLOWの眶から旺悟山绩を冉们しています。布のように山绩する婶尸です。
搀眶　 HIT BLOW

1 123 ↑↑↑

2 406 ⅴⅴ↑

3 789 ↑↑↑

呵稿になります。眶机が链て碰たっているならコメントを、そうでなければ侍のコメント霹を山绩します。
if ($hit == $nagasa) {
	print qq|<br><font color=\"red\">络碰たり——</font>
	<form action="../$html" method="GET">
	<input type="submit" value="鲁ける——">
	</form>
	|;
} elsif ($kai < $maxkai) {
	print qq|
<form action="./$script" method="POST" name="form">
<input type="text" name="no" maxlength="$nagasa" size="10">
<input type="submit" value="ＧＯ—">
<input type="hidden" name="n" value="$nom">
<input type="hidden" name="k" value="$kotae">
<input type="hidden" name="y" value="$kai">
<input type="hidden" name="hb" value="$hb">
<input type="hidden" name="keta" value="$nagasa">
<input type="hidden" name="max" value="$maxkai">
</form>
	|;
	$nokori = $maxkai - $kai;
	print "<p>あと$nokori搀です。</p>";
	print qq|<form action="../$html" method="GET">
	<input type="submit" value="幌めからもう办刨">
	</form>
	|;
} else {
	print qq|<p>荒前— $maxkai搀です。<br>
	批えは∥<font color="red">$kotae</font>∠でした—</p>
	<form action="../$html" method="GET">
	<input type="submit" value="铲しい—もう办刨——">
	</form>
	|;
}

print qq|
	<hr>
	このペ〖ジの豺棱は<a href="./l_mastermind.html">こちらをご枉ください</a>
	</center>
|;
require './fotter.txt';

exit;
if ($hit == $nagasa) {
	print qq|<br><font color=\"red\">络碰たり——</font>
	<form action="../$html" method="GET">
	<input type="submit" value="鲁ける——">
	</form>
	|;
链ての眶机がHITしたときの借妄です。
} elsif ($kai < $maxkai) {
	print qq|
<form action="./$script" method="POST" name="form">
<input type="text" name="no" maxlength="$nagasa" size="10">
<input type="submit" value="ＧＯ—">
<input type="hidden" name="n" value="$nom">
<input type="hidden" name="k" value="$kotae">
<input type="hidden" name="y" value="$kai">
<input type="hidden" name="hb" value="$hb">
<input type="hidden" name="keta" value="$nagasa">
<input type="hidden" name="max" value="$maxkai">
</form>
	|;
	$nokori = $maxkai - $kai;
	print "<p>あと$nokori搀です。</p>";
	print qq|<form action="../$html" method="GET">
	<input type="submit" value="幌めからもう办刨">
	</form>
	|;
链てHITでなく、かつまだゲ〖ムの搀眶が荒っているときの借妄です。

掐蜗フォ〖ムを呵介に回年した、ゲ〖ム搀眶、峰眶、脚剩の铜痰の攫鼠を崔んで山绩します。山绩はしませんが、hiddenとして、いままでの掐蜗された眶の旺悟やHIT&BLOWの旺悟、さらにゲ〖ムの批えもCGIの攫鼠として减け畔しています。

<form で　neme=name="form">として、ヘッダ〖のスクリプト淡揭に滦炳させています。
} else {
	print qq|<p>荒前— $maxkai搀です。<br>
	批えは∥<font color="red">$kotae</font>∠でした—</p>
	<form action="../$html" method="GET">
	<input type="submit" value="铲しい—もう办刨——">
	</form>
	|;
}
掘凤冉们の呵稿です。ここではゲ〖ムオ〖バ〖の借妄をしています。
print qq|
	<hr>
	このペ〖ジの豺棱は<a href="./l_mastermind.html">こちらをご枉ください</a>
	</center>
|;
豺棱ペ〖ジへのリファ〖山绩です。
require './fotter.txt';

exit;
fotter.txtを粕み哈んでいます。fotter.txtの柒推は布に绩しておきます。ペ〖ジの布にHOMEペ〖ジなどへのリンク山绩、HTMLの涅め借妄などがか今かれています。

exit;でスクリプト借妄の姜位です。

これで链てのスクリプトは姜位です。海まで婶尸ごとに棱汤をしてきましたので、布に蝗脱するスクリプトを、まとめて山绩しておきます。
fotter.txt
print qq(
<hr>
<center>
<font size="1">| <a href="Javascript:history.back()">Back</a> 
| | <a href="../../index.html">Coco's Home</a> 
| | <a href="../index.html">ココとPerlで头びませんか</a> |
<hr>
Copyright 2001-2002 Coco's Home. All rights reserved.</font>
</center>
</body>
</html>
);

1;
stdin.txt(豺棱は≈テキストの咖仑え∽を徊救してください)
###############################
# POST GET デ〖タ艰评 滦炳
###############################

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }

@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
}

1;
mastermind.cgi (パ〖ミッションを757)
#!/usr/local/bin/perl

###########################################
#####  マスタ〖マインド          　   #####
#####   2002.03.09 Coco Sekiguchi     #####
###########################################

require './stdin.txt';# GET,POST借妄

######掐蜗フォ〖ム艰评######
$nomber = $FORM{'no'};# 掐蜗戎规
$nagasa = $FORM{'keta'};# 啼玛の峰眶
$maxkai = $FORM{'max'};# 搀批の搀眶MAX
$dup = $FORM{'du'};# 眶机の脚剩 0=千める 1=千めない
$kai = $FORM{'y'};# 末里搀眶
$kotae = $FORM{'k'};# 批え
$nom = $FORM{'n'};# 掐蜗戎规旺悟
$hb = $FORM{'hb'};# Hit&BLOW旺悟

######介袋肋年######
$title = "マスタ〖マインド";
$html = 'mastermind_1.html';
$script = 'mastermind.cgi';
($hit, $blow) = (0, 0);

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

######HTML倡幌######
print qq|
<html>
<head>
<meta HTTP-EQUIV="content-type" CONTENT="text/html; charset=x-euc-jp">
<title>$title</title>
<script>

</script>
</head>
<body onLoad=sf()>
<center>
<h2>$title</h2>
|;

######介搀のみ搀批を艰评######
if ($kai == 0) {
	$kai = 1;
	$nom = $nomber;
	while ($kakutei == 0) {#ＰＣの搀批眶机の券栏ˇチェック
		$kakutei = 1;
		$kotae = (rand(1) * ( time % 10000 ) );
		$kotae = substr($kotae, length($kotae)-$nagasa, $nagasa);
		if ($kotae =~ /^0/) {# 黎片の峰にはゼロは烧けない
			$kakutei = 0;
		}
		for ($i=0;$i<$nagasa;$i++) {#５峰の眶机をバラス
			$kotae[$i] = substr($kotae,$i,1);
		}
		if ($dup == 1) {
			for ($i=0;$i<$nagasa;$i++) {
				for ($j=$i+1;$j<$nagasa;$j++) {
					if ($kotae[$i]==$kotae[$j]) {#眶机の脚剩を近く
						$kakutei = 0;
					}
				}
			}
		}
	}
} else {
	$nom = "$nom" . "$nomber";#掐蜗旺悟を儡鲁
	$kai++;
}

######疙掐蜗チェック######
if ($nomber eq '') { &error(1); }
if ($nomber =~ /\D/) { &error(2); }
if (length($nomber) ne $nagasa) { &error(3); }

######HIT&BLOWのチェック######
for ($i=0;$i<$nagasa;$i++) {#５峰の眶机をバラス
	$kotae[$i]=substr($kotae,$i,1);
	$anata[$i]=substr($nomber,$i,1);
}
for ($i=0;$i<$nagasa;$i++) {
	if ($kotae[$i] eq $anata[$i]) {#眶机の疤弥も赖しい
		$hit++;
		($kotae[$i], $anata[$i]) = ('H', 'I');#办刨碰たった眶机を近く
	}
}
for ($i=0;$i<$nagasa;$i++) {
	for ($j=0;$j<$nagasa;$j++) {#眶机は赖しい
		if ($kotae[$i] eq $anata[$j]) {
			$blow++;
			($kotae[$i], $anata[$j]) = ('B', 'A');#办刨碰たった眶机を近く
		}
	}
}
$hb = "$hb" . "$hit" . "$blow";#HIT&BLOWの旺悟を儡鲁


######旺悟艰评ˇ山绩######
print "<table border=\"1\"><tr align=\"center\"><td>搀眶</td><td>　</td>\n";
print "<td width=\"30\" bgcolor=\"lime\">HIT</td>";
print "<td width=\"30\" bgcolor=\"yellow\">BLOW</td></tr>\n";
for ($i = 0; $i < $kai; $i++) {
	$nomb[$i] = substr($nom, $i*$nagasa, $nagasa);#焊から$nagasa矢机づつ艰评
	$nohi[$i] = substr($hb, $i*2, 1);#焊から1矢机づつ艰评
	$noba[$i] = substr($hb, $i*2+1, 1);#焊から1矢机づつ艰评
	$ii++;
	print "<tr align=\"center\"><td>$ii</td><td>$nomb[$i]</td>\n";
	print "<td colspan=\"2\" bgcolor=\"black\">";
	if ($nohi[$i] > 0) {
		print "<font color=\"lime\">";
		for ($j=0; $j < $nohi[$i]; $j++) {
			print "↑";
		}
		print "</font>";
	}
	if ($noba[$i] > 0) {
		print "<font color=\"yellow\">";
		for ($j=0; $j < $noba[$i]; $j++) {
			print "ⅴ";
		}
		print "</font>";
	}
	if ($nohi[$i] + $noba[$i] < $nagasa) {
		print "<font color=\"white\">";
		for ($j=0; $j < ($nagasa - $nohi[$i] - $noba[$i]); $j++) {
			print "↑";
		}
		print "</font>";
	}
	print "</td></tr>\n";
}
print "</table>\n";


if ($hit == $nagasa) {
	print qq|<br><font color=\"red\">络碰たり——</font>
	<form action="../$html" method="GET">
	<input type="submit" value="鲁ける——">
	</form>
	|;
} elsif ($kai < $maxkai) {
	print qq|
<form action="./$script" method="POST" name="form">
<input type="text" name="no" maxlength="$nagasa" size="10">
<input type="submit" value="ＧＯ—">
<input type="hidden" name="n" value="$nom">
<input type="hidden" name="k" value="$kotae">
<input type="hidden" name="y" value="$kai">
<input type="hidden" name="hb" value="$hb">
<input type="hidden" name="keta" value="$nagasa">
<input type="hidden" name="max" value="$maxkai">
</form>
	|;
	$nokori = $maxkai - $kai;
	print "<p>あと$nokori搀です。</p>";
	print qq|<form action="../$html" method="GET">
	<input type="submit" value="幌めからもう办刨">
	</form>
	|;
} else {
	print qq|<p>荒前— $maxkai搀です。<br>
	批えは∥<font color="red">$kotae</font>∠でした—</p>
	<form action="../$html" method="GET">
	<input type="submit" value="铲しい—もう办刨——">
	</form>
	|;
}

print qq|
	<hr>
	このペ〖ジの豺棱は<a href="./l_mastermind.html">こちらをご枉ください</a>
	</center>
|;
require './fotter.txt';

exit;


######エラ〖山绩######
sub error {
	$error = $_[0];
	if ($error == 1) { print "眶机を掐蜗してください。"; }
	if ($error == 2) { print "0から9までの染逞眶机で掐蜗してください。"; }
	if ($error == 3) { print "$nagasa峰の染逞眶机を掐蜗してください。"; }
	print "<br>もう办刨<a href=\"Javascript:history.back()\">掐蜗</a>\n";
	exit(1);
}
| Back | Coco's Home | ココとPerlで头びませんか |

Copyright 2001-2002 Coco's Home. All rights reserved.
[PR]乹摿廤乺撪懁偐傜偺旤梕朄:偆傞偍偄旤恖偺旈枾傪岞奐両翻盎�