Как использовать переменную в качестве хэш-ключа в Perl?

Question

Я боролся с назначением переменной Perl в качестве переменной.Я пытаюсь предложить пользователю ввести значение, которое будет храниться в переменной, которая используется как ключ для доступа и печати значения, хранящегося в хеш-таблице.Следующий код помогает проиллюстрировать мою проблему:

my $key = 0;
print( "Enter the value for your key\n" );
$key = <>;
my %hash = (
   a => "A",
   b => "B",
);
    print( $hash{$key} );

Проблема в том, что print ($ hash {$ key});ничего не выводит на экран, но printf ($ hash {"a"}; делает; я этого не понимаю. Любая помощь и разъяснения будут высоко оценены. Заранее спасибо.

Answer 1

$key в конечном итоге получает (например) "a\n", а не "a". Используйте встроенную функцию chomp для удаления завершающего символа новой строки:

$key = <>;
chomp $key;
...
print $hash{$key};