Error Trouble Shouting 1

[biobrain]

#!/usr/bin/perl -w

######################################################################
# #
# #
# #
# #
# _ _ _ #
# <_>._ _ _ _| |_ <_> ___ .___ #
# | || ' ' | | | | |<_> | / / #
# |_||_|_|_| |_| |_|<___|/___ #
######################################################################
# A Secret Word Guessing Program 1.0 16/01/2008 #
######################################################################

my @words= qw (a b c d); # A list of secret words
print ("Please type in the secret word you guess?"); # User Input
$input= <STDIN>;
chomp ($input);
$i=0;
$guess= "maybe"

while($guess eq "maybe"){
if ($words[$i] eq $input){
$guess= "correct";
print ("$input\n");
}elseif ($i<2) {
$i= $i+1;
}else{
print "wrong, try again. What is the secret word?";
$input=<STDIN>;
$i=0;
}

}

While running this script on my Linux box I am getting an error

biobrain@linux-q01x:~/perl_library> perl secret_word.pl
syntax error at secret_word.pl line 23, near "){"
syntax error at secret_word.pl line 27, near "}"
Execution of secret_word.pl aborted due to compilation errors.


Can any body tell me about this error,

I had tried my self but unable to find.

 

[ChrisHunt]

You appear to be missing a ; on the end of [tt]$guess = "maybe"[/tt].

-- Chris Hunt
Webmaster & Tragedian
Extra Connections Ltd

 

[travs69]

Missing semi colon, missing brackets, esleif should be elsif (not sure about your logic though cause of the missing brackets), use strict (pain in the rear at first but is a lifesaver going forward).

I re-wrote it a bit

use strict;
my @words= qw (a b c d); # A list of secret words

while(my $i != 1){
	print ("Please type in the secret word you guess?"); # User Input
	my $input= <STDIN>;
	chomp $input;
	
	for my $word (@words) {
		if ($word eq $input) {
			print "$input is correct\n";
			exit;
		}
	}	
	print "wrong, try again.\n";
}

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[biobrain]

Dear Trvs69

It is working fine but I am also getting this error

Use of uninitialized value in numeric ne (!=) at secret_word.pl line 19.
Please type in the secret word you guess?

 

[travs69]

I don't get that error at all.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[KevinADC]

Because $i has no value the warning is displayed.

Is this school/class/course work?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[biobrain]

It is my self learning process with the help of you all

 

[MillerH]

A slight alteration to trav's code:

[url=http://perldoc.perl.org/functions/use.html][black][b]use[/b][/black][/url] [green]strict[/green][red];[/red]
[black][b]use[/b][/black] [green]warnings[/green][red];[/red]

[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]%is_word[/blue] = [url=http://perldoc.perl.org/functions/map.html][black][b]map[/b][/black][/url] [red]{[/red][blue]$_[/blue] => [fuchsia]1[/fuchsia][red]}[/red] [red]([/red][red]'[/red][purple]a[/purple][red]'[/red]..[red]'[/red][purple]d[/purple][red]'[/red][red])[/red][red];[/red]

[maroon]GUESS[/maroon][maroon]:[/maroon]
[olive][b]while[/b][/olive] [red]([/red][fuchsia]1[/fuchsia][red])[/red] [red]{[/red]
	[url=http://perldoc.perl.org/functions/print.html][black][b]print[/b][/black][/url] [red]([/red][red]"[/red][purple]Please type in the secret word you guess? [/purple][red]"[/red][red])[/red][red];[/red]
	[black][b]my[/b][/black] [blue]$input[/blue]= <STDIN>[red];[/red]
	[url=http://perldoc.perl.org/functions/chomp.html][black][b]chomp[/b][/black][/url] [blue]$input[/blue][red];[/red]

	[olive][b]if[/b][/olive] [red]([/red][blue]$is_word[/blue][red]{[/red][blue]$input[/blue][red]}[/red][red])[/red] [red]{[/red]
		[black][b]print[/b][/black] [red]"[/red][purple][blue]$input[/blue] is correct[purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
		[olive][b]last[/b][/olive] GUESS[red];[/red]
	[red]}[/red]

	[black][b]print[/b][/black] [red]"[/red][purple]wrong, try again.[purple][b]\n[/b][/purple][/purple][red]"[/red][red];[/red]
[red]}[/red]

[tt]------------------------------------------------------------
Pragmas (perl 5.10.0) used :
[ul]
[li]strict - Perl pragma to restrict unsafe constructs[/li]
[li]warnings - Perl pragma to control optional warnings[/li]
[/ul]
[/tt]

- Miller