¾î¶²°É ¸¸µé±âÀ§Çؼ­ ÀÌ ¼Ò½º¸¦ ¸¸µé¾îºÃ´Âµ¥¿©...... ¿¡·¯³ª±¸ ¾ÈµÇ³×¿© ¤Ì.¤Ì ÀÚ½ÅÀÌ ÀÚ½Åcgi¸¦ ´Ù½Ã ºÎ¸£¸é ¾ÈµÇ´Â°Ç°¡¿©? ¹Ø¿¡ ¼Ò½ºÀ־...È®ÀÎÁÜ ÇØÁֽñ¸¿©.... Âü°í·Î cgi¿¡ ¸Þ¼Òµå°¡ µé¾î¿À¸é ±×°É Çؼ®Çؼ­ 1À̸é XX¶ó´Â ¼­ºê°¡ ½ÇÇàµÇ°Ô ÇÏ°í 2À̸é TT¶ó´Â ¼­ºê°¡ ½ÇÇàµÇ°Ô ÇÏ´Â ¼Ò½ºÁ» °¥ÄÑÁÖ½Ã¸é °¨»çÇÏ°Ú¾î¿è --.........ºü¸¥ ´äº¯ ºÎŹµå¸³´Ï´ç. #!/usr/bin/perl print "Content-type: text/html "; $nn = "Á¹¶ó¸Ç"; $mm = "zolaman@zola.com"; $tt = "Á¹¶ó¸ÇÀÇ À̾߱â....."; &read_parse; if($FORM{ opp } eq "1") { print < À̸§ : $nn
E_Mail : $mm
Á¦¸ñ : $tt

END } exit; sub read_parse { if ( $ENV{ REQUEST_METHOD } eq "POST") { read(STDIN, $buffer, $ENV{ CONTENT_LENGTH }); } else { $buffer = $ENV{ QUERY_STRING }; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } }