Grant Hansen wrote:
>
> Can someone tell me what is wrong with this.
>
> Upon entering a 0 I want to break out of the loop and continue processing the
> data in @data.
>
> $quit = 0;
> while (! $quit) {
> chomp(@data = <STDIN>);;
> if ($data == 0) {
> $quit = 1;
> }}
If you want to stop input based on what the user entered on the command
line then you have to read ONE line at a time and not use an array for
input. BTW your loop will only read numbers and not strings because the
test '== 0' will evaluate strings in a numerical context which are
always equal to 0.
while ( my $input = <STDIN> ) {
chomp $input;
last if $input == 0;
push @data, $input;
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
