CGI-BBS > £Ã£Ç£É > Perl > Perl¤Ë¤Ä¤¤¤Æ¥¯¥Ã¥­¡¼¤Î»È¤¤Êý¤òÃΤꤿ¤¤¤Ç¤¹¡£


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


¼ÁÌä¼Ô ¤ß¤é¤¤  Åê¹ÆÆü 7/8(²Ð) 14:57:20
ÉáḀ֥̈饦¥¶¤«¤é¥Ç¡¼¥¿¤òÁ÷¿®¤¹¤ëÆ°ºî¤Ï
¥Õ¥©¡¼¥à¤Ç¥Ç¡¼¥¿¤òÆþÎϤ·¤ÆÁ÷¿®¤¹¤ë¤È»×¤¤¤Þ¤¹¡£
¤Ç¤â¡¢¤³¤ì¤Ç¤ÏÊ£¿ô¤Î¥Ç¡¼¥¿¤ò¤Þ¤È¤á¤ÆÁ÷¿®¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤»¤ó¡£
¤½¤³¤Ç¡¢
¥Æ¥ó¥Ý¥é¥ê¡¼¥¯¥Ã¥­¡¼¤Ë¥Ç¡¼¥¿¤ò°ì»þŪÊÝ»ý¤·¤Æ
ºÇ¸å¤Ë°ìµ¤¤ËÁ÷¿®¤¹¤ëÊýË¡¤ò»×¤¤¤Ä¤­¤Þ¤·¤¿¡£
¤·¤«¤·¡¢
º£¤Þ¤Ç¥¯¥Ã¥­¡¼¤Ï·Ð¸³¤¬¤Ê¤¯¡¢¥¯¥Ã¥­¡¼¤Ë¤Ä¤¤¤Æ¤Î»ñÎÁ¤¬¸«¤Ä¤«¤é¤Ê¤¯¶ìÀ路¤Æ¤¤¤Þ¤¹¡£
¤É¤¦¤«¥¢¥É¥Ð¥¤¥¹¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£

Ïä·Êý¤Ï¤¢¤Þ¤ê¤¦¤Þ¤¯¤Ê¤¤¤Î¤Ç¿Þ¤Ë½ñ¤­¤Þ¤·¤¿¡£

­¡¥Õ¥©¡¼¥à¤«¤é¥Ç¡¼¥¿¤òÆþÎϤ¹¤ë¡£
¡¡¡¡¡¡¡¡¡¡¢¦¡¡¢¤
­¢°ì»þŪ¤Ë¥Ç¡¼¥¿¤òÊݸ¤¹¤ë¡£
¡¡¡¡¡¡¡¡¡¡¢§
­¥°ì»þŪ¤ËÊݸ¤µ¤ì¤Æ¤¤¤¿Ê£¿ô¤Î¥Ç¡¼¥¿¤ò¤Þ¤È¤á¤ÆÁ÷¿®¤¹¤ë¡£

¢¨­¡¡¦­¢¤Ï·«¤êÊÖ¤·¤Ç¤¹¡£


¥×¥í¥Ð¥¤¥À»²¾È¡§
¥µ¡¼¥Ð¤Î£Ï£Ó¡§(̤ÁªÂò)
¥Ñ¥½¥³¥ó¤Î£Ï£Ó¡§Win95·Ï
¥¨¥Ç¥£¥¿¡§
£Æ£Ô£Ð¥½¥Õ¥È¡§
¥µ¡¼¥Ð°Üž¡§¤·¤Æ¤¤¤Ê¤¤
²þ¤¡§(̤ÁªÂò)
£Ã£Ç£É½¬½ÏÅÙ¡§(̤ÁªÂò)

²óÅú¼Ô ¤·¤å¤ó¤¸  [ºï½ü]  Åê¹ÆÆü 7/18(¶â) 10:18:27
¤Þ¤º¡¢ºÇ½é¤Ë¡£
¥Õ¥©¡¼¥à¤«¤éÆþÎϤµ¤ì¤¿¡¢Ê£¿ô¤Î¥Ç¡¼¥¿¤ò¥µ¡¼¥Ð¦¤Ë¤Þ¤È¤á¤ÆÁ÷¿®¤¹¤ë»ö¤Ï¡¢ÉáÄ̤˲Äǽ¤Ç¤¹¡£
¤È¤¤¤¦¤è¤ê¤â¡¢¤½¤ÎÊ£¿ô¤¢¤ë¥Ç¡¼¥¿¤ò°ìÅÙ¥µ¡¼¥Ð¦¤Ç½èÍý¤ò¤·¤Ê¤¤¸Â¤ê¡¢¥¯¥é¥¤¥¢¥ó¥È¤Ë¥¯¥Ã¥­¡¼¤È¤·¤Æ¥Ç¡¼¥¿¤ò
½ÐÎϤ¹¤ë»ö¤¬½ÐÍè¤Þ¤»¤ó¡£

