perl - ./perltest.pl 8 行目、"$questions{" 付近の構文エラー

Question

このコードの構文エラーが何であるかわかりません。

my $questions{$question} = $answer

各質問/回答のペアをハッシュに割り当てようとしていますが、構文エラーが何であるかわかりません。

#!/usr/bin/perl
use warnings;
use CGI;

my $cgi = CGI->new;
my $text = $cgi->param('splash');
my $anslist = "/home/megaoff/www/limages/anslist.txt";
my $unanslist = "/home/megaoff/www/limages/unansquestions.txt";
open(my $ANS, '<', $anslist) or die "Can't open file: $anslist";
open(my $UNANS, '>>', $unanslist) or die "Can't open file: $unanslist";

while(my $line = <$ANS>) {
    my($question, $answer) = split(/\t/, $line);
    my $questions{$question} = $answer;

}

close($ANS) or die "Couldn't close file: $anslist";
close($UNANS) or die "Couldn't close file: $unanslist";

Answer 1

whileループの上で、最初にハッシュを宣言します。

my %questions;

次に、次のような要素を割り当てることができます (欠落している に注意してくださいmy):

$questions{$question} = $answer;