在打印功能中使用未初始化的值

Question

我正在運行以下簡單的Perl程序。

use warnings; 
use strict; 

my %a = (b => "B", c => "C"); 

print "Enter b or c: "; 

my $input = <STDIN>; 

print "The letter you just entered is: ", $input, "\n"; 

my $d = $a{$input}; 

print ($d); 

當我進入b時，我得到了以下輸出併發出警告。第47行是最後一條語句打印（$ d）;

Enter b or c: b 
The letter you just entered is: b 

Use of uninitialized value $d in print at C:/Users/lzhang/workspace/Perl5byexample/exer5_3.pl line 47, <STDIN> line 1. 

爲什麼我得到這個警告，我該如何解決？

Answer 1

您的$input包含除b或c以外的新行字符。修改它以修剪此字符：

my $input = <STDIN>;  # 1. $input is now "b\n" or "c\n"        
chomp $input;    # 2. Get rid of new line character 
          # $input is now "b" or "c" 

print "the letter you just entered is: ", $input, "\n"; 

Answer 2

這是因爲當您按回車鍵時，它會添加一個換行符。嘗試添加chomp以擺脫此。

chomp(my $input = <STDIN>); 

你得到警告，因爲值b\n不會映射到你的哈希值，從而$d未初始化。