¸îÀÏ ¹ã»õ¿ö ºÃÁö¸¸ °¥¼ö·Ï ¾î·Á¿ö Áý´Ï´Ù.µµ´ëü ÆÞÀÌ ¿Ö ÀÌ·¸°Ô ±î´Ù·Î¿îÁö ÇÏ´Â »ý°¢¸¶Àú µì´Ï´Ù. ´«¿¡ ÀÍÀº ¾²ÀÓ¿¡ Àͼ÷ÇØ Áö´Â°¡ ½ÍÀ¸¸é µµ¹«Áö ¾Ë¼Û´Þ¼Û ¸ð¸¦ Á¤¸» Çò°¥¸®´Â °¢Á¾ ±¸Á¶¿Í Ç¥Çö½ÄÀÌ »õ·Î³ª´Â ¸Ó¸®ÅÐ º¸´Ù ºüÁö´Â°Ô ´õ ¸¹°Ô ¸¸µì´Ï´Ù.
´©±º°¡¿¡ µµ¿ò ¾øÀÌ´Â ÀÌ ¾î~~Áö·´°í ¾î~~·Á¿î ³­°üÀ» ¶Õ±â Èûµé°Í °°À¾´Ï´Ù.¿©±â¼­ Æ÷±â Çϱ⿣ ¸ÅÀÏ ¾Æ²»´ø Àá...³Ê¹« ¾Æ±õ½À´Ï´Ù.Á¦¹ß µµ¿Í ÁÖ¼¼¿ä..
Áú¹®1)elsif($FORM{
action
} eq "check") {
if($FORM{
myname
}) { #ÀÌÁÙ¿¡¼­ÀÇ $form~Àº µÚ¿¡ ¾Æ¹«°Íµµ ¾ÈºÙ¾ú´Âµ¥ ¹» ¶æÇϴ°ÇÁö?? ¾î¿¶© ºñ¾î ÀÖÁö ¾Ê´Ù¸éÀ¸·Î(!~)Çؼ®ÇÏ°í..ÀÌ·²¶©??
&check_name; }else { $err=check; &error;}
}
Áú¹®2)¾Æ·¡#ÀÇ ±â´ÉÀº??¾Æ´Ï Á¦°¡ ¹» ¸ð¸£´Â°ÇÁö È®½ÇÇÏÁö ¾ÊÀ¸´Ï±ñ =~´ÙÀ½ÀÇ Çؼ®Àº??  elsif ($content_type =~ m#^multipart/form-data#)
Áú¹®3)
sub write { $FORM{
email
} =~ s/s//g; ###À̺κÐÀÇ s´Â ¹«½¼¶æ??
if ($FORM{
email
} =~ /(@.*@)&pip;(..)&pip;(@.)&pip;(.@)&pip;(^.)/
&pip;&pip; $FORM{
email
} !~ /^. @([?)[a-zA-Z0-9-.] .([a-zA-Z]{2,3}&pip;[0-9]{1,3})(]?)$/)  ##ÀÌ¸á ¿¡·¯Ã³¸®Àε¥ Çؼ®Àº ¾î¶»°Ô ÇØ¾ß ¿ÇÀºÁö??Á»´õ ÀßÂ¥¿©Áø°Í ¾îµð ¾ø³ª¿ä??
  {
$err = email;
            &error;
}
##¾Æ·¡ ÀÇ ¾²ÀÓ¿¡ ´ëÇÑ Çؼ®Àº ¶Ç ¾î¶»°Ô ÇØ¾ß ¿ÇÀºÁö?? cMÀÌ ¹¹Áö?? ´ÙÀ½¿¡nÀÌ ¿Ô°í  ÀÌ°É·Î ´Ù½Ã »ì·È³ª?? ±×·²¶© nÇϳª¸¸ Çѹø »ì¸®´Ï±ñ ÁÙ ³Ñ±â±â ±â´ÉÀÎ
Àº ¾Æ´Ñ°Å °°Àºµ¥..???
$FORM{
comments
} =~ s/cM//g;
$FORM{
comments
} =~ s/
/
/g;