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 は次の出力を生成する必要があります
望ましい出力
一人の生徒はタイロン
あの生徒は今日病気だった
一人の生徒はマーシャルです
何らかの理由で機能しません。