use strict;
use warnings;
my %pay = ( A => 1, F => 4, K => 5, P => 3, U => 1, Z => 10,
B => 2, G => 2, L => 1, Q => 10, V => 4,
C => 3, H => 4, M => 3, R => 1, W => 4,
D => 2, I => 1, N => 1, S => 1, X => 8,
E => 1, J => 8, O => 1, T => 1, Y => 4
);
my $word;
my @word;
print "Enter word to calculate.\n";
print "\nPress 'q' to quit\n";
while (){
my $total_points = 0;
print "\nWord: ";
chomp ($word = uc(<STDIN>));
die "Quiting program...\n" if ($word eq 'Q');
foreach my $letter (split("", $word)){
$total_points += $pay{"$letter"} if defined $pay{"$letter"} ;
printf "Letter \"%s\" = %d points. Total points: %d\n", $lette
+r,$pay{"$letter"}, $total_points;
}
}
Output:
Enter word to calculate.
Press 'q' to quit
Word: test
Letter "T" = 1 points. Total points: 1
Letter "E" = 1 points. Total points: 2
Letter "S" = 1 points. Total points: 3
Letter "T" = 1 points. Total points: 4
Word: q
Quiting program...
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.