a script (that to your surprise DOES work) - 11/06/2000 3:10 AM
http://opena.virtualave.net/cgi-bin/multi.cgi
===========================================
#!/usr/local/bin/perl
# You need Cgi.pm
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
$q = new CGI;
$a = param('action');
$n = $q->param('Mul');
$m = $q->param('Mult');
$final = $n * $m;
print $q->header;
print $q->start_html;
if ($a eq "mul"){
&main;
}
if ($a eq ""){
&here;
}
sub here{
print $q->start_form;
print "n";
print $q->textfield(-name=>'Mul');
print " x ";
print $q->textfield(-name=>'Mult');
print " ",$q->submit;
}
sub main{
&here;
print "
$n x $m = $final ";
}
print $q->end_html;
============================================
it realy works! I guess buying that $50(*cough* $49.95 ) O'Realy book helped!
===========================================
#!/usr/local/bin/perl
# You need Cgi.pm
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
$q = new CGI;
$a = param('action');
$n = $q->param('Mul');
$m = $q->param('Mult');
$final = $n * $m;
print $q->header;
print $q->start_html;
if ($a eq "mul"){
&main;
}
if ($a eq ""){
&here;
}
sub here{
print $q->start_form;
print "n";
print $q->textfield(-name=>'Mul');
print " x ";
print $q->textfield(-name=>'Mult');
print " ",$q->submit;
}
sub main{
&here;
print "
$n x $m = $final ";
}
print $q->end_html;
============================================
it realy works! I guess buying that $50(*cough* $49.95 ) O'Realy book helped!