Hi all,
I've got a CGI script that takes two strings and sorts them in order, then
prints them. The problem is I don't want nulls or numbers entered. I think I've
got the "null" end of it right, but I'd also like to error-out any numbers
entered. Take a look at the "unless" line.
...any suggestions??
#!E:/www/perl/bin/perl.exe
use strict;
use warnings;
use CGI qw( :standard );
use CGI::Carp qw( fatalsToBrowser );
print header();
my $firstString = param( "textfield" );
my $secondString = param( "textfield2" );
my @list = sort ( $firstString, $secondString );
unless ( $firstString && $secondString && /\w+/ ) {
print<<HTML;
<html>
<body>
<p> This page takes two strings from the user and prints them in alphabetical
order. If they are equal, they will print on separate lines. </p>
<form name="form1" id="form1" method="post"
action="../webroot/cgi-bin/pg59ex2.11SortStrings.pl">
<table width="341" border="0">
<tr>
<td width="181"><div align="right">Enter your first string: </div></td>
<td width="144"><input type="text" name="textfield" /></td>
</tr>
<tr>
<td><div align="right">Enter your second string: </div></td>
<td><input type="text" name="textfield2" /></td>
</tr>
<tr>
<td colspan="2"><div align="center"><font color="red"> Please, enter two
words! </font></div></td></td>
</tr>
<tr>
<td colspan="2"><div align="center"><a
href="/pg59ex2.11SortStrings.html"> Click here to go back </a></div></td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>
HTML
}
elsif ( $firstString eq $secondString ) {
print<<HTML;
<html>
<body>
<p>This page takes two strings from the user and prints them in alphabetical
order. If they are equal, they will print on separate lines.</p>
<form name="form1" id="form1" method="post"
action="../webroot/cgi-bin/pg59ex2.11SortStrings.pl">
<table width="341" border="0">
<tr>
<td width="181"><div align="right">Enter your first string: </div></td>
<td width="144"><input type="text" name="textfield" /></td>
</tr>
<tr>
<td><div align="right">Enter your second string: </div></td>
<td><input type="text" name="textfield2" /></td>
</tr>
<tr>
<td colspan="2"><div align="center"> $firstString<br>$secondString
</div></td></td>
</tr>
<tr>
<td colspan="2"><div align="center"><a
href="/pg59ex2.11SortStrings.html"> Click here to go back </a></div></td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>
HTML
}
else {
print<<HTML;
<html>
<body>
<p>This page takes two strings from the user and prints them in alphabetical
order. If they are equal, they will print on separate lines.</p>
<form name="form1" id="form1" method="post" action="">
<table width="341" border="0">
<tr>
<td width="181"><div align="right">Enter your first string: </div></td>
<td width="144"><input type="text" name="textfield" /></td>
</tr>
<tr>
<td><div align="right">Enter your second string: </div></td>
<td><input type="text" name="textfield2" /></td>
</tr>
<tr>
<td colspan="2"><div align="center"> @list </div></td>
</tr>
<tr>
<td colspan="2"><div align="center"><a href="/pg59ex2.11SortStrings.html">
Click here to go back </a></div></td>
</tr>
</table>
</form>
<p> </p>
</body>
</html>
HTML
}
Ron Smith
[EMAIL PROTECTED]
