in reply to
OOP/Linked List Question
You can build a real linked list, you donīt even need objects:
use strict;
use warnings;
#build a cyclic list of hashes
my $root = {value => 0, next => undef};
my $last = $root;
for (my $i=1; $i<5; $i++)
{
my $node = { value=>$i, next => undef};
$last->{next} = $node;
$last = $node;
}
$last->{next} = $root;
#cycle:
my $node = $root;
for ( my $j=0; $j<10; $j++ )
{
print $node->{value}, "\n";
$node = $node->{next};
}
Update:
The basic algorithms are the same than in any other language. The most important here is an understanding of how references work (see
perlre), so i leave the rest as excercise for the interested reader.