<html>
<body>
<form method="POST" action="length.cgi">
<input type="text" name="message" />
<input type="submit" />
</form>
</body>
</html>
length.cgi:
#!perl
use strict;
use warnings
use HTML::Entities;
use CGI;
my $cgi=new CGI;
my $message=$cgi->param('message');
$message=decode_entities($message);
my $message_fld_length=length($message);
# Obviously, if I call this script as a CGI script, it won't work unle
+ss I send the
# minimal set of HTTP headers!
print "Content-Type: text/html\n\n";
print "$message_fld_length";
Input: output (expected output)
Other language: 14 (14)
: 1 (1)
What does your HTML look like? What is your input? What output do you expect? What output do you get? |