I am attempting a program that reads a list of numbers from the screen until
the number 999 is read. It then prints the sum of all numbers read- with
the exception of the 999.
My code looks like:
until ($number=999) {
print "Please input your number:\n";
chomp($number=<STDIN>);
@a=$number;
}
foreach $i (@a) {
$c+=$i;
}
if ($number=999) {
print "Your total is: $c\n"
}
The program immediately terminates with and the line "Your total is:" is
output with a a blank value. It never even prompts me to input a number.
What am I doing wrong?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
