Perl - Ошибка, вызванная неинициализированным значением в печати

Question

Я пишу простую программу, которая читает код Морзе из файла и преобразует его в обычный текст. Однако я получаю некоторые сумасшедшие ошибки. Я не очень хорошо знаком с perl, и мне приходится запускать его из командной строки. Ниже приведена ошибка, которую я получаю, и код. Возможно, я просто ошибаюсь. Я печатаю: «perl -w Lott_Morse.pl morse.txt» в командной строке. Любая помощь будет оценена по достоинству.

Ошибка:

Use of uninitialized value in print at Lott_CSC360_Morse2.pl line 31, <> line 7. 
Use of uninitialized value in print at Lott_CSC360_Morse2.pl line 31, <> line 7. 
Use of uninitialized value in print at Lott_CSC360_Morse2.pl line 31, <> line 7. 
Use of uninitialized value in print at Lott_CSC360_Morse2.pl line 31, <> line 7. 
Use of uninitialized value in print at Lott_CSC360_Morse2.pl line 31, <> line 7. 
Use of uninitialized value in print at Lott_CSC360_Morse2.pl line 31, <> line 7. 
The message is 0Jessicas-MacBook-Pro:Documents 

Код:

#!/usr/bin/perl 

use 5.010; 
use warnings; 

%morse_to_plain=(
".-" =>"A", "-..." => "B", "-.-." => "C", "-.." => "D", "." => "E", 
"..-." => "F", "--." => "G", "...." => "H", ".." => "I", ".---" => "J", 
"-.-" => "K", ".-.." => "L", "--" => "M", "-." => "N", "---" => "O", 
".--." => "P", "--.-" => "Q", ".-." => "R", "..." => "S", "-" => "T", 
"..-" => "U", "...-" => "V", ".--" => "W", "-..-" => "X", "-.--" => "Y", 
"--.." => "Z", "-----" => "0", ".----" => "1", "..---" => "2", "...--" => "3", 
"....-" => "4", "....." => "5", "-...." => "6", "--..." => "7", "---.." => "8", 
"----." => "9", ".-.-.-" => ".", "--..--" => ",", "..--.." => "?", ".----." => "'", 
"-....-" => "-", ".-..-." => '"', ".--.-." => "@", "-...-" => "=", "!" => " " 
); 



chomp(@message = <>); 



print "The message is "; 
foreach $char (@message) 
{ 
    print $morse_to_plain{$char}; 
} 

Answer 1

Помните всегда use strict;. Работал хорошо на нескольких ... --- ... в файле (весь код Морзе я знаю):

#!/usr/bin/perl 

use 5.010; 
use strict; 
use warnings; 

my %morse_to_plain=(
".-" =>"A", "-..." => "B", "-.-." => "C", "-.." => "D", "." => "E", 
"..-." => "F", "--." => "G", "...." => "H", ".." => "I", ".---" => "J", 
"-.-" => "K", ".-.." => "L", "--" => "M", "-." => "N", "---" => "O", 
".--." => "P", "--.-" => "Q", ".-." => "R", "..." => "S", "-" => "T", 
"..-" => "U", "...-" => "V", ".--" => "W", "-..-" => "X", "-.--" => "Y", 
"--.." => "Z", "-----" => "0", ".----" => "1", "..---" => "2", "...--" => "3", 
"....-" => "4", "....." => "5", "-...." => "6", "--..." => "7", "---.." => "8", 
"----." => "9", ".-.-.-" => ".", "--..--" => ",", "..--.." => "?", ".----." => "'", 
"-....-" => "-", ".-..-." => '"', ".--.-." => "@", "-...-" => "=", "!" => " " 
); 

print "The message is \n"; 

while (<>) { 
    chomp; 
    foreach my $char (split ' ') { 
     print $morse_to_plain{$char}; 
    } 
    print "\n"; 
} 

Answer 2

Вы читаете в строке, которая не имеет соответствующий ключ в вашем хэше, так что значение хэша не определено (неинициализированный) , Вероятно, это проблема ввода. Попробуйте это для отладки:

print $morse_to_plain{$char} // "Key does not exist: '$char'\n"; 

Для длинных строк, вы могли бы рассмотреть это:

$string =~ s{([-.]+)}{ $morse_to_plain{$1} // $1 }ge; 

Какой будет искать комбинаций точек и тире, и перевести их в текстовый эквивалент, или сами, если нет перевод найден.

Вы должны также рассмотреть возможность сделать ваше назначение хэша немного более удобным для чтения:

my %morse_to_plain = (
    ".-"  => "A", "-..." => "B", "-.-." => "C", "-.." => "D", "."  => "E", 
    "..-." => "F", "--." => "G", "...." => "H", ".."  => "I", ".---" => "J", 
    "-.-" => "K", ".-.." => "L", "--"  => "M", "-."  => "N", "---" => "O", 
    ".--." => "P", "--.-" => "Q", ".-." => "R", "..." => "S", "-"  => "T", 
    "..-" => "U", "...-" => "V", ".--" => "W", "-..-" => "X", "-.--" => "Y", 
    "--.." => "Z", "-----" => "0", ".----" => "1", "..---" => "2", "...--" => "3", 
    "....-" => "4", "....." => "5", "-...." => "6", "--..." => "7", "---.." => "8", 
    "----." => "9", ".-.-.-" => ".", "--..--" => ",", "..--.." => "?", ".----." => "'", 
    "-....-" => "-", ".-..-." => '"', ".--.-." => "@", "-...-" => "=", "!"  => " " 
); 

Это сделает опечатки намного легче обнаружить. Кроме того, вы можете сделать перевернутую таблицу поиска довольно легко:

my %plain_to_morse = reverse %morse_to_plain;