This is a simple script that takes a number (in base-10) and converts it to either binary (base-2), octal (base-8), or hexadecimal (base-16). The purpose of writing this script is to learn how to use the printf() function in PERL.
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 uses 2 files.
bases.html
<html>
<head>
<title>Base Conversion</title>
</head>
<body>
<h1 align=center>Base Conversion</h1>
<br>
<form method=post action=cgi-bin/bases.pl>
<table border=1 align=center>
<tr>
<td>
Number:<br>
<input type=text size=10 name=number>
</td>
<td>
<input type=radio name=base value=hex> Hexadecimal<br>
<input type=radio name=base value=oct> Octal<br>
<input type=radio name=base value=bin> Binary<br>
</td>
</tr>
<tr>
<td colspan=2 align=center>
<input type=submit value=Convert>
</td>
</tr>
</table>
</form>
</body>
</html>
cgi-bin/bases.pl
#!/usr/bin/perl
use CGI ':standard';
$number = param('number');
$base = param('base');
print header, start_html('Base Conversion');
print "<h1 align=center>Base Conversion</h1>";
print "<table border=1 align=center><tr>";
print "<th>Number</th><th>Conversion</th>";
print "</tr><tr>";
print "<td>$number</td><td>";
if ( $base eq "hex" ) {
printf( '%x', $number );
} elsif ( $base eq "oct" ) {
printf( '%o', $number );
} elsif ( $base eq "bin" ) {
printf( '%b', $number );
}
print "</td></tr></table>";
print end_html;