Help for this page

Select Code to Download

Select or download this

my %dict ;
my $dict = "d:/perl/words.short" ;
...
{   $dict{$wd} = 1 ; }
say scalar keys(%dict) ;
say "got apple" if exists $dict{apple} ;

Select or download this
```
D:\Perl>dictest.pl
66384

D:\Perl>
```