Simple while loop problem (newbie question)

Seventh · 09-07-2004, 10:57 AM

Hi all, this guy isn't working, and from what I know it seems like it's correct.

If anyone could troubleshoot this guy, I'd really appreciate it.

Just a basic Yes/No loop that if the answer isn't "Yes" or "No" tells them to answer as such.

Thanks!

Code:

print "Would you like to update the tree (recommended) [Yes/No]?" ;
$update = <STDIN>;
chomp ($update);

$i = 0;                                         # Set count

while $i = 0; {
if ($update eq "Yes") {
    $i = $i + 1;
    system ("clear");
    print "Updating CVS tree, standby...\n";
    qx (cvs update -A);
    print "Finished. Hit Enter to continue.\n";
    $_ = <STDIN>;

} elsif ($update eq "No") {
    $i = $i + 1;
    print "\nContinuing without update, please hit Enter to continue.\n";
    $_ = <STDIN>;                                # Blank Variable for CR
                                                 
} else {
    print "Please answer Yes or No.\n";
    chomp ($update);
    $i = 0;
}
}

Seventh · 09-07-2004, 11:12 AM

Got it, couple of syntax things.

bestofmed · 09-07-2004, 11:14 AM

1-I haven't a big knowledge in Perl but I think that the while condition should be in parentheses.
2-I think that that the comparison operator is '==`not one '=`(this one is for assignment).

Just try this

Code:

print "Would you like to update the tree (recommended) [Yes/No]?" ;
$update = <STDIN>;
chomp ($update);

$i = 0;                                         # Set count

while ($i == 0) {        #as you see it's == not =
if ($update eq "Yes") {
    $i = $i + 1;
    system ("clear");
    print "Updating CVS tree, standby...\n";
    qx (cvs update -A);
    print "Finished. Hit Enter to continue.\n";
    $_ = <STDIN>;

} elsif ($update eq "No") {
    $i = $i + 1;
    print "\nContinuing without update, please hit Enter to continue.\n";
    $_ = <STDIN>;                                # Blank Variable for CR
                                                 
} else {
    print "Please answer Yes or No.\n";
    chomp ($update);
    $i = 0;
}
}

Give it a try it shall work.

GOOD Luck

Seventh · 09-07-2004, 12:00 PM

double-equals did the job.

Thanks man!