Perl

Perl RSS

perl assignment question

Thread Solved

•

Join Date: Dec 2008

Posts: 11

Reputation: mtramnes is an unknown quantity at this point

Solved Threads: 0

mtramnes

Offline

Newbie Poster

perl assignment question

Jan 26th, 2009

Im taking a perl class not exactly sure if what Im doing is right.
I was to take a written program that allowed the user to enter a number guessing what the target was. The original used elseif statements to let the user know if the guess was to high, too low, or correct. I need to make it so that it loops until the correct answer is given. Here is what I have so far. Any suggestions would be great.

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
#!/usr/bin/perl -w
# guessnum2.pl
 
use strict;
 
my $target = 12;
print "Guess my number!\n";
print "Enter your guess: ";
my $guess = <STDIN>;
 
if ($target == $guess)  {
	print "That's it!! You guessed correctly:\n";
while (<STDIN> > $target) {
	print "Your guess is too high!\n";
}
while (<STDIN> < $target) {
	print "Your guess is too low!\n";
}
#!/usr/bin/perl -w
# guessnum2.pl

use strict;

my $target = 12;
print "Guess my number!\n";
print "Enter your guess: ";
my $guess = <STDIN>;

if ($target == $guess)  {
	print "That's it!! You guessed correctly:\n";
while (<STDIN> > $target) {
	print "Your guess is too high!\n";
}
while (<STDIN> < $target) {
	print "Your guess is too low!\n";
}

•

Join Date: Dec 2005

Posts: 5,850

Reputation: Salem has a reputation beyond repute

Solved Threads: 749

Salem

Offline

Void main'ers are DOOMed

Re: perl assignment question

Jan 26th, 2009

One while loop to input a guess, then 3 tests.

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: perl assignment question

Jan 26th, 2009

A students best cheat tool is a search engine or the search feature of a website or forum. You would have found a recent thread discussing the exact same assignment had you done just a little searching.

http://www.daniweb.com/forums/thread169597.html

•

Join Date: Dec 2008

Posts: 11

Reputation: mtramnes is an unknown quantity at this point

Solved Threads: 0

mtramnes

Offline

Newbie Poster

Re: perl assignment question

Jan 27th, 2009

Thanks, i went back and looked at the other thread. This is what I got out of it to make it work for what I needed. Does this make sense?

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
 
#!/usr/bin/perl -w
# guessnum2.pl
 
use strict;
use warnings;
 
my $target = 12;
while  {
   print "Pick a number\n";
   my $guess = <STDIN>;
   chomp $guess;
   if ($guess > $target){
      print "You guessed too high\n";
      next;
   }
   elsif ($guess < $target) {
      print "You guessed too low\n";
      next;
   }
   print "YOU GUESSED RIGHT!! It was $guess\n";
   last;
}
#!/usr/bin/perl -w
# guessnum2.pl

use strict;
use warnings;

my $target = 12;
while  {
   print "Pick a number\n";
   my $guess = <STDIN>;
   chomp $guess;
   if ($guess > $target){
      print "You guessed too high\n";
      next;
   }
   elsif ($guess < $target) {
      print "You guessed too low\n";
      next;
   }
   print "YOU GUESSED RIGHT!! It was $guess\n";
   last;
}

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: perl assignment question

Jan 27th, 2009

If you tried to run your code it will return a syntax error so I am suspicious you did not try it. In the other code the "while" loop has a condition:

while (1) {

why did you remove the condition in parenthesis?