1¡¢¥Ç¡¼¥¿ÆþÎÏ¢ª2¡¢¥Ç¡¼¥¿¤ò¤Þ¤È¤á¤ÆÁ÷¿®¢ª3¡¢¥µ¡¼¥Ð¦¤Ç¥Ç¡¼¥¿¤Î½èÍý¢ª4¡¢¥¯¥é¥¤¥¢¥ó¥È¤Ø¥¯¥Ã¥­¡¼¥Õ¥¡¥¤¥ë¤È¤·¤Æ½ÐÎÏ
¢ª5¡¢¥Ç¡¼¥¿¤¬Î¯¤Þ¤Ã¤¿¤È¤³¤í¤Ç¡¢¥¯¥Ã¥­¡¼¤ò¥µ¡¼¥Ð¤ËÁ÷¿®¢ª6¡¢¥µ¡¼¥Ð¦¤Ç½èÍý

¤³¤Îή¤ì¤Ç¡¢¥Õ¥©¡¼¥à¤ËÆþÎϤ·¤¿¥Ç¡¼¥¿¤Ï¥¯¥é¥¤¥¢¥ó¥È¤Ë½ÐÎϤµ¤ì¤ë¤Î¤Ç¤¹¤¬¡¢(1¡¢2)¤È(4¡¢5)¤¬Æ±¤¸½èÍý¤ò
¹Ô¤¦¤è¤¦¤Ë¤Ê¤ê¡¢ÌµÂ̤¬À¸¤¸¤Þ¤¹¡£
¤·¤«¤·¡¢Æ±¤¸¥Ç¡¼¥¿¤ò²¿Å٤ⷫ¤êÊÖ¤·»ÈÍѤ·¤¿¤ê¡¢Ê̤ÎCGI¤«¤é¤âƱ¤¸¥Ç¡¼¥¿¤ò»ÈÍѤ·¤¿¤¤»þ¤Ë¤ÏÍ­¸ú¤Ç¤¹¡£

¤È¤ê¤¢¤¨¤º¡¢ËÜÂê¤Ï¥¯¥Ã¥­¡¼¤È¸À¤¦»ö¤Ê¤Î¤Ç¡¢¥¯¥Ã¥­¡¼¤ÎÆþ½ÐÎϤÎÀâÌÀ¤ò¡¦¡¦¡¦¡¦
¥¯¥é¥¤¥¢¥ó¥È¤Ë½ÐÎϤ¹¤ë¾ì¹ç¡¢°ìÈÌŪ¤ÊÊݸ¹àÌܤϡ¢¥Ç¡¼¥¿¤È¥Ç¡¼¥¿¤ÎÍ­¸ú´ü¸Â¤Ç¤¹¡£
¤³¤Î¾ì¹ç¤Ï¡¢°ì»þŪ¤Ê¤Î¤ÇÍ­¸ú´ü¸Â¤Ï¤¤¤ê¤Þ¤»¤ó¡£

¥¯¥é¥¤¥¢¥ó¥È¤Ø¤Î½ÐÎϤϡ¢°Ê²¼¤Î¤è¤¦¤Ë¹Ô¤¤¤Þ¤¹¡£
print "Set-Cookie: DATA = $value\n";    #DATA¤Ï̾Á°¡Êź¤¨»ú¤Î¤è¤¦¤Ê¤â¤Î¡Ë¤Ç¡¢$value¤¬ÃͤǤ¹
¤³¤ì¤Ç¥¯¥é¥¤¥¢¥ó¥È¤Ë¥¯¥Ã¥­¡¼¤¬Êݸ¤µ¤ì¤Þ¤¹¡£

