¥«¥ì¥Ã¥Â |
¼ÁÌä¼Ô ¤Ä¤è¤·¡×
Åê¹ÆÆü 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'}¤Ç¡¢¤¹¤Ù¤Æ¤Î¥Ç¡¼¥¿¤¬ ¥Ò¥Ã¥È¤·¤Æ¤·¤Þ¤Ã¤Æ¤¤¤ë¤¿¤á¤Ë¡¢³ºÅö¹Ô°Ê³°¤Î¥Ç¡¼¥¿¤¬ºï½ü¤µ¤ì¤Æ¤·¤Þ¤Ã¤Æ¤¤¤ë¤Î¤Ç¤Ï ̵¤¤¤«¡¢¤È¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢Êýºö¤¬¤³¤ì°Ê¾åÉ⤫¤Ó¤Þ¤»¤ó¡£ ¤É¤Ê¤¿¤«¤´¶µ¼ø¤¤¤¿¤À¤±¤ë¤È¡¢Èó¾ï¤Ë½õ¤«¤ê¤Þ¤¹¡£ ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
¡Ú½¬½ÏÅÙ¡Û¿¾¯¤Î²þ¤¤¬¤Ç¤¤ë |
ÊÖ¿®(²óÅú)¤¹¤ë
£×£å£â΢µ» |