view release on metacpan or  search on metacpan

findwords.pl  view on Meta::CPAN

#!/usr/bin/perl

#Generate words values

use strict;

my %scrabble_scores = 
('A',1,'B',3,'C',3,'D',2,'E',1,'F',4,'G',2,'H',4,'I',1,'J',8,'K',5,'L',1,
 'M',3,'N',1,'O',1,'P',3,'Q',10,'R',1,'S',1,'T',1,'U',1,'V',4,'W',4,'X',8,
 'Y',4,'Z',10);

open(BEATNIK,"<$ARGV[0]") || die $!;
while($word = <BEATNIK>)
{ $number = 0;
  for(split(//,$word)) 
  { $number += $scrabble_scores{uc $_}; }
  print "$number = $word";
}
 
close(BEATNIK);