Ошибка синтаксиса Perl с хэшами

Question

Я новичок в Perl, и компилятор дает мне синтаксическую ошибку, когда я пытаюсь использовать хэш. Здесь проблема:

while (<>){ 
    @words_in_line = /[a-z](?:[a-z']*[a-z])?/ig; 
    foreach $word (@words_in_line){ 
      %wordcount{$word}++; 
    } 
} 

и ошибка, я получаю

syntax error at ./wordfreq.pl line 11, near "%wordcount{" 
syntax error at ./wordfreq.pl line 11, near "++;" 
syntax error at ./wordfreq.pl line 13, near "}" 
Execution of ./wordfreq.pl aborted due to compilation errors. 

Answer 1

Чтобы получить доступ к хэш-значения, используйте скалярный сигилу $. Изменение:

 %wordcount{$word}++; 

к:

 $wordcount{$word}++; 

perldoc perldata