#!/usr/local/bin/perl
use strict;

# いずれかを有効にする。
require 'jcode.pl';
# use Jcode;

# 入力関連の関数
my ($buffer,%FORM,$THIS_SCRIPT,%CHECKED);

$THIS_SCRIPT = "http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}";
# $THIS_SCRIPT = 'http://hpcgi1.nifty.com/Iruka/ENV_FORM.cgi';

# 処理関数
my ($key,$ref,@allMembers,@GamesList,%ThisGame,$mode);

# 出力関数
my ($orderOutput,@inputError,$GameNumber,%MembersList,%Count,$GamesTableData,$membersTableData,$Links,
@ListGameList,@ListSortedGameList,@ListMembersList,$membersCSV,$gameCSV,$form,$Abstract,$naviList);

if( $ENV{'PATH_INFO'} =~ m#help.html?#i ){
	$Links = qq~\t\t<ol class="SiteMap">
		\t<li><a href="http://iruka.la.coocan.jp/" title="ホーム">配布サイトホーム</a></li>
		\t<li><a href="http://iruka.la.coocan.jp/cgi/" title="CGI">CGI目次へ</a></li>
		\t<li><a href="$THIS_SCRIPT" title="メンバーCGIへ">メンバーCGIへ</a></li>
		\t<li><a href="$THIS_SCRIPT/tty" title="メンバーCGI(TTY)へ">携帯用メンバーCGIへ</a></li>
		\t<li><a href="$THIS_SCRIPT/help.html">ヘルプ</a></li>\n\t\t</ol>\n~;
}
else{
	$Links = qq~\t\t<ol class="SiteMap">
		<li><a href="../index.html" title="ホーム" rel="start" accesskey="H">ホーム</a></li>
		\t<li><a href="$THIS_SCRIPT/help.html">ヘルプ</a></li>\n\t\t</ol>\n~;
}
my $DocumentInfo =qq~<h2><a name="information">文書情報</a></h2>\n$Links\t\t<dl class="document-version">
		\t<dt id="FIRST-PUBLISHED">First Published</dt>
		\t<dd>2009-03-18</dd>
		\t<dt id="LAST-MODIFIED">Last Modified</dt>
		\t<dd>2009-04-06 12:00:00 (JST)</dd>
		</dl>\n~;

# 初期値
my $formMax = '55';
my $gameTableTitle = 'G＼M';
my $memberTableTitle = 'M＼G';
my $memberTableTotal = '<small>Total</small>';
my $gameName = '';
my $memberName = '';
my $group = 10;
my $member=6;
my $random='limit';
my %url=();
$GameNumber = '0';



my $Num=$#allMembers+1;

