LINUX.ORG.RU
Форум — Development  

Связный список на Perl


0

0

Нужно очень срочно написать связный список на перле. Самый стандартный вариант, как на си и паскале, как бы странно это ни казалось. Но не получается:(( Нужно просто в цикле добавлять туда элементы.
Написал так:

$top={};
while (1)
{
# $a=<STDIN>;
if (($a=<STDIN>)==999) {last}
else
{

$list{'num'}=$a;
$list{'next'}=$top;
$q=\%list;
$top=$q;
}

Что неправильно??
Спасибо.
chipolinous@yahoo.com

anonymous

На первый взгляд... ну, во-первых, зачем $q=\%list; $top=$q; (зачем
нужен $q ?), а во-вторых, ты всё время берёшь \%list, которая не изменяется...

Может, как-то так?

my $temp=\%list;

while(1){
    #get $a;
    $list{'num'}=$a;
    $list{'next'}={};
    $list=$list{'next'};
}

Eldhenn ☆
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Development