The purpose of this assignment was to learn to use a for() loop. The script takes 2 numbers and loops from the first number to the second,
converting each one to its binary, octal, and hexadecimal values. The output is a basic table of each number and its converted values.
The maximum number of iterations this script can perform is 1000. In other words, the difference between the 2 numbers can’t be greater than 1000, or the script will generate an error.
This was an assignment from an introductory web programming course. It was written as quickly as possible to meet the minimum requirements of the assignment, and was not written using best practices. This is not a showcase of my best work. Instead, I am sharing it as a historical document of my student work.
This assignment is very basic. Security and design were not considered. Do not use this script in a public environment.
Source Code
This script includes 2 files.
forloop.html
<html>
<head>
</head>
<body>
<form method=post action=cgi-bin/forloop.pl>
Enter Start Value:
<input type=text name=start>
Enter End Value:
<input type=text name=finish>
<input type=submit>
</form>
</body>
</html>
cgi-bin/forloop.pl
#!/usr/bin/perl
use CGI ':standard';
print header, start_html;
$start = param('start');
$finish = param('finish');
if ($finish - $start > 1000) {
print "Sorry, the teacher has limited this to 1000 :( <br>The difference
between the start and end values can't be greater than 1000.";
exit(0);
}
print "<table border=1 align=center>";
print "<tr><th>Number</th>";
print "<th>Hex</th>";
print "<th>Octal</th>";
print "<th>Binary</th></tr>";
for $i ( $start..$finish ) {
print "<tr><th>$i</th>";
printf("<td>%x</td>",$i);
printf("<td>%o</td>",$i);
printf("<td>%b</td></tr>",$i);
}