Hi,
I am a very beginner to perl so may be this question is stupid or too low
leveled then please ignore.
I tried to wright a little calculator in perl - nothing difficult - very
simple:
#!/usr/bin/perl -w
print "First value: ";
chomp ($value1=<STDIN>);
print "Second value: ";
chomp ($value2=<STDIN>);
print "What operator (+ - * /)? ";
chomp ($operator=<STDIN>);
if ($operator eq "+") {
print ($value1 + $value2, "\n");
} elsif ($operator eq "-") {
print ($value1 - $value2, "\n");
} elsif ($operator eq "*") {
print ($value1 * $value2, "\n");
} elsif ($operator eq "/") {
print ($value1 / $value2, "\n");
} else {
print "Keep it simple \n";
}
Originell I tried to put the operator from <STDIN> directly to print like
this:
[...]
print "First value: ";
chomp ($value1=<STDIN>;
print "Second Value: ";
chomp ($value2=<STDIN>;
print "Operator: ";
chomp ($value3=<STDIN>;
print ($value1 $value3 $value2, "\n");
But that was malfaunctioning. Is there a way to put the STDIN for the
operator directly in the print line or do I always have to keep it that long
winded?
Oliver
--
... don't touch the bang bang fruit
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
