Почему возникает ошибка синтаксиса при поппытке инициализации хэша, с использованием переменной?

Question

[ReD]

При попытке проиницилизировать хэш так

$h{a} = "1";
$h{b} = "2";

Возникает ошибка:

syntax error at p.pl line 93, near "$h{"
syntax error at p.pl line 94, near "$h{"

А если так:

$h->{a} = "1";
$h->{b} = "2";

то Perl не ругается.

Отсюда вопрос, когда инициализировать хеш с использованием переменной, а когда через указатель на хэш?
Объясните пожалуйста!

Answer 1

[Saboteur]

$a="index1";

$h{$a}="1";
$h{"index2"}="2";

Comments

[ReD]

Спасибо, но при такой записи, то же самое -

syntax error at p.pl line 94, near "$h{"
syntax error at p.pl line 95, near "$h{"

[Saboteur]

У вас точно перлом это выполняется? У меня именно этот код выдает то, что нужно

#!/usr/bin/perl
$a="index1";

$h{$a}="1";
$h{"index2"}="2";


print "\$a - $a\n";
print "\$h{\$a} - $h{$a}\n";
print "\$h{\"index2\"} - $h{\"index2\"}\n";

$ ./test.pl
$a - index1
$h{$a} - 1
$h{"index2"} - 2

[ReD]

Saboteur: точно:

perl -e p.pl

[ReD]

Вроде разобрался, до этих строк выше много закоментированных строк, и где-то "коса на камень заходит". Написал с "чистого листа" и заработало.
Большое спасибо за помощь!