note
Kenosis
<p>You've received excellent suggestions on how to <c>split</c> on whitespace to get the words out of lines.</p>
<p>The following is more than requested, but perhaps it will assist your scripting:</p>
<ul>
<li>Always begin your scripts with <c>use strict; use warnings;</c></li>
<li>Use lexically-scoped variables (<c>my</c>), including as file handles</li>
<li>Use the three-argument form of <c>open</c></li>
<li>You can omit the parentheses when using <c>chomp</c> in your script (but not in all scripts)</li>
<li>The second <c>chomp</c> isn't necessary, since you'll be splitting on whitespace</li>
<li>You need to enclose your <c>if(!exists $dict{$word}) ...</c> within a <c>for</c> loop that iterates through the words in <c>@words</c></li>
</ul>
<p>Given the above, consider the following (it's been run through perltidy):</p>
<c>
use strict;
use warnings;
my %dict;
open my $infile, '<', 'words.txt' or die "can't open file $!";
while ( my $word = <$infile> ) {
chomp $word;
$dict{$word} = 1;
}
close $infile;
while ( my $line = <> ) {
my @words = split /\s+/, $line;
for my $word (@words) {
if ( !exists $dict{$word} ) {
print "$word is mispelled\n";
}
}
}
</c>
<p>I hope this is helpful.</p>
1001912
1001912