¾ÆÀ̵ð ºñ¹Ð¹øÈ£ | ȸ¿ø°¡ÀÔ | ºñ¹Ð¹øÈ£ºÐ½Ç
   
¡¡»õ·Î¿î¼Ò½Ä
¡¡FAQ
¡¡À¥ÇÁ·Î±×·¥
¡¡À¥DB
¡¡À¥¼­¹ö
¡¡À¥ÇÁ·Î±×·¥¼öÁ¤
¡¡ÇØÇÇÄ®·³
¡¡°ñµåÆÁ
 
Á¦ÀÛÀÇ·Ú
À¥ÇÁ·Î±×·¥ ÆǸŸô
 
ÇöÀçÀ§Ä¡: ¸ÞÀÎ ÇØÇÇÆ÷·³ À¥ÇÁ·Î±×·¥ : °Ô½Ã¹° Àбâ
  2009-02-06 (20:15:13) from 211.63.168.205
  ÀÛ¼ºÀÎ : parkhyunt Á¶È¸¼ö : 1946   
Á¦¸ñ : ÀÌ¿À·ù ÇØ°á¹ý ¾Æ½Ã´ÂºÐ..? (CGI)

#

ÀÚ²Ù ¿ä·± ¿¡·¯°¡ ¾ÆÆÄÄ¡ ·Î±×¿¡ ³²´Âµ¥..

Prototype mismatch: sub main::decode ($$;$) vs none

decode´Â sub decode¶ó°í ÀÖ½À´Ï´Ù.

($$;$) vs none À̺κÐÀÌ ¹«½¼¼Ò¸°Áö ¸ð¸£°Ú¾î¿ä ¤Ð¤Ð

#

 

 

 

 

Prototype mismatch: sub main::decode ($$;$) vs none at ./sub.cgi ¸®ÆÛ·¯:ºñ¹Ð

subÀÇ ¹®Àںκп¡¼­ ¿À·ù°¡ ³ª°íÀִµ¥.
¼­¹ö ÀÌÀüÇϱâ Àü¿¡´Â ¾È±×·¨°Åµç¿ä;;
¿ÖÀÌ·¯Áö???

sub decode{
 if ($ENV{'REQUEST_METHOD'} eq "POST") {
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 }else{$buffer = $ENV{'QUERY_STRING'}; }
 @buffer = split(/&/, $buffer);

 foreach (@buffer) {
 
  ($na, $val) = split(/=/, $_);

  $val =~ tr/+/\ /;$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $val =~ s/</&lt;/g;$val =~ s/>/&gt;/g;$val =~ s/\n//g;
  $val =~ s/=/=/g;$val =~ s/&/&/g;

  if ($na eq "message") {
   $val =~ s/\r\n/<br>/g;
   $val =~ s/\r/<br>/g;
   $val =~ s/\n/<br>/g;
  } else {
   $val =~ s/\r//g;
   $val =~ s/\n//g;
  }
  $in{$na} = $val;
 }
}



   ¸Þ¸ð
HappyCGI
2009-02-11
00:14:56
¾îÀÍÈÄ..^^ Àúµµ Àß ¸ð¸£°Ú³×¿ä.
Á˼ÛÇÕ´Ï´Ù! ¤¾¤¾

:³×¸Â¾Æ¿ä: :È­³ª´Â±º¿ä: :Àá¿Í: :¿ì¿ïÇØ: :À̰ǾƳÄ: :¿ÕÇÏÇÏ: ¿Õ¿ôÀ½~ ³î·¥~

  

 
¨Ô
Á¦¸ñ
ÀÛ¼ºÀÎ
Á¶È¸
µî·ÏÀÏ
ÀÌ¿À·ù ÇØ°á¹ý ¾Æ½Ã´ÂºÐ..? (CGI)
parkhyunt
1947
2009-02-06
 



  HOME | ȸ»ç¼Ò°³ | Á¦ÀÛÀÇ·Ú | °³ÀÎÁ¤º¸Ãë±Þ¹æħ | CGIMALL | ÀÚ·á½Ç | »çÀÌÆ®µî·Ï | ·©Å·100 | Æ÷·³ | Ãʺ¸°¡À̵å | Áú¹®°ú´äº¯ | ¹è³Ê±¤°í
Copyright¨Ï1997~2008 HappyCGI All rights reserved
Powered By HappyCGI