 4 CGI 

CGI 

 CGI  Perl    CGI   2  CGI   

#!/usr/bin/perl

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

   "Content-type:text/html\n\n"  MINE Header  

 CGI  C    #!/usr/bin/perl   C   Perl    CGI  C 

    #include<stdio.h>

    void main(){

        printf("Content-type:text/html\n\n");

 CGI  account

 account  shell   server  comsc2  

 account  ( telnet)   Perl   whereis perl 

$ whereis perl [ENTER]

 Perl  ()    CGI  Server   

 Comsc2  devman   RedHat 5.0  CGI  Account   .cgi  755  cgi-bin

   vi   easy.cgi  account   public_html 

 easy.cgi

#!/usr/bin/perl
print "Content-type:text/html\n\n";
print "<h1>CGI is easy for you</h1>";

   755 

$chmod 755 easy.cgi

  URL   http://domain.edu/~account/easy.cgi 

 easy.cgi  http://203.155.93.40/devman/easy.cgi

 2   Web Server  easy.cgi   .pl  .cgi  c:\httpd\cgi-bin  cgi  URL  IP Address   Computer Name  http://1.1.1.1/cgi-bin/easy.pl   

 Submit

 1   Submit   Server  CGI  CGI  action  method  POST  CGI 

<form method=POST action="easy.cgi">

 Submit   CONTENT_LENGTH  Server  CGI 

 easy1.cgi

#!/usr/bin/perl

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

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

print "<h4>read data from CONTENT_LENGTH</h4><p>";

read( STDIN , $buffer , $ENV{'CONTENT_LENGTH'} );
print "<h4>data is $buffer</h4><p>";

  5  CONTENT_LENGTH  $buffer  read  Standard Input (STDIN)  CONTENT_LENGTH  read 

read( STDIN ,  , $ENV{  } );

  Submit   6  CONTENT_LENGTH   easy1.cgi

<form method=POST action="easy1.cgi">

    Submit .....

 Submit   CONTENT_LENGTH  Server   CGI 

=

  (name)  "text"   Submit  CONTENT_LENGTH 

text=this+is+the+test

  CONTENT_LENGTH  2      (+)    1   2   CONTENT_LENGTH  & 

<form method=POST action="easy1.cgi">

  Submit      &   + 



 Submit   Associative Array  

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;

}

  CGI  procedure   CONTENT_LENGTH  @FORM

 form.cgi  

 form.cgi

#!/usr/bin/perl
print "Content-type:text/html\n\n";
&pasteform;
print "name is $FORM{'name'}<p>";
print "email is $FORM{'email'}<p>";