1

Perl CGI スクリプトがあります。すべての行にユーザー エントリを表示しようとしていますが、うまくいきません。これが私がこれまでに持っているものです:

#!/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

CGI は次の出力を生成する必要があります

望ましい出力

一人の生徒はタイロン

あの生徒は今日病気だった

一人の生徒はマーシャルです


何らかの理由で機能しません。

4

1 に答える 1