Any tips on this?

[Anonymous Monk]

Hi, I am supposed to write a snipet of code for the following problem: The idea is to ask the user to provide a number (an initial number) and then have him providing numbers for as long as they are greater or equal to the previous ones.
I have written this:

print "Please give me a number:\n";
my $initial_number = <STDIN>;
chomp $initial_number;

print "Give me another number:\n";
my $new_number = <STDIN>;
if($new_number>=$initial_number)
{
    print "Please continue with a new number:";
}

else
{
    print "You specified a number which is smaller than the previous. 
+The program will now exit\n";
    exit;
}

but as you can see it only executes once...I think that I need a while loop, but I am not really sure on how to implement this. Can you point me to the correct direction?

[toolic]

An infinite while loop will work:

use warnings;
use strict;

print "Please give me a number:\n";
my $initial_number = <STDIN>;
chomp $initial_number;

while (1) {
    print "Please continue with a new number:";
    my $new_number = <STDIN>;
    chomp $new_number;
    if ($new_number < $initial_number) {
        print "You specified a number which is smaller than the previo
+us. The program will now exit\n";
        exit;
    }
    $initial_number = $new_number;
}

[Anonymous Monk]

And the last statement will exit (I believe ...) from that loop. The next statement will branch back to the start of the loop again. As long as there is eventually some way out of the loop, an infinite loop is sometimes perfect perfect perfect perfect perfect perfect perfect perfect perfect perfect.

[Anonymous Monk]

Ah, thanks to all of you for your suggestions!

[Eily]

Well you need a while loop indeed (or rather, a while loop is the obvious way to do it). Just write while instead of if, and do think about changing the value of $initial_number (maybe change its name) to give it the value of $new_number at the end of the loop. There's no else with a while loop.

And since this is very basic perl, you may want to read perlintro

[simmisam]

print "Enter num1\n";
my $num1 = <STDIN>;
chomp ($num1);

print "Enter num2\n";
my $num2 = <STDIN>;
chomp($num2);

while($num2 > $num1)
{
    print "Enter num again\n";
    my $num = <STDIN>;
    chomp($num);

    $num1 = $num2;
    $num2 = $num;
}

print "Num2 is smaller than Num1\n";