Задача: получить хэш где значения будут явными массивами, а не ссылками, т.к. переменная массива (models) меняется. Вывести содержимое...
Вот собственно код:
#!/usr/local/bin/perl -w
$firm="aaa";
@models=(\'a\',\'b\',\'c\',\'d\');
$clean_links{$firm}=\\@models;
$firm="aa1";
@models=(\'a\',\'b\',\'c\');
$clean_links{$firm}=\\@models;
@mym=@{$clean_links{"aaa"}};
print "Content-type: text/html; charset=windows-1251\\n\\n";
print $mym[0].$mym[1].$mym[2];
С ссылками данный код работает, но в каждом значении хэша одно и то же значение по адресу ссылки на массив models. Если сделать присвоение явным $clean_links{$firm}=@models; то при выводе хэша получаем вместо массива ссылку на него, разыменуем ссылку - получим ссылку на хэш... ничего не пойму