¥«¥ì¥Ã¥Â |
¼ÁÌä¼Ô ¤ß¤é¤¤
Åê¹ÆÆü 7/8(²Ð) 14:57:20
ÉáḀ֥̈饦¥¶¤«¤é¥Ç¡¼¥¿¤òÁ÷¿®¤¹¤ëÆ°ºî¤Ï ¥Õ¥©¡¼¥à¤Ç¥Ç¡¼¥¿¤òÆþÎϤ·¤ÆÁ÷¿®¤¹¤ë¤È»×¤¤¤Þ¤¹¡£ ¤Ç¤â¡¢¤³¤ì¤Ç¤ÏÊ£¿ô¤Î¥Ç¡¼¥¿¤ò¤Þ¤È¤á¤ÆÁ÷¿®¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤»¤ó¡£ ¤½¤³¤Ç¡¢ ¥Æ¥ó¥Ý¥é¥ê¡¼¥¯¥Ã¥¡¼¤Ë¥Ç¡¼¥¿¤ò°ì»þŪÊÝ»ý¤·¤Æ ºÇ¸å¤Ë°ìµ¤¤ËÁ÷¿®¤¹¤ëÊýË¡¤ò»×¤¤¤Ä¤¤Þ¤·¤¿¡£ ¤·¤«¤·¡¢ º£¤Þ¤Ç¥¯¥Ã¥¡¼¤Ï·Ð¸³¤¬¤Ê¤¯¡¢¥¯¥Ã¥¡¼¤Ë¤Ä¤¤¤Æ¤Î»ñÎÁ¤¬¸«¤Ä¤«¤é¤Ê¤¯¶ìÀ路¤Æ¤¤¤Þ¤¹¡£ ¤É¤¦¤«¥¢¥É¥Ð¥¤¥¹¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£ Ïä·Êý¤Ï¤¢¤Þ¤ê¤¦¤Þ¤¯¤Ê¤¤¤Î¤Ç¿Þ¤Ë½ñ¤¤Þ¤·¤¿¡£ ¡¥Õ¥©¡¼¥à¤«¤é¥Ç¡¼¥¿¤òÆþÎϤ¹¤ë¡£ ¡¡¡¡¡¡¡¡¡¡¢¦¡¡¢¤ ¢°ì»þŪ¤Ë¥Ç¡¼¥¿¤òÊݸ¤¹¤ë¡£ ¡¡¡¡¡¡¡¡¡¡¢§ ¥°ì»þŪ¤ËÊݸ¤µ¤ì¤Æ¤¤¤¿Ê£¿ô¤Î¥Ç¡¼¥¿¤ò¤Þ¤È¤á¤ÆÁ÷¿®¤¹¤ë¡£ ¢¨¡¡¦¢¤Ï·«¤êÊÖ¤·¤Ç¤¹¡£
¥×¥í¥Ð¥¤¥À»²¾È¡§ |
²óÅú¼Ô ¤·¤å¤ó¤¸
[ºï½ü]
Åê¹ÆÆü 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; ¤È¤«¡¦¡¦¡¦¡£ |
ÊÖ¿®(²óÅú)¤¹¤ë
£×£å£â΢µ» |