Perl - CGI

a.html

<html>
<form action="/cgi-bin1/a1.pl" method=get>
<input type=submit value="Click..">
</form>
</html>

a1.pl

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

a2.pl

print "Content type: text/html\n\n\n";
print "<b>hello</b><br>";
print "<b>how are you?</b><br>";

a3.pl

print "Content type: text/html\n\n\n";
$a=10 ;
$b=netscape ;
$c=good ;
$d=$c ;
print "hello";
print "<br>a :",    $a;
print "<br> b :", $b;
print "<br> c :", $c;
print "<br> d :", $d;

a4.pl

print "Content type: text/html\n\n\n";
@a=(10,netscape,good ,34);
print "hello";
print "<br>a :",    @a;
print "<br> a[0] :", $a[0];
print "<br> a[1] :", $a[1];
print "<br> a[2] :", $a[2];

a5.pl

print "Content type: text/html\n\n\n";
%aa=(a,10,b,netscape,c,good ,d,34);
print "hello";
print "<br> a :", $aa{a};
print "<br> b :", $aa{b};
print "<br> c :", $aa{c};
print "<br> d :", $aa{d};

a6.pl

print "Content type: text/html\n\n\n";
print "hello";
print "<br>", "AUTH_PASS:       ",    $ENV{'AUTH_PASS'};
print "<br>", "CONTENT_LENGTH:  ",    $ENV{'CONTENT_LENGTH'};
print "<br>", "PATH_INFO:       ",    $ENV{'PATH_INFO'};
print "<br>", "PATH_TRANSLATED: ",    $ENV{'PATH_TRANSLATED'};
print "<br>", "QUERY_STRING:    ",    $ENV{'QUERY_STRING'};
print "<br>", "REMOTE_ADDR:     ",    $ENV{'REMOTE_ADDR'};
print "<br>", "REMOTE_HOST:     ",    $ENV{'REMOTE_HOST'};
print "<br>", "REMOTE_USER:     ",    $ENV{'REMOTE_USER'};
print "<br>", "REQUEST_METHOD:  ",    $ENV{'REQUEST_METHOD'};
print "<br>", "SCRIPT_NAME:     ",    $ENV{'SCRIPT_NAME'};
print "<br>", "SERVER_NAME:     ",    $ENV{'SERVER_NAME'};
print "<br>", "SERVER_PORT:     ",    $ENV{'SERVER_PORT'};
print "<br>", "SERVER_PROTOCOL: ",    $ENV{'SERVER_PROTOCOL'};
print "<br>", "SERVER_SOFTWARE: ",    $ENV{'SERVER_SOFTWARE'};

a.html

<html>
<form action="/cgi-bin1/a7.pl" method=get>
<input type=text name=a>
<input type=text name=b>
<input type=submit value="Click..">
</form>
</html>

a7.pl

print "Content type: text/html \n\n\n";
$g=$ENV{"REQUEST_METHOD"};
$e=$ENV{"QUERY_STRING"};
print "Query String .....   :",$e,"<br>";
print "Request Method .....   :",$g,"<br>";
($p,$q)=split(/&/,$e);
print "p .....   :", $p,"<br>" ;
print "q .....   :",$q, "<br>";
($p1,$q1)=split(/=/,$p);
print "p1....  :",$p1,"<br>";
print "q1....  :",$q1,"<br>";
($p2,$q2)=split(/=/,$q);
print "p2....  :",$p2,"<br>";
print "q2....  :",$q2,"<br>";

a8.pl

print "Content-type: text/html\n\n";
$l = $ENV{'CONTENT_LENGTH'};
read(STDIN, $buf,$l);
print "buf.....", $buf , "<br>" ;
($p,$q) = split(/&/, $buf);
print "p....",$p,"<br>";
print "q....",$q,"<br>";

If you have any suggestions, comments, ideas, cracked code, feedback, feel free to get in touch with us.

Move back to the Vijay Mukhi's Technology Cornucopia Page to learn more about the other new Internet Technologies.

Vijay Mukhi's Computer Institute
VMCI, B-13, Everest Building, Tardeo, Bombay 400 034, India
E-mail:vmukhi@giasbm01.vsnl.net.in Tel : 91-22-496 4335 /6/7/8/9 Fax : 91-22-307 28 59
http://www.vijaymukhi.com