Сообщения

1

Perl / Задачка на тему хэшей массивов

« : 25 Января 2005, 23:43:56 »

Задача: получить хэш где значения будут явными массивами, а не ссылками, т.к. переменная массива (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; то при выводе хэша получаем вместо массива ссылку на него, разыменуем ссылку - получим ссылку на хэш... ничего не пойму