Re^5: Looking for pointers or optimizations.

in reply to Re^4: Looking for pointers or optimizations.
in thread Looking for pointers or optimizations.

So if I put in while (<$fh>) it breaks my my $guess = <> further down in my code. I made that my $guess = <STDIN> and it works fine.

both while(<>){..} and $guess = <> reads from STDIN. Atleast, that is obvious from your code. So, to make while(<fh>){.. work, you have to do this:

my ($words_file) = @ARGV;
open( my $fh, "<", $words_file ) or die "can't open file: $!";
my @words;
while (<$fh>) {
  ...
}

## later you use
chomp(my $guess = <STDIN>);
...
[download]

Please, pay attention to the DIRECTION of the "arrow"

">" is 'Writing to' ( OUTPUT )
"<" is 'Read from' ( INPUT )

NOTE: Like I mentioned previously, you didn't close the your filehandle!!!

In Section Seekers of Perl Wisdom