このPerl CGIプログラムは、ハッシュ配列のアイテムを計算しないのはなぜですか？

Question

私はユーザーが製品のサイズを選んでサイズをハッシュ配列に入れることができるプログラムを書いた。しかし、私が（ユーザーが複数のトッピングを選ぶことができますが、サイズは1つしかない）すべてのトッピングを追加する部分をコーディングしようとすると、私の数式は機能しません。

my %size = ('Regular' => 6.00, 
     'Large' => 8.00, 
     'Family' => 11.00); 

my $size = param('size'); 

my @toppings = param('toppings'); 

my $total_topping = $toppings * 1.25; 
my $total = $size + $total_topping; 
print ('Total Due: $total'); 

Answer 1

にキーを割り当てることができます

use strict; 
use warnings; 

my %size = (Regular => "6", 
      Large => "8", 
      Family => "11", 
      ); 

print $size{Large}; 

、あなたはなかれあなたのコード内でuse strictとuse warningsを含める必要があります。それはあなたの問題のいくつかを指摘するでしょう。

あなたのコードを見てみましょう。あなたはトッピングの数を取得するために$toppingsの代わり@toppingsを使用

1. ：

   # This defines a hash mapping sizes of pizza to price 
   my %size = ('Regular' => 6.00, 
        'Large' => 8.00, 
        'Family' => 11.00); 
   
   # And this gets the size parameter from the user's request. 
   # Presumably, this value should be one of the keys from the %size hash. 
   my $size = param('size'); 
   
   # This gets an array of all of the toppings the user has selected. 
   my @toppings = param('toppings'); 
   
   # Each topping adds £1.25 to the price, so to get the total price 
   # for toppings, we need to multiply the number of toppings by 1.25. 
   # But that's not what you're doing here. You're using a new scalar 
   # variable called $toppings. This will be undef and will therefore 
   # be interpreted as zero. 
   # This problem would have been picked up by "use strict" 
   my $total_topping = $toppings * 1.25; 
   
   # And here you're adding $size to $total_toppings to get the 
   # total price of the pizza. But $size doesn't contain the price, 
   # it contains the description of the size. Any of your sizes will 
   # be interpreted as 0 when used as a number. So $total will end 
   # up as 0 + 0 = 0. 
   # This problem would have been picked up by "use warnings". 
   my $total = $size + $total_topping; 
   print ('Total Due: $total'); 
   

   だから、あなたは、2つのエラーがありました。

2. サイズの名前をサイズ価格に変換するのを忘れました。

あなたのコードはより次のようになります。

my %size = (Regular => 6.00, 
      Large => 8.00, 
      Family => 11.00); 

my $size = param{'size'); 
# Check for valid size 
if (! exists $size{$size}) { 
    die "$size is not a valid size of pizza"; 
} 
# Convert name of size to cost of size. 
my $size_cost = $size{$size}; 

my @toppings = param('toppings'); 

# Array in scalar context gives number of elements 
my $total_toppings = @toppings * 1.25; 

my $total = $size_cost + $total_topping; 
print ('Total Due: $total'); 

Answer 2

ハッシュ​​3210を定義しましたが、決して使用しませんでしたか？ $トッピングの値はどこにありますか？

とにかく、ハッシュを使用する方法のアイデアを与えるために、キー '大'の値を表示する方法があります。他に述べたようにあなたはまた、配列

my @Sizes = keys %size;