CGI-BBS > ¥Ç¡¼¥¿¥Ù¡¼¥¹ > ´Ê°×¥Ç¡¼¥¿¥Ù¡¼¥¹ > ´û½Ð¡¦¥Ç¡¼¥¿¥Ù¡¼¥¹­¶¤Ç¸¡º÷·ë²Ì¤ÇÁªÂò¤·¤¿¹Ô¤ò½ñ¤­´¹¤¨¤¿¤¤¡£


¥«¥ì¥Ã¥Â
¥«¥ì¥Ã¥Â


¼ÁÌä¼Ô ¤Ä¤è¤·¡×  Åê¹ÆÆü 2006/2/25(ÅÚ) 03:21:00  [ºï½ü] (ÊÖ¿®¡¦²óÅú¤¬ÉÕ¤¤¤¿¸å¤Ë¤³¤Î¼ÁÌä¤Îºï½ü¤Ï¤Ç¤­¤Þ¤»¤ó)
¤¤¤Ä¤â¡¢»²¹Í¤Ë¤µ¤»¤Æ¤¤¤¿¤À¤¤¤Æ¤ª¤ê¤Þ¤¹¡£

´û½Ð¥¹¥ì¥Ã¥É¡Ö¥Ç¡¼¥¿¥Ù¡¼¥¹¥Õ¥¡¥¤¥ë¤ÎÆÃÄê¤Î¹Ô¤ò»ØÄꤷ¤Æ½ñ¤­´¹¤¨¤¿¤¤¡×¤ò»²¹Í¤Ë¡¢
Ëͤâ´Ê°×¥Ç¡¼¥¿¥Ù¡¼¥¹­¶¤Ë¤ª¤¤¤Æ¡¢ÆÃÄê¤Î°ì¹Ô¤òÊÔ½¸¤·¤è¤¦¤È»î¤ß¤Æ¤¤¤Þ¤¹¤¬¡¢
½ñ¤­´¹¤¨¤Î¤È¤­¤Ë¡¢Âоݹ԰ʳ°¤Î¥Ç¡¼¥¿¤¬ºï½ü¤µ¤ì¤Æ¤·¤Þ¤¤¡¢º¤¤Ã¤Æ¤¤¤Þ¤¹¡£
¤É¤Ê¤¿¤«¡¢¤´¶µ¼ø¤¤¤¿¤À¤±¤Þ¤»¤ó¤Ç¤·¤ç¤¦¤«¡£

¤Á¤Ê¤ß¤Ë¡¢°Ê²¼¤Î¤è¤¦¤Ë²þ¤¤·¤Þ¤·¤¿¡£

¡Ú¸¡º÷·ë²Ìɽ¼¨²èÌÌ¡Û
@sorts = sort { (split(/,/,$a))[1] cmp (split(/,/,$b))[1] } @NEW;
	foreach $data (@sorts) {
		($NAME,$SEX,$EMAIL,$AGE,$PREF,$REM) = &DecodeCSV($data);

		print "<tr>\n";
		print "<td nowrap>$NAME</td>\n";
		print "<td nowrap align=center>$SEX</td>\n";
		print "<td nowrap><a href=\"mailto:$EMAIL\">$EMAIL</a></td>\n";
		print "<td nowrap align=center>$AGE</td>\n";
		print "<td nowrap>$PREF</td>\n";
		print "<td>$REM</td>\n";
		print "<form method=POST action=\"database.cgi\"><input type=hidden name=\"target\" value=\"$NAME,$SEX,$EMAIL,$AGE,$PREF,$REM\"><input type=hidden name=\"NAME2\" value=\"$NAME\"><input type=hidden name=\"EMAIL2\" value=\"$EMAIL\"><input type=hidden name=\"AGE2\" value=\"$AGE\"><input type=hidden name=\"PREF2\" value=\"$PREF\"><input type=hidden name=\"REM2\" value=\"$REM\"><input type=hidden name=\"edit\" value=1><td><input type=radio name=\"SEX2\" value=\"1\">ÃË<input type=radio name=\"SEX2\" value=\"2\">½÷</td>\n";
		print "<td><input type=submit value=\"ÅÐÏ¿\"></td></form>\n";
		print "</tr>\n";
	}


¡ÚÄÉ²Ã¥×¥í¥°¥é¥à¡Û
if ($FORM{'edit'}){
foreach $num ($FF .. $#BASE){
 if($num == $FORM{'target'}){push(@newlog,"$FORM{'NAME2'},$FORM{'SEX2'},$FORM{'EMAIL2'},$FORM{'AGE2'},$FORM{'PREF2'},$FORM{'REM2'}\n");}
else{push(@newlog,"$_");}
}
open(OUT,"> $file") || &err1('not writing');
print OUT @newlog;
close(OUT);
}

¤ª¤½¤é¤¯¡¢else{push(@newlog,"$_");}
¤ÎÉôʬ¤¬Å¬ÀڤǤʤ¤¤«¡¢¤¢¤ë¤¤¤Ï¡¢$num == $FORM{'target'}¤Ç¡¢¤¹¤Ù¤Æ¤Î¥Ç¡¼¥¿¤¬
¥Ò¥Ã¥È¤·¤Æ¤·¤Þ¤Ã¤Æ¤¤¤ë¤¿¤á¤Ë¡¢³ºÅö¹Ô°Ê³°¤Î¥Ç¡¼¥¿¤¬ºï½ü¤µ¤ì¤Æ¤·¤Þ¤Ã¤Æ¤¤¤ë¤Î¤Ç¤Ï
̵¤¤¤«¡¢¤È¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢Êýºö¤¬¤³¤ì°Ê¾åÉ⤫¤Ó¤Þ¤»¤ó¡£

¤É¤Ê¤¿¤«¤´¶µ¼ø¤¤¤¿¤À¤±¤ë¤È¡¢Èó¾ï¤Ë½õ¤«¤ê¤Þ¤¹¡£
¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£

¡Ú½¬½ÏÅÙ¡Û¿¾¯¤Î²þ¤¤¬¤Ç¤­¤ë

ÊÖ¿®(²óÅú)¤¹¤ë

 


£×£å£â΢µ»