Как отобразить несколько записей из HTML-формы?

Question

У меня есть сценарий CGI Perl. Я пытаюсь отображать записи пользователя на каждой строке, но он не работает. Вот то, что я до сих пор:

#!/usr/bin/perl 
use strict; use warnings; 
use CGI qw(:standard); 

print header; 
my %hash = (
      'Tyrone' => 1, 
      'Sue'  => 1, 
      'Marshall' => 1, 
      'Hiroshi' => 1, 
      'Jose'  => 1, 
     ) 


print start_html(
    -title => 'Students in Class' 
); 

# Process an HTTP request 
my $rollcall = param("names"); 
my @students_in_class = split(/;/, $rollcall); 

foreach my $student (@students_in_class){ 
    if (exists $hash{$student}) { 
     print h1('One student is '. $student . '<br>'); 
    } else { 
     print h1('That student was sick today'. '<br>'); 
    } 
} 

, что если пользователь вводит следующее в строке поиска: Tyrone;Tommy;Marhshall

КГИ должен в следующие выходные

Желаемая выход

One студент Tyrone

Этот студент сегодня болен

Один студент Маршалл

---

По какой-то причине он не работает.

Answer 1

Вы пропустили точку с запятой после определения хэш,

my %hash = (
     'Tyrone' => 1, 
     'Sue'  => 1, 
     'Marshall' => 1, 
     'Hiroshi' => 1, 
     'Jose'  => 1, 
    );