Untitled

º··Õè 4 ·´ÊÍº¡ÒÃ Post áÅÐâ»Ãá¡ÃÁ CGI

àÁ×èÍ¤Ø³·´ÊÍºâ»Ãá¡ÃÁáÅÐ Server ·ÕèµÔ´µÑé§ä»ã¹º··Õè 2 à»ç¹·ÕèàÃÕÂºÃéÍÂáÅéÇ º·¹Õé àÃÒ¨ÐÁÒãËé¤Ø³ä´é·´ÊÍº¡ÒÃ Post ¢éÍ¤ÇÒÁä»ÂÑ§ Server µÑÇàÍ§ â´ÂãËéà¢ÕÂ¹ä¿Åì HTML ´Ñ§¹Õé

        <HTML>
        <BODY>
            <FORM method=post action="/cgi-bin/testpost.pl">
                    Enter your name : <input type=text name="name">
                    <p>
                    Enter your Email : <input type=text name="email">
                    <p>
                    <input type=submit> * <input type=reset>
            </FORM>
        </BODY>
        </HTML>

¨ÐàËç¹ä´éÇèÒ ¿ÍÃìÁ·Õèä´é¨ÐÁÕÅÑ¡É³Ð´Ñ§¹Õé â´ÂãËé¤Ø³ÅÍ§à»Ô´â´ÂãÊè URL Å§ä»ã¹ªèÍ§ address à»ç¹ http:// "ËÁÒÂàÅ¢ IP address" /form.html ´Ñ§ÃÙ»

¨Ò¡¹Ñé¹¾ÔÁ¾ìâ»Ãá¡ÃÁ testpost.pl â´Âà¡çºÅ§ã¹ä´àÃç¡·ÍÃÕè c:\httpd\cgi-bin ´Ñ§¹Õé

print "Content-type:text/html\n\n";

print "<body bgcolor='white'>";

&pasteform;

print "name is $FORM{'name'}<p>";
print "email is $FORM{'email'}<p>";

sub pasteform {
    read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
    @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;
      $value =~ s/~!/~!/g; $FORM{$name}=$value;
    }
}

ãËé¤Ø³¾ÔÁ¾ìª×èÍáÅÐÍÕàÁÅìÅ§ã¹ªèÍ§ ¨Ò¡¹Ñé¹¡´»ØèÁ Submit ´Ù â»Ãá¡ÃÁ testpost.pl ¨Ð·íÒ§Ò¹ â´ÂÍèÒ¹¢éÍÁÙÅ·ÕèÍÂÙèã¹ªèÍ§ name áÅÐªèÍ§ email ÁÒà¡çºäÇéã¹µÑÇá»Ã $FORM{'name'} áÅÐ $FORM{'email'} â´Âãªé sub ·Õèª×èÍ pasteform ¨Ò¡¹Ñé¹ áÊ´§ÍÍ¡·Ò§¨ÍÀÒ¾ã¹ºÃÃ·Ñ´

print "name is $FORM{'name'}<p>";
print "email is $FORM{'email'}<p>";

¼Å¡ÒÃÃÑ¹â»Ãá¡ÃÁ¨Ò¡ºÃÒÇà«ÍÃì¨Ö§à»ç¹´Ñ§ÃÙ»¹Õé

àÁ×èÍàÇÅÒ¤Ø³µéÍ§¡ÒÃ·´ÅÍ§â»Ãá¡ÃÁ CGI µÑÇÍ×è¹ æ ãËé¤Ø³à¢ÕÂ¹¿Ñ§¡ìªÑè¹ pasteform ¹ÕéàÍÒäÇé·éÒÂ æ â»Ãá¡ÃÁ áÅÐàÃÕÂ¡ÁÑ¹´Ñ§µÑÇÍÂèÒ§ã¹¢éÒ§µé¹ à¾ÃÒÐ pasteform ¹Õé¨Ðà»ç¹¿Ñ§¡ìªÑè¹·ÕèãªéÊíÒËÃÑºÍèÒ¹¢éÍÁÙÅ·Õè post ÁÒ¨Ò¡¿ÍÃìÁ áÅÐ¹íÒÁÒà¡çºàÍÒäÇéã¹µÑÇá»Ã ¤Ø³ÊÒÁÒÃ¶ÍèÒ¹ÃÒÂÅÐàÍÕÂ´à¡ÕèÂÇ¡ÑºàÃ×èÍ§¹Õéä´é¨Ò¡ CGI&Perl Training ¤ÃÑº