C语言cgi(1)

1
Columbia University
cs3157 – Advanced Programming
Summer 2014, Lab
#2, 60ish points
June 9, 2014
Follow these step-by-step instructions. This
lab must be submitted electronically by Monday June
16th, 11:55 pm.
The
point of the labs is to teach and reinforce specific programming concepts, cut
time off your
homework assignment while trying to maintain your interest. If
you find them tedious or pointless, please
don’t hesitate to bring it to your
instructor’s attention (the same applies the opposite).
Step 1. Visual Editor
and Debugging (5 points)
A debugger is a program that allows you (the
programmer) to step through an executing program (i.e live,
real time) and
track internal information and monitor progress. This allows you to monitor
logical
progress and also track down errors.
Perldoc perldebug
Will
give you more information about the debugging environment. Executing the perl
command with the
-d flag will start perl in debugging mode. Try it….take one
of the scripts from lab1 and execute it
perl -d something.pl
(h gives you
help, q to quit, v shows you some code around you, etc).
The nice part about
eclipse is the ability of running the debugger in a visual environment, so that
you
don’t need to memorize random key commands. (That is a good thing and
bad). You have a choice if you
want to run it from the command line or visual
environment. Be aware that certain specific versions of
eclipse (older) and
certain versions of EPIC (older) have issues with the debug system, which causes
it to
work every other time J
Write up a paragraph or two about your
experience in running the debugging environment on one of the
lab scripts
from last lab and over the lab 2 assignments. Answer the following questions
after you are
done with the lab:
1) After using the debugger, did your
code work become easier or harder ?
2) Any issues with the perl debugger in
the clic lab ?
3) After using it to watch a variable what can you say about
perl variable scope ?
4) What is the difference between stepping over and
stepping through in regards to subs ?
5) How does the average rainfall in the
Sahara affect Perl development ?
Step 2 (20 points)
Create a perl file
called step2.pl. I am providing a file called “testip” to be used as a test
file.
2
Background information: Computer on the internet are identified
using a few standard conventions.
One of them are IP address. The format for
IP version 4, is 4 sets of numbers between 0-255. So your own
machine might
be 128.59.18.1 etc
1) Given a specific file (passed as a command line
argument (important) ) which contains among
other things, IP addresses, I
would like you to locate and count
any IP address in the file. For example
the ip address 255.234.255.1 (4 numbers separated by a
period).
NOTE: you
need to make sure none of the numbers are not larger than 255
2) I would also
like a printout of all the IP addresses, and the number of times it was seen in
the file.
Addresses can appear multiple times on a line…keep that in
mind.
3) I would like to know how much time has passed from the beginning and
end of the program run,
we would like to see how much time it took to
analyze. Lookup localtime command to see how to
grab the current time.
You
will need to loop through the file, find the ip address (use the regular
expressions covered in class on
Monday), and then keep a count of number of
each one seen. Once done, you can print them out in sorted
order in the
following format:
Processed file YYYYY
Number of unique IP:
3
123.123.123.123 9
12.12.112.2 7
23.125.123.256 2
..
File
analyzed in: 1 minute and 23 seconds
Step 3: (4 points)
Consider the
following Perl program:
#!/usr/bin/perl
use strict;
my(@list) = (5,
"Todd", 3, 2);
$list[2] += 4;
print "M1: ".$list[0]." ".$list[1]."
".$list[2]." ".$list[3]."\n";
($list[1], $list[3]) = funky(@list);
print
"M2: ".$list[0]." ".$list[1]." ".$list[2]." ".$list[3]."\n";
## End of main
program
sub funky {
my($v1, $v2, $v3) = @_;
print "F1: "." ".$v1."
".$v2." ".$v3.
" ".$_[0]." ".$_[1]." ".$_[2]."
".$_[3]."\n";
$_[0]++;
print "F2: "." ".$v1." ".$v2." ".$v3.
"
".$_[0]." ".$_[1]." ".$_[2]." ".$_[3]."\n";
$v3 = "Bill";
print "F3: "."
".$v1." ".$v2." ".$v3.
" ".$_[0]." ".$_[1]." ".$_[2]."
".$_[3]."\n";
3
return($v3, $v2);
} ## Of function FUNKY
What did
you expect the output to look like and what did it actually look like ? Explain
(based on what
we covered in class) what is going on…
Step 4 New Process
monitor (20 points)
As demo-ed in class, you will write a simple process
monitor. You will use the output of the (ps –aux)
command to pick out all the
running pid->program names every 5 seconds. You will run your program
for
10 minutes printing out when a program starts, or stops.
As we
discussed you will need to run the ps command and then create a map list of the
current running
pid and process names. You will compare current to last map
(so if its at 10 seconds, you need to look
back at 5 seconds) for any
processes (pid) which are new to say process is new. Use the old one to look
at
the new one to detect dead process id.
Most of the code was demo-ed in
class, type it up and add comments.
Step 5: Moving information over CGI Intro
(4 points)
We started to talk about CGI in the last class. Forms are simple
ways of feeding information to the user
and having them interact with your
script in some way.
Here is your chance to start to play around with it.
Create a HTML page (feel free to use eclipse or your
favorite text editor)
(step5.html) should have the following code in
it:
<html><head><title>Step2
webpage</title></head>
<body>
<form
action=”step5a.pl.cgi” method=POST>
Enter something:
<input
type=”text” name=”t1”>
<input type=”submit”
value=”testpost”></form>
<HR>
<form
action=”step5b.pl.cgi” method=GET>
Enter Some text:
<input
type=”text” name=”t2”>
<input type=”submit”
value=”testget”></form>
</body>
</html>
step5a.pl.cgi
and step5b.pl.cgi should look like:
use strict;
4
my $time =
localtime;
print "Content-type: text/html\n\n";
print
<<END_OF_PRINTING;
This is the time :
$time
END_OF_PRINTING
foreach my $vars (sort keys %ENV){
print
"<b>$vars</b>=";
print "$ENV{$vars}<BR>";
}
Describe
in a short paragraph what you see is the difference between get and post when
running the
cgi script. Do a quick search and read up on get and post in a
general sense. Which do you think is a better
way to work with ??
Note:
the webserver has perl in /usr/bin/perl
Step 6: More CGI and more basic
practice (5 points):
Copy and adopt the previous html file to a new file
called Step6.html. Have it call step6a.pl.cgi and
step6b.pl.cgi . In both
cases you need to process and display the input passed in, as a simple html
page
saying
I was given Key = …. With a value of = …
(for both input
types).
Hint: This means you need to parse out the arguments passed in.
remember to first split around the & sign
and then around the equal sign.
Example:
my ($pairs,$key,value);
foreach $pairs (split /&/
$inputstring){
#now cut the $pairs around the equal sign …..
Hint2: one of
the methods passes user input through ENV and one passes it through STDIN, but
you still
ENV for the length (see read method in perl)
HINT3: the scripts
are basically the same, get one to work and then copy and convert it for the
other task.