#! /usr/bin/perl -Tw #++ # Modified version of # Figure 10.7 (Test program /form1/ accessed by the HTML form in Figure 9.9) # from p. 395 of _XHTML 1.0 Web Development Sourcebook_ # by Ian S. Graham, (c) by the author # published by John Wiley & Sons, Inc. # # Original code downloaded from # #-- use CGI::Carp 'fatalsToBrowser'; use diagnostics; # verbose error messages use strict; # stops us from making stupid mistakes $| = 1; # flush output buffer after each output statement ... # ... slower but helpful for output over the network $\ = "\n"; # append "\n" to all print statements # 1. Header data print "Status: 200 Okey-dokey\r"; print "content-TYPE: text/html\r"; print "\r"; # Initialize variables my $num = $#ARGV+1; # Number of command line arguments my $i = 0; my $key = 0; my $val = 0; # Start document print < Form Processing Example for Dal CS 3172: Web-Centric Computing

J. Blustein

Web-centric Computing

[Course | Announcements | Materials | Resources]

Example Code

Information Available With Form Processing

  1. Command line arguments
  2. Environment variables
  3. Data at standard input
    EOF ; print "
  1. "; print "

    "; print " Number of Command Line Arguments = $num"; print "

    "; if ($num > 0) { print "

    Command Line Arguments are:
    "; my $i; for($i=0; $i<=$#ARGV; $i++) { print " Arg $i = $ARGV[$i]
    "; } print "

    "; } else { print "

    There are no command line arguments."; } print "

    \n"; print "
    2. "; print "
  2. "; print '

    Environment Variables are:

    '; print " "; print " "; print " "; print " "; print " "; print " "; print " "; my $env_var; my $class; foreach $env_var (keys %ENV){ $class = ("QUERY_STRING" eq $env_var || "CONTENT_TYPE" eq $env_var || "REQUEST_METHOD" eq $env_var) ?" class='spec'" :""; print " "; print " "; print " "; print " "; } print "
    Environment Variables
    NameValue
    $env_var$ENV{$env_var}
    \n"; print "
    3. "; print "
  3. "; print "

    3. Data at Standard Input

    "; print "

    "; if ($ENV{"CONTENT_LENGTH"} ne "" ) { print " Content-length is ", $ENV{"CONTENT_LENGTH"}, "."; print "
    Content is:    "; $\=""; print " 

    ";
   while(  ) {
       $_ =~ s/&/&/;
       $_ =~ s//>/;
       print;
   }
   $\="\n";
   print "
    "; } else { print " There is no data at standard input."; } print "

    "; print "
    4. "; print "
"; print << 'EOHTML'

[ Back to file upload | three-penny form example]

http://www.cs.dal.ca/~jamie/cgi-bin/3172/form/upload2.cgi
Version:
30 May 2003
Prof.:
J. Blustein <jamie@cs.dal.ca>
This webpage uses valid XHTML 1.0
EOHTML ; # EOF #