UBB.Developers Forums Community Development Programming PHP and Server-side Scripting a script (that to your surprise DOES work)

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!

just what does this do?

Oh ya , you enter two numbers and then it multiplies them!

------------------
-That guy was an ideot!

Cool

I build small scripts like that all the time to help me out in math just because it's more fun than useing a calculator

------------------
ZCom Bulletin Boards - Open Source Bulletin Boards

then you'll love this one
=============================================
#!/usr/local/bin/perl

# NEED Cgi.pm

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard); # Saves loads of work

$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_form;

######################


$an = $q->param('aMul');
$am = $q->param('aMult');
$afinal = $an - $am;


if ($a eq "amul"){
&amain;
}
if ($a eq ""){
&ahere;
}

sub ahere{
print $q->start_form;
print "n";
print $q->textfield(-name=>'aMul');
print " - ";
print $q->textfield(-name=>'aMult');
print " ",$q->submit;

}

sub amain{
&ahere;
print "


$an - $am = $afinal ";

}
print $q->end_form;

########################

$bn = $q->param('bMul');
$bm = $q->param('bMult');
$bo = $q->param('boMult');
$final = $bn * $bm - $bo;


if ($a eq "bmul"){
&bmain;
}
if ($a eq ""){
&bhere;
}

sub bhere{
print $q->start_form;
print "n";
print $q->textfield(-name=>'bMul');
print " x ";
print $q->textfield(-name=>'bMult');
print " - ";
print $q->textfield(-name=>'boMult');
print " ",$q->submit;

}

sub bmain{
&bhere;
print "


$bn x $bm - $bo = $bfinal ";

}
print $q->end_form;

######################

print $q->end_html;
=============================================

Nah that's middle school math. Im talking about scripts for Algebra 2 and higher

------------------
ZCom Bulletin Boards - Open Source Bulletin Boards

pre-school actualy. I just made it because... well... I don't know why I made it.

Is that the "Programming Perl, 3rd Edition" by O'Reilly or a different one by them?

------------------

Wartortle

I'm supposed to put somthin here?

Yea, its the third edition. Is that bad or somthing?

------------------
*
***
%###*###%
->>>Em8<<<-

No it's great. But...you could of got it for $21 cheaper than what you paid.

--mark

Oh Oh, tell me

------------------
ZCom Bulletin Boards - Open Source Bulletin Boards

No!!! I saved up for weeks!!!!!!

------------------
*
***
%###*###%
->>>Em8<<<-

Any computer books you buy, you should buy from http://www.bookpool.com/ as they are Soooooooooooooooo much cheaper than anywhere else.

Programming Perl 3rd edition was $49 from O'reiley, $39 from Amazon, and like $28 or $29 from Bookpool. I was mad because I didn't discover bookpool til the day that my Prog Perl arrived from O'reilly.

Since then though, I've probably bought another $200 or $300 worth of stuff from Bookpool, including one book that i had to return for a replacement because it was bound upside down.

Got personal service from them, not just a response-bot. They've been great. Wish I could have known about them 3 years ago... would have saved tons of money.

Check out any of the oreilly titles there and compare... way cheap!

--mark

No its not bad I just wanted to know cause I
was thinking about getting it.



------------------

Wartortle

I'm supposed to put somthin here?

we're doing the same things in fundamentals of programming (in school). Only with true basic, which SUCKS.


------------------
-david

www.antipopculture.org

I just ordered it (it better be good)... I
should get it Friday or Saturday... I tell
you what I think when I get it.

------------------

Wartortle

I'm supposed to put somthin here?

I can't wait!

------------------

Wartortle

I'm supposed to put somthin here?

You think thats bad we HAVE to "learn" to use the internet!

(1st thing we learned was how to click a link)

------------------
Wartortle

I'm supposed to put somthin here?

That was like, really dumb. I can program perl in -wT with CGI.pm and many functional coding, and they tought me how to use Netscrape. BAH!

ROFLMAO!

------------------
UBBDEV Moderator
OCCUPATION: Programmer, webmaster.

Hack Developer of the Ultimate Bulletin Board. I am not an employee of Infopop

Due to time limitation, I do not offer support Via. E-mail. Please post on the forums.

Sincerely,
MasterMind

We hadda use Netscrape too. I happy cause
todays the last day I have that class! The
only thing I'll miss about that clas is
correcting the teacher (I should've been
the one teaching he had no clue how to work
the internet)

------------------
Wartortle

I'm supposed to put somthin here?

My comp teacher is a small male bald geek, who programs Visual Basic programs that are perfectly useless. He made a visual basic calculator and tries to sell it. I made a C++ calculator and actually included the source code in the release.

He is a LOSER.

------------------
UBBDEV Moderator
OCCUPATION: Programmer, webmaster.

Hack Developer of the Ultimate Bulletin Board. I am not an employee of Infopop

Due to time limitation, I do not offer support Via. E-mail. Please post on the forums.

Sincerely,
MasterMind

My computer teacher is a she, and she dosen't know much about HTML (HA ha ha ha!). She has a web site about eye sight.

------------------
*
***
%###*###%
->>>Em8<<<-

Well mine he just reads from a book telling
us waht to do, and he cant understand what
the book is telling him!

------------------
Wartortle

I'm supposed to put somthin here?


This message has been edited by Wartortle on November 11, 2000 at 09:38 AM

http://www.bestweb.net/~bobp/theCONSOLE/control.cgi
http://www.bestweb.net/~bobp/theCONSOLE/theCONSOLE.zip -source

im not listing the source here, cause its 1600 lines. oh, on the site the username is admin5 and the password is 4tugboat.

its a nice little script i made in my spare time to display and edit a playlist for a local television station online. viewer.cgi is for use with ssi to include in a page.

i really did this progect to learn perl. i didnt use a book, cause im cheep ,

------------------
assistant administrator- UBB Code Hackers Hideout
moderator- Perl and CGI Scripts and Programming

AIM: NtEon
ICQ: 70520947
email: eon@ubbcodehacking.com

OMG! Perl to do math problems in school?!?!?!? I remember saving up for that top of the line $100 Texas Instruments calculator that had the fancy dancy roll of tape that printed out. Oh, how things have changed, ACK!

------------------
Webmaster
http://www.izmirhigh.com/index.shtml
http://home.flash.net/~murgnam/

*LOL* Nope, you still are recomended to have at least a TI-82 for Algerbra I



------------------
Da Wannabe Cannuck

:: Who is Andy?

hehe..

-Ghoste

------------------
Liquid FX Design.com
-------------------