¥¯¥Ã¥­¡¼¥Ç¡¼¥¿¤Î¸Æ¤Ó½Ð¤·¤Ï¡¢°Ê²¼¤Î¤è¤¦¤Ë¹Ô¤¤¤Þ¤¹¡£
$cookies = $ENV{'HTTP_COOKIE'};
$cookies ¤Ë¤Ï¡¡DATA = $value¡¡¤È¤·¤Æ̾Á°¤ÈÃͤ¬ÆþÎϤµ¤ì¤Æ¤Þ¤¹¡£
¤½¤Î¸å¡¢split¤Ç̾Á°¤ÈÃͤòʬ¤±¤Æ¡¢¥Ï¥Ã¥·¥åÇÛÎó¤Ë³ÊǼ¤¹¤ì¤ÐOK¤Ç¤¹¡£

ºÇ¸å¤Ë¥¯¥é¥¤¥¢¥ó¥È¦¤¬¡¢¥¯¥Ã¥­¡¼¤òÍ­¸ú¤Ë¤·¤Æ¤¤¤Ê¤¤¤ÈÂÌÌܤǤ¹¡£
²óÅú¼Ô ¥Æ¥Ã¥¯  [ºï½ü]  Åê¹ÆÆü 2004/8/30(·î) 20:43:42
¥Õ¥©¡¼¥àÃͤò¼èÆÀ¤¹¤ë¥×¥í¥°¥é¥à¤Ï¡¢²¼µ­¤Î¤è¤¦¤Ê¤â¤Î¤Ç¤¤¤¤¤ó¤Ç¤¹¤«¤Ê¡¦¡¦

$XGET=$ENV{'REQUEST_METHOD'};
if($XGET eq "POST"){
read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
}else{
$data=$ENV{'QUERY_STRING'};
}
$data=~ tr/+/ /;
$data=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
@DATA= split(/&/,$data);
foreach $GET(@DATA){
($NAME,$VALUE) = split(/=/,$GET);
$F{$NAME}=$VALUE;
}

¤Þ¤º¡¢$XGET¤Ë¡¢¥Õ¥©¡¼¥à¤«¤é£Ð£Ï£Ó£Ô¤«£Ç£Å£Ô¤Çʬ¤±¤Þ¤¹¡£
¤½¤Î¾ðÊ󤫤顢£Ç£Å£Ô¼èÆÀ¤È£Ð£Ï£Ó£Ô¼èÆÀ¤Ëʬ¤±¤Æ¡¢¥Ç¡¼¥¿¤ò¼õ¿®¡£

¼¡¤Ë¡¢¤½¤Î¼õ¿®¤µ¤ì¤¿ÆâÍƤòµÕ¥¨¥ó¥³¡¼¥É¤·¤Æ¤½¤ÎÃͤò$data¤ËÊÖ¤·¤Þ¤¹¡£

¼¡¤Ë¡¢$data¤ÎÆâÍƤò&¤Ç¶èÀڤäơ¢ÇÛÎó@DATA¤ËÂåÆþ¤·¤Þ¤¹¡£

¼¡¤Ë@DATA¤ò£±¤Ä¤Å¤ÄŸ³«¤·¡¢¤½¤ÎŸ³«¤·¤¿ÆâÍƤò¤µ¤é¤Ë¡¢$NAME¤È$VALUE¤Ëʬ¤±¤Þ¤¹¡£

ºÇ¸å¤Ë¡¢£²¤Ä¤Ëʬ¤±¤¿¤â¤Î¤òÏ¢ÁÛÇÛÎó%F¤ËÂåÆþ¡ª

¤Ê¤Î¤Ç¡¢¤³¤ì¤ò¡¢°ìÈÖ¾å¤Ë½ñ¤¤¤Æ¤ª¤±¤Ð¡¢¤¤¤Ä¤Ç¤â¼õ¿®¤Ç¤­¤Þ¤¹¡£

¤¿¤È¤¨¤Ð¡¢

$XGET=$ENV{'REQUEST_METHOD'};
if($XGET eq "POST"){
read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
}else{
$data=$ENV{'QUERY_STRING'};
}
$data=~ tr/+/ /;
$data=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
@DATA= split(/&/,$data);
foreach $GET(@DATA){
($NAME,$VALUE) = split(/=/,$GET);
$F{$NAME}=$VALUE;
}
print "Content-type: text/html\n\n";
print "̾Á°¡§$F{'name'}¡Ã¥³¥á¥ó¥È¡§$F{'coment'}";
exit;

¤È¤«¡¦¡¦¡¦¡£

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

 


£×£å£â΢µ»