if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
if($ENV{'PATH_INFO'}=~ m#help.html?#i ){&HELP;}
else{
	if( $ENV{'PATH_INFO'}=~ m#tty#i ){$mode = 'tty';}
	if($buffer ne ''){ &INPUT;}
	&FORM_check;
	&makeNaviList;
	print "Pragma: no-cache\nCache-Control: no-cache\nExpires: -1\nContent-type: text/html\; charset=euc-jp\n\n";
	&printTopMessage;
	if( $buffer ){
		if( $#inputError >= 0){&printErrorMessage;&makeForm;print $form,"\n";}
		else{
			&makeOrderList;
			@ListGameList = ();
			for (@GamesList) {push @ListGameList, [ @$_ ];}
			@ListGameList = &makeOutputData(@ListGameList);
			@ListSortedGameList = ();
			for (@GamesList) {
				push @ListSortedGameList, [ sort {$a <=> $b} @$_ ];
			}
			@ListSortedGameList = &makeOutputData(@ListSortedGameList);
			@ListMembersList = &makeOutputMemberHash;
			$GamesTableData = qq~	<div class="BodyText Text">\n\t\t<div class="FORM">
			<h2><a name="orderdList">組み合わせ結果(Table)</a></h2>\n\t\t<p>
			一部修正しての再計算は上の<a href="#inputForm" title="入力フォームへ戻ります">入力フォーム</a>を書き換えてください。すべての値を書き換える場合は<a href="$THIS_SCRIPT$ENV{'PATH_INFO'}">元のページ</a>に戻ってください。\n\t\t</p>~;
			if($orderOutput == 1){
				$GamesTableData.=&makeTable('ゲーム',@ListSortedGameList);
			}
			else{
				$GamesTableData.=&makeTable('ゲーム',@ListGameList);
			}
			$membersTableData.=&makeTable('メンバー',@ListMembersList);

			if($orderOutput == 1){
				$gameCSV .= &makeCSV('ゲーム',@ListSortedGameList);
			}
			else{
				$gameCSV .= &makeCSV('ゲーム',@ListGameList);
			}
			$membersCSV .= &makeCSV('メンバー',@ListMembersList);
			&makeForm;
			print qq~$form\n~;
			print qq~$GamesTableData\n$membersTableData\n$naviList\n\t</div>\n\t\t</div>\n~;
			unless( $mode eq 'tty'){
				print qq~\t<div class="BodyText Text">\n\t\t<div class="CSV">
			<h2><a name="orderdListCSV">組み合わせ結果(CSV)</a></h2>\n\t\t\t<p>
					一部修正しての再計算は上の<a href="#inputForm" title="入力フォームへ戻ります">入力フォーム</a>を書き換えてください。すべての値を書き換える場合は<a href="$THIS_SCRIPT$ENV{'PATH_INFO'}">元のページ</a>に戻ってください。\n\t\t\t\t</p>
				<p>\n\t\t\t\t\t\tMS office Excell形式のCSVです。下記文字列をドラッグして選択しコピーし、それを、そのままエクセルに貼り付ける。そのときテキストウィザードを使用すると表として貼り付けられる。
				</p>
	$gameCSV\n$membersCSV\n$naviList\t</div>\n</div>\n~;
			}
		}
	}
	else{
		&printAbstract;
		&makeForm;
		print $form,"\n";
	}
}
&printEndMessage;
print "</body>\n</html>\n\n";


sub printErrorMessage{
	my $count = $#inputError + 1;
	print qq~\t<div class="Message Error">
		<h2><a name="errorMessage">入力に間違いがあります。</a></h2>
		<p>\n\t\t\t入力に$count箇所、間違いがあります。訂正してください。\n\t\t</p>\n\t\t<h3>エラー</h3>
		<ul>\n~;
	for(0..$#inputError){
		print "\t\t\t<li>$inputError[$_]</li>\n";
	}
	print qq~\t\t</ul>
		<p>\n\t\t\t詳しい説明は<a href="$THIS_SCRIPT/help.html">ヘルプ</a>をご覧ください。\n\t\t</p>
		$naviList\n\t</div>\n~;
}
sub makeNaviList{
	$naviList=qq~\t\t<div class="navigationList">\n\t\t\t<h3>目次</h3>
			<ol>
				<li><a href="#Top">ページトップ</a></li>\n~;
	if( $#inputError > 0){
		$naviList.=qq~\t\t\t\t<li><a href="#errorMessage">エラー</a></li>\n~;
		$naviList.=qq~\t\t\t\t<li><a href="#inputForm">入力フォーム</a></li>\n~;
	}
	else{
		unless( $buffer){
			$naviList.=qq~\t\t\t\t<li><a href="#abstract">概要</a></li>\n~;
		}
		$naviList.=qq~\t\t\t\t<li><a href="#inputForm">入力フォーム</a></li>\n~;
		if($buffer){
			$naviList.=qq~\t\t\t\t<li><a href="#orderdList">組合せ結果</a>
					<ol>
						<li><a href="#gamesTable">ゲーム一覧表</a></li>
						<li><a href="#membersTable">参加者一覧表</a></li>
						<li><a href="#gamesCSV">ゲーム一覧CSV</a></li>
						<li><a href="#membersCSV">参加者一覧CSV</a></li>
					</ol>
				</li>\n~;
		}
	}
	$naviList.=qq~\t\t\t\t<li><a href="#information">ページ情報</a></li>
			</ol>
		</div>\n~;
}
sub makeCSV{
	my @IN_Data = @_;
	my $message=shift @IN_Data;
	my $kind;
	if($message eq 'メンバー'){ $kind='membersCSV';}
	else{$kind='gamesCSV';}
	my $CSV = qq~		<h3><a name="$kind">$message一覧CSV</a></h3>
		<div class="pre" style="border: solid 1px gray;">
			<pre>~;
	for $ref(0..$#IN_Data){
		$CSV .= join ',', map {(s/"/""/g or /[\r\n,]/) ? qq("$_") : $_} @{$IN_Data[$ref]};
		$CSV =~ s/<\/?small>//g;

		$CSV .="\n";
	}
	$CSV .=qq~</pre>		</div>~;
	return $CSV;
}
sub makeForm{
	$form = qq~\t<div class="BodyText Text">\n\t\t<div class="FORM">
			<h2><a name="inputForm">入力フォーム</a></h2>
		<form action="$THIS_SCRIPT$ENV{'PATH_INFO'}#orderdList" method="post">
		\t<table summary="メンバーや試合数を入力するフォームです。" border="1">\n~;
	unless( $mode eq 'tty'){
		$form .= qq~\t\t<tr>\n\t\t\t\t\t<th abbr="メンバー" style="width:10em">
			\t\t<input type="radio" name="nameOrNumber" value="name"$CHECKED{'nameOrNumber_name'}>(ゼッケン)名前\n\t\t\t\t\t\t<p>\n\t\t\t\t\t\t\t&quot;(ゼッケン)名前&quot;欄は名前だけでも良い。
			\t\t\t\tカンマ(,)を間にゼッケンを書いておくとゼッケン順に並べ替えて出力できる。<br>
			\t\t\t\t記入例:2,山本太郎<br>\n\t\t\t\t\t\t\t　　　 16,鈴木\n\t\t\t\t\t\t</p>\n\t\t\t\t\t</th>
			\t\t<td>\n\t\t\t\t\t\t~;
		for(1..$formMax){
			my $num="member$_";
			$form .= qq~<input type="text" name="member$_" size="18" value="$FORM{$num}"> ~;
			if( ($_/5-int($_/5))==0){
				$form .="\n\t\t\t\t\t\t";
			}
		}
		$form .= qq~\n\t\t\t\t\t</td>\n\t\t\t\t</tr>\n~;
	}
	$form .= qq~\t\t\t\t<tr>\n\t\t\t\t\t<th abbr="番号で">~;
	if( $mode eq 'tty'){
		$form .= qq~\t\t\t\t\t\t<input type="hidden" name="nameOrNumber" value="number">番号
			\t\t</th>\n~;
	}
	else{
		$form .= qq~\t\t\t\t\t\t<input type="radio" name="nameOrNumber" value="number"$CHECKED{'nameOrNumber_number'}>番号
			\t\t</th>\n~;
	}
	$form .= qq~\t\t\t\t\t<td>\n
			\t\t\t<input type="text" name="startNumber" size="3" value="$FORM{'startNumber'}">番〜
			\t\t\t<input type="text" name="endNumber" size="3" value="$FORM{'endNumber'}">番
			\t\t</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>\n\t\t\t\t\t<th abbr="人数">
				\t\t\t一ゲームの人数\n\t\t\t\t\t</th>\n\t\t\t\t\t<td>
			\t\t\t<input type="text" name="number" size="4" value="$FORM{'number'}">人：ゲームあたりの人数
			\t\t</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>
			\t\t<th abbr="試合数">\n\t\t\t\t\t\t試合数\n\t\t\t\t\t</th>\n\t\t\t\t\t<td>
			\t\t\t<input type="text" name="Games" size="3" value="$FORM{'Games'}">試合：試合数
			\t\t</td>\n\t\t\t\t</tr>\n\t\t\t\t<tr>
			\t\t<th abbr="オプション">オプション</th>\n\t\t\t\t\t<td>
				\t\t<p>
			\t\t\t<input type="radio" name="randomOrLimit" value="limit"$CHECKED{'randomOrLimit_limit'}>:制限付きランダム。全員が同じ試合数を消化するまで次のゲームに参加しない。<br>
			\t\t\t\t<strong>デフォルト(初期値)</strong>\n\t\t\t\t\t\t</p>\n\t\t\t\t\t\t<p>
			\t\t\t\t<input type="radio" name="randomOrLimit" value="full"$CHECKED{'randomOrLimit_full'}>:ランダム。連続して次のゲームに連続して参加することもある。一人当たりのゲーム差が大きくなることもある。<br>
			\t\t\t</p>\n\t\t\t\t\t\t<p>
			\t\t\t\t<input type="checkbox" name="order" value="1"$CHECKED{'check_order'}>:結果を番号、またはゼッケンで並べ替えする。<strong>デフォルト(初期値)</strong><br>
			\t\t\t\t<em>組み合わせをさらに複数のグループに分けるときなどは、このチェックを外す。</em>
			\t\t\t</p>\n\t\t\t\t\t</td>\n\t\t\t\t</tr>
				<tr>\n\t\t\t\t\t<td colspan="2" style="text-align:center;">
			\t\t\t<input type="submit" value="　　計算する　　">&nbsp;&nbsp;&nbsp;<input type="reset" value="消去">\n\t\t\t\t\t</td>\n\t\t\t\t</tr>
			</table>\n\t\t</form>
		</div>$naviList\n\t</div>~;
}

sub makeTable{
	my @IN_Data = @_;
	my @OUT_DATA = ();
	my $message=shift @IN_Data;
	my $kind;
	if($message eq 'メンバー'){ $kind='membersTable';}
	else{$kind='gamesTable';}
	my @line;
	my $ref;
	my @Line=();
	my $tableData = qq~
		<h3><a name="$kind">$message一覧表</a></h3>
		<p>
			$messageごとの参加者の一覧。
		</p>
		<table summary="$kind" border="1">
			<tbody>\n~;
	for $ref(0..$#IN_Data){
		$tableData .= "\t\t\t\t<tr>\n";
		@Line = @{$IN_Data[$ref]};
		my $num;
		if( $ref<1){
			for $num(0..$#Line){
				$tableData .="<th abbr=\"Total\" class=\"column\">$Line[$num]</th>";
			}
		}
		else{
			for $num(0..$#Line){
				if( $num ==0 ){
					$tableData .="<th abbr=\"$Line[$num]\" class=\"row\">$Line[$num]</th>";
				}
				else{
					$tableData .="<td >$Line[$num]</td>";
				}
			}
		}
		$tableData .="</tr>\n";
	}
	$tableData .= "\t\t\t</tbody>\n\t\t</table>\n";
	return $tableData;
}
sub makeOutputMemberHash{
	my @List=();
	my @outputList;
	my $Number = 0;
	foreach $key (sort {$a <=> $b} keys %MembersList){
		@outputList = @{$MembersList{$key}};
		for(0..$GameNumber-1){
			if($outputList[$_] !~ /○/){ $outputList[$_] = '　';}
		}
		unshift @outputList,($key,$Count{$key});
		push @{ $List[$Number]},@outputList;
		$Number++;
	}
	my @firstLine=();
	push @firstLine,("$memberTableTitle","$memberTableTotal");
	for(1..$GameNumber){
		push @firstLine,$gameName.$_;
	}
	unshift @List,[ @firstLine ];
	return @List;
}		


sub makeOutputData{
	my @List=@_;

	for(0..$#List){
		my $VoL = $_ +1;
		$VoL .=$gameName;
		unshift @{$List[$_]},$VoL;
	}


	my @firstLine=();
	push @firstLine,("$gameTableTitle");
	for(1..$member){
		push @firstLine,$_.$memberName;
	}
	unshift @List,[ @firstLine ];
	return @List;
}



sub makeOrderList{
	my ($Orderd,$Number_of_ThisGame,$count,$Max);
	my @waitingMembers = @allMembers;
	$Orderd = 0;
	foreach(;;){
		my ($number_of_waitingMembers,$picup);
		$Max=$group*$member;
		if($Orderd >= $Max){
			last;
		} # 参加者が決まると終了
		if($random eq 'limit'){
		 	if( $#waitingMembers == 0 ){
		 		$picup=$waitingMembers[0];
		 		$ThisGame{$picup}=1;
		 		@waitingMembers = @allMembers;
		 	}
			else{
				$number_of_waitingMembers = $#waitingMembers;
				$picup = splice(@waitingMembers,int (rand( $number_of_waitingMembers )),1);
				if( $ThisGame{$picup} == 1){
					push @waitingMembers,$picup;
					next;
				}
				else{
					$ThisGame{$picup}=1;
				}
			}
		}
		
		else{
			$number_of_waitingMembers = $#allMembers;
			$picup = $allMembers[int (rand( $number_of_waitingMembers ))];
			if( $ThisGame{$picup} == 1){ next;}
			else{$ThisGame{$picup}=1;}
		}

		push @{$GamesList[$GameNumber]} ,"$picup";
		
		$Count{$picup}++;

		$Number_of_ThisGame++;

		$MembersList{$picup}[$GameNumber]='○';

		if( $Number_of_ThisGame > $member-1){
			$GameNumber++;
			$Number_of_ThisGame=0;
			undef %ThisGame;
		}
		
		$Orderd ++;
	}
}
sub INPUT{
	my (@pairs,$pair,$name,$value,@Member);
	@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;
		&jcode'convert(*value,'euc');
		if($name =~ /member\d+/ && $value ne''){push @Member,$value;}
		$FORM{$name} = $value;
	}
	if($FORM{'nameOrNumber'} =~ /name/i){ undef @allMembers;@allMembers = @Member;}
}
sub FORM_check{
	if( $FORM{'nameOrNumber'} eq 'number'){
		if($FORM{'startNumber'} =~ /\D+/ ){
			push @inputError,("開始番号($FORM{'startNumber'})に数字以外の文字が含まれています。");
		}
		elsif($FORM{'startNumber'} < 1 ){
			push @inputError,("開始番号($FORM{'startNumber'})を入力してください。");
		}
		if($FORM{'endNumber'} =~ /\D+/ ){
			push @inputError,("終了番号($FORM{'endNumber'})に数字以外の文字が含まれています。");
		}
		elsif($FORM{'endNumber'}   <=0 ){
			push @inputError,("終了番号($FORM{'endNumber'})を入力してください。");
		}
		
		if($FORM{'endNumber'}<$FORM{'startNumber'}){
			push(@inputError,'番号は大きいほうを右に書いてください。');
		}
		if($FORM{'endNumber'}-$FORM{'startNumber'}>100){
			push(@inputError,'最大１００件までです。');
		}
		if(($FORM{'endNumber'}-$FORM{'startNumber'})<$FORM{'number'}){
			push(@inputError,'参加者よりゲームに必要な人数は少なくなければいけません。');
		}
		my ($min,$MAX)=("$FORM{'startNumber'}","$FORM{'endNumber'}");
		foreach($min..$MAX){
	 		push @allMembers,$_;
		}
		if($#allMembers +1 <= $FORM{'number'}){
			push(@inputError,'参加者よりゲームに必要な人数は少なくなければいけません。');
		}
		$CHECKED{'nameOrNumber_number'} =' checked';
	}
	elsif($FORM{'nameOrNumber'} eq 'name'){
	 	if($#allMembers+1 < $FORM{'number'} ){
	 		my $count = $#allMembers + 1;
			push @inputError,"名前での計算の場合、参加者数は$count名、参加者数は１ゲームの人数($FORM{'number'})以上必要です。<strong>番号での計算の場合は番号をチェック</strong>";
		}
		$CHECKED{'nameOrNumber_name'} =' checked';
	}
	else{ $CHECKED{'nameOrNumber_name'} =' checked';}



	if( $buffer ){
		if($FORM{'order'} == 1){
			$orderOutput = 1;$CHECKED{'check_order'} = ' checked';
		}
		else{
			$orderOutput = 0;$CHECKED{'check_order'}='';
		}
	}
	else{ $CHECKED{'check_order'} = ' checked';}

	if($FORM{'randomOrLimit'} =~ /full/i ){
		$CHECKED{'randomOrLimit_full'}=' checked'; $random = 'fll';
	}
	else{
		$CHECKED{'randomOrLimit_limit'}=' checked'; $random = 'limit';
	}

	$group = $FORM{'Games'};
	$member = $FORM{'number'};
}

sub HELP{
	print "Pragma: no-cache\nCache-Control: no-cache\nExpires: -1\nContent-type: text/html\; charset=euc-jp\n\n";
	&printTopMessage;
	while(<DATA>){
		s/\$THIS_SCRIPT\$ENV{'PATH_INFO'}/$THIS_SCRIPT$ENV{'PATH_INFO'}/g;
		print ;
	}
}
sub printAbstract{
	if( $mode eq 'tty'){
		print qq~\t<div class="Message Text">\n\t\t<div class="Abstract">\n\t\t\t<h2><a name="abstract">このCGIは・・(概要)</a></h2>
			<p>パソコンなどの場合は、<a href="$THIS_SCRIPT">スクリーン端末(\@mediaType=screen)用</a>をご利用ください。<strong>(氏名での組み合わせが利用できます。)</strong></p>
		\t<p>\n\t\t\t\tスポーツやゲームで、メンバーの組み合わせを行います。参加する人数からできるだけランダムにメンバーを選択して1グループずつ作っていきます。
		\t</p>\n\t\t</div>\n\n$naviList\t</div>\n~;
	}
	else{
		print qq~\t<div class="Message Text">\n\t\t<div class="Abstract">\n\t\t\t<h2><a name="abstract">このCGIは・・(概要)</a></h2>
			<p>携帯端末の場合は、<a href="$THIS_SCRIPT/tty">携帯端末(\@mediaType=TTY)用</a>をご利用ください。<strong>(その場合氏名での組み合わせは出来ません。)</strong></p>
		\t<p>\n\t\t\t\tスポーツやゲームで、メンバーの組み合わせを行います。参加する人数からできるだけランダムにメンバーを選択して1グループずつ作っていきます。
		\t</p>\n\t\t\t<p>\n\t\t\t\tこのプログラムは、「テニスや卓球の練習試合の組み合わせを決めるためのCGIは無いか」という疑問から、探してもなさそうなのでいっそのこと作ってしまえと取り掛かりました。
		\t</p>\n\t\t\t<p>\n\t\t\t\tそれを実現するためには、配列のハッシュや配列の配列という二次元データの処理というよく使う手順でありながら、意外と奥の深い処理手順を駆使する必要がありました。
		\t</p>\n\t\t\t<p>\n\t\t\t\tあまり必要なプログラムとは思えないので、用途は後から考えることにして、とりあえず動けばよいという考えで作られていますので、まだ工夫の余地はあると思われます。そのため、GPLで配布しますから、皆さんで工夫してみてください。
		\t</p>\n\t\t\t<h3>このプログラムで出来ること</h3>\n\t\t\t<ul>
		\t\t<li>メンバー(または番号)を入力したものから、一回戦ごとの参加メンバーを決めます。</li>
		\t\t<li>２回戦目からは、すでに参加したものを除いて参加メンバーを決めることもできます。</li>
		\t\t<li>全員が参加し終わると改めて参加メンバーの組み合わせを計算します。</li>\n\t\t\t</ul>\n\t\t\t<p>\n\t\t\t\t詳しい説明は<a href="$THIS_SCRIPT/help.html">ヘルプ</a>をご覧ください。またこのCGIのソースは<a href="../cgi/members.txt" charset="euc-jp">MEMBERS.CGI</a>にあります。<em>文字コードはEUCです。EUCが編集できるテキストエディタでご利用ください。</em>
		\t</p>\n\t\t\t<p>\n\t\t\t\t著作権については<a href="#information">このページの文書情報</a>をご覧ください。
		\t</p>\n\t\t</div>\n\n$naviList\t</div>\n~;
	}
}
sub printTopMessage{
	print qq~<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="ja">\n<head>\n<meta http-equiv="content-type" content="text/html; charset=euc-jp">
<title>組み合わせ</title>\n<meta name="author" content="IRUKA">
<meta http-equiv="Content-Style-Type" content="text/css">\n<style type="text/css">
<!--
	html,body{padding:0px;margin:0px;width:100%;}\n\tp{ text-indent:1em;}
	body{position:relative; background-color:rgb(200,200,200);color:black;}
	h1,h2{text-align:center;margin-top:20px;margin-right:150px;}\n\th2{margin-top:10px;}
	div.Text{\n\t\tposition:relative;\n\t\tmargin-top: 2em;\n\t\twidth:auto;\n\t\tcolor:inherit;\n\t\tpadding: 1%;
	}\n\tdiv.BodyText{\n\t\tmargin-left:18%;\n\t\tmargin-right:4%;\n\t\tbackground-color:white;
	\tborder: gray 1px outset;\n\t\tborder-width: 1px 3px 3px 1px;\n\t}\n\tdiv.Message{
	\tmargin:0.5em 15%;\n\t\tbackground-color: inherit;\n\t\tborder: none;\n\t}
	div.Abstract{\n\t\tmargin: 0px;\n\t\tborder-color:gray;\n\t\tborder-style:inset;
	\tborder-width:3px 2px 2px 3px;\n\t\tpadding: 0.5em 1em;\n\t\tbackground-color: rgb(240,240,240);
	}\n\tdiv.Help{\n\t\tmargin: 0px;\n\t\tborder:none;\n\t\tpadding: 0.5em 1em;
	\tbackground-color: rgb(240,240,240);\n\t}\n\tdiv.DocumentInfomation{\n\t\tmargin: 0px;
	\tborder:none;\n\t\tpadding: 0.5em 1em;\n\t\tbackground-color: rgb(225,225,225);\n\t}
	div.navigationList{\n\t\tposition:absolute;\n\t\tdisplay:block;\n\t\ttop:0px;
	\tfont-size:0.9em;\n\t\tbackground-color: rgb(220,220,255);\n\t\tpadding: 0.2em 0.5em;
	\tborder-style: outset;\n\t\tborder-width: 1px 3px 3px 1px;\n\t\tborder-color:gray;\n\t}
	div.BodyText div.navigationList{\n\t\twidth: 17%;\n\t\tleft: -21%;\n\t}
	div.Message div.navigationList{\n\t\twidth: 17%;\n\t\tleft: -20%;\n\t}
	div div.navigationList h3{\n\t\tdisplay:none;\n\t}\n\tdiv div.navigationList ol{
	\tpadding:0px 0px 0px 5px;\n\t\tmargin: 0px;\n\t}\n\tdiv div.navigationList ol li{
	\tmargin-left: 1em;\n\t\tlist-style-type:decimal;\n\t\tlist-style-position:outside;
	\tmarker-offset: 0.5em;\n\t}\n\tdiv div.navigationList ol li ol{\n\t\tfont-size: 0.9em;
	\tpadding-left:2px;\n\t}\n\tdiv.Error{\n\t\tborder:red double 4px;\n\t}\n\tdiv.Error li{
	\tcolor:red;\n\t}\n\tdiv.BodyText table{\n\t\tborder: solid 3px rgb(255,180,180);
	\tborder-collapse:collapse;\n\t}\n\tdiv.BodyText table th,div.BodyText table td{
	\tborder-color:rgb(255,180,180);\n\t\tborder-style: solid;\n\t\tborder-width: 1px 0px;
	\tpadding: 4px 2px;\n\t\ttext-align:center;\n\t}\n\tdiv.BodyText table th{
	\ttext-align:right;\n\t\tpadding:2px 5px;\n\t}\n\tdiv.BodyText table th p{
	\tfont-weight: normal;\n\t\tfont-size:0.95em;\n\t\ttext-align:left;\n\t}
	div.BodyText table td p{\n\t\ttext-align:left;\n\t\ttext-indent: -1.5em;
	\tmargin-left:1.5em;\n\t}\n\tdiv.BodyText table td.text{\n\t\ttext-align:left;\n\t}
	div.BodyText table tbody tr td.data{\n\t\tfont-size: small;\n\t\tpadding: 2px 5px;
	\ttext-align:left;\n\t}\n\tdiv.BodyText table th.name{\n\t\ttext-align:left;
	\tpadding-left:2px;\n\t}\n\tdiv.Help dl dt{\n\t\tfont-weight: bold;
	\tmargin-top: 2em;\n\t}\n\tdiv.Help dl dd dl dt{\n\t\tfont-weight:normal;
	\tmargin-top: 0.5em;\n\t}\n\tdiv.Help dl dd dl{\n\t\tmargin-left: 1em;\n\t}
	div.Help dl dd{\n\t\tdisplay: list-item;\n\t\tlist-style: disc;\n\t}\n\tdiv#W3C_Valid{
	\t\tdisplay:block;\n\t\tposition:absolute;\n\t\twidth: 330px;\n\t\tmargin: 5px;
	\ttop:20px;\n\t\tright:0px;\n\t}\n\tdiv#W3C_Valid ul{\n\t\tpadding:0px;
	\tmargin:0px;\n\t\tdisplay:block;\n\t}\n\tdiv#W3C_Valid li{\n\t\tdisplay:block;
	\tfloat:left;\n\t\twidth:100px;\n\t\tlist-style:none;\n\t\tmargin:0px;\n\t\tpadding:0px;
	}\n\tdiv.pre{\n\t\tborder: solid 1px gray;\n\t}\n\tdiv.pre pre{\n\t\tmargin: 5px 10px;
	}\n-->\n</style>\n<link rel="START" href="../index.html">
<link rev="made" href="mailto:webmaster&#64;ichiya.com" title="send a mail">\n</head>\n<body>
<h1><a name="Top">組み合わせ</a></h1>\n<!-- topMessage -->\n~;
}
sub printEndMessage{
	print qq^\t<div class="Message Text">\n\t\t<div class="DocumentInfomation">
		\t\n\t\t\t$DocumentInfo\n\n\t\t\t<h3>著作権</h3>\n\t\t\t<p>
		\t\tこのプログラムは<a href="http://www.gnu.org/licenses/gpl.html">The GNU General Public License</a>
		\t\t\t\t\t(<a 
		href="http://sourceforge.jp/projects/opensource/wiki/licenses%252FGNU_General_Public_License_version_3.0">
		\t\t\t\t\tGNU 一般公衆利用許諾書 バージョン3 (GPLv3)</a>）で配布します。
		\t</p>\n\t\t\t<address>&copy; TESHIMA Shizuka  2009 - 2012 All Rights Reserved
		\t\t\t\t\t<a href="mailto:office&#64;ichiya.com" title="send a mail" accesskey="M" rev="made">
		\t\t\t\t\tmailto:office&#64;ichiya.com</a></address>\n\t\t</div>
		$naviList
	</div>
	<div id="W3C_Valid">\n\t\t<ul>
		\t\t<li><a href="http://validator.w3.org/check?uri=referer"><img src="http://www.w3.org/Icons/valid-html401"
		\t\t\t alt="Valid HTML 4.01!" height="31" width="88" style="border:0;width:88px;height:31px"></a>
		\t</li>\n\t\t\t<li>\n\t\t\t\t <a href="http://jigsaw.w3.org/css-validator/check/referer">
		<img style="border:0;width:88px;height:31px" 
		\t\t\t src="http://jigsaw.w3.org/css-validator/images/vcss" \n\t\t\t\t alt="Valid CSS!" height="31" width="88"></a>
		\t</li>\n\t\t\t<li>\n\t\t\t\t <a href="http://openlab.ring.gr.jp/k16/htmllint/htmllint.cgi?ViewSource=on&amp;A=on">
		\t\t<img alt="Another HTML-lint gateway" src="http://openlab.ring.gr.jp/k16/images/ahl-100+.png" 
		\t\theight="31" width="88" style="border:0;width:88px;height:31px"></a>
		\t</li>\n\t\t</ul>\n\t</div>\n\n^;
}
__END__
	<div class="Message Text">
		<div class="Abstract">
			<h2><a name="abstract">このCGIは・・(概要)</a></h2>
			<p>
				スポーツやゲームで、メンバーの組み合わせを行います。参加する人数からできるだけランダムにメンバーを選択して1グループずつ作っていきます。
			</p>
			<p>
				このプログラムは、「テニスや卓球の練習試合の組み合わせを決めるためのCGIは無いか」という疑問から、探してもなさそうなのでいっそのこと作ってしまえと取り掛かりました。
			</p>
			<p>
				それを実現するためには、配列のハッシュや配列の配列という二次元データの処理というよく使う手順でありながら、意外と奥の深い処理手順を駆使する必要がありました。
			</p>
			<p>
				あまり必要なプログラムとは思えないので、用途は後から考えることにして、とりあえず動けばよいという考えで作られていますので、まだ工夫の余地はあると思われます。そのため、GPLで配布しますから、皆さんで工夫してみてください。
			</p>
			<h3>このプログラムで出来ること</h3>
			<ul>
				<li>メンバー(または番号)を入力したものから、一回戦ごとの参加メンバーを決めます。</li>
				<li>２回戦目からは、すでに参加したものを除いて参加メンバーを決めることもできます。</li>
				<li>全員が参加し終わると改めて参加メンバーの組み合わせを計算します。</li>
			</ul>
			<p>
				詳しい説明は<a href="http://$THIS_SCRIPT/help.html">ヘルプ</a>をご覧ください。またこのCGIのソースは<a href="../cgi/members.txt" charset="euc-jp">MEMBERS.CGI</a>にあります。<em>文字コードはEUCです。EUCが編集できるテキストエディタでご利用ください。</em>
			</p>
			<p>
				著作権については<a href="#information">このページの文書情報</a>をご覧ください。
			</p>
		</div>
		<div class="navigationList">
			<h3>目次</h3>
			<ol>
				<li><a href="#Top">ページトップ</a></li>
				<li><a href="#abstract">概要</a></li>
				<li><a href="#inputForm">入力フォームの説明</a></li>
				<li><a href="#orderdList">組合せ結果の説明</a></li>
				<li><a href="#manual">設置方法の説明</a></li>
				<li><a href="#information">ページ情報</a></li>
			</ol>
		</div>
	</div>
	<div class="Message Text">
		<div class="Help">
			<h2><a name="inputForm">入力フォーム</a></h2>
			<dl>
				<dt>(ゼッケン)名前</dt>
				<dd>&quot;(ゼッケン)名前&quot;欄には、ゲーム参加者の氏名などを記入します。</dd>
				<dd>このとき、氏名の前に数字またはアルファベットを含む文字列をカンマ(,)で区切っていれておくと、その文字順に並べ替えて出力できる。
					<ul>
						<li>記入例:2,山本太郎</li>
						<li>記入例:16,鈴木</li>
					</ul>
				</dd>
				<dd>飛び番号がある場合もこちらを利用する。</dd>
				<dt>番号を記入する場合</dt>
				<dd>ＩＤなど、連続番号で指定する場合はこちらを利用する。その場合、開始番号と終了番号を記入する。</dd>
				<dt>一ゲームの人数</dt>
				<dd>ゲームあたりに参加する人数を決める。</dd>
				<dd>クラス対抗のゲームでランダムに選択してチームを作る場合など、自チームだけを決める場合は、ここに１チームのメンバーを入力します。</dd>
				<dd>また、練習試合のように、両チームの参加者をランダムに選択したい場合は両チーム合わせた人数を入力します。				<ul>
						<li>参加者６人×２チームのポートボールの場合１２人となります。</li>
						<li>テニスや卓球のダブルスの場合は４人</li>
					</ul>
				</dd>
				<dd>野球などのように１ゲームへの参加者が多い場合は、１チームの人数を１ゲームの参加者として、制限付きランダムを選択する。</dd>
				<dd>一方のチームだけ決める場合は、番号順に並べ替えて出力できます。</dd>
				<dd>練習試合のように双方のチームに誰が行くかもランダムに決めたい場合は並べ替えをしないで、得られた組み合わせを前後で二つに分ける。</dd>
				<dt>試合数</dt>
				<dd>何回試合を行うかを入力します。</dd>
				<dd>この場合、オプションで試合毎にランダムに選択するか、全員の参加機会が出来るだけ同じにするかを指定する。</dd>
				<dt>オプション</dt>
				<dd>組み合わせと出力方法の指定をする。
					<dl>
						<dt>制限付きランダム</dt>
						<dd>全員が同じ試合数を消化するまで次のゲームに参加しない。<strong>デフォルト(初期値)</strong></dd>
						<dt>ランダム</dt>
						<dd>連続して次のゲームに連続して参加することもある。一人当たりのゲーム差が大きくなることもある。</dd>
						<dt>結果を番号、またはゼッケンで並べ替えする。</dt>
						<dd><strong>デフォルト(初期値)</strong></dd>
						<dd><em>組み合わせをさらに複数のグループに分けるときなどは、このチェックを外す。</em></dd>
					</dl>
				</dd>
			</dl>
		</div>
		<div class="navigationList">
			<h3>目次</h3>
			<ol>
				<li><a href="#Top">ページトップ</a></li>
				<li><a href="#abstract">概要</a></li>
				<li><a href="#inputForm">入力フォームの説明</a></li>
				<li><a href="#orderdList">組合せ結果の説明</a></li>
				<li><a href="#manual">設置方法の説明</a></li>
				<li><a href="#information">ページ情報</a></li>
			</ol>
		</div>
	</div>
	<div class="Message Text">
		<div class="Help">
			<h2><a name="orderdList">組み合わせ結果(Table)の解説</a></h2>
			<dl>
				<dt><a name="gamesTable">ゲーム一覧表</a></dt>
				<dd>各ゲームの参加者の一覧です。入力時に並べ替えが指定してあると並べ替えがされています。</dd>
				<dt><a name="membersTable">メンバー一覧表</a></dt>
				<dd>参加者別の試合数と参加するゲームの一覧</dd>
			</dl>
			<h2><a name="orderdListCSV">組み合わせ結果(CSV)の解説</a></h2>
			<p>
				MS office Excell形式のCSVです。下記文字列をドラッグして選択しコピーメモ帳などに貼り付けて、拡張子をcsvにして保存するか、そのままエクセルに貼り付ける。そのとき、エクセルで表示されるメニューからテキストウィザードを使用すると表として貼り付けられる。
			</p>
			<dl>
				<dt><a name="gamesCSV">ゲーム一覧</a></dt>
				<dd>ゲーム毎の参加者の一覧</dd>
				<dt><a name="membersCSV">メンバー一覧</a></dt>
				<dd>参加者毎の参加ゲームの一覧</dd>
			</dl>
		</div>
		<div class="navigationList">
			<h3>目次</h3>
			<ol>
				<li><a href="#Top">ページトップ</a></li>
				<li><a href="#abstract">概要</a></li>
				<li><a href="#inputForm">入力フォームの説明</a></li>
				<li><a href="#orderdList">組合せ結果の説明</a></li>
				<li><a href="#manual">設置方法の説明</a></li>
				<li><a href="#information">ページ情報</a></li>
			</ol>
		</div>
	</div>

	<div class="Message Text">
		<div class="Help">
			<h2><a name="manual">設置方法</a></h2>
			<p>
				このCGIは、サーバーにテキストモードで転送して実行権限を与えるだけで動作するように作成されています。拡張子を.txtから、.cgiに変更してください。
			</p>
			<p>
				<strong>jcode.plはこのCGIと同じ場所に置くか、PATHを書き換えること。</strong>
			</p>
			<p>
				なお、サーバーにJcode.pmがある場合は、最初のrequire 'jcode.pl';の部分を、use Jcode;に書き換えれば動きます。その他、書き換えが必要そうな部分は最初の方にまとめてありますから適当に変更してください。
			</p>
		</div>
	</div>