OO linked lists in Perl

After many days, trying to implement linked lists by nested hash (link to Rosetta Code) (link to my code) or Struct::Dumb, I get how to write the (singly) linked list in object-oriented style by Perl. One with bless, another one with Moose. Keep the learning record here.

Updated: See the link in comment section of Tobyink, a showcase of his OO module Zydeco. Thanks Toby!

#reference: “Object Oriented Perl” by Damian Conway 

use strict;
use warnings;

{
package SLL::Node;
use strict;

=pod
sub new {
    my $class = $_[0];
    my $objref = {
        _value => $_[1],
        _nextnode => $_[2],
    };
    bless $objref, $class;
    return $objref;
}

=cut
sub new {
    my ($class) = @_;
    bless {
        _value => $_[1],
        _nextnode => $_[2],
    }, $class;
}


sub value { $_[0]->{_value} }

sub nextnode { $_[0]->{_nextnode} }

}


my $node_a = SLL::Node->new(30undef);
my $node_b = SLL::Node->new(40, \$node_a);
my $node_c = SLL::Node->new(70, \$node_b);

my $node_head = SLL::Node->new(undef, \$node_c);

my $node = $node_head;

do {
    $node = ${$node->nextnode};
    print $node->value ;
while ($node->nextnode);

print \n;

#print 70 40 30


#reference: various resources on Moose

use strict;
use warnings;

package Node {
    use Moose;

    has 'value', is => 'ro', isa => 'Int';
    has 'nextnode', is => 'rw', isa => 'Any';

    sub printvalue { 
        my $self = shift;
        print $self->value , " ";
    }

    sub go_next {
        my $self = shift;
        return $self->nextnode;
    }

}



my $node_a = Node->new(value => 30, nextnode=> undef);
my $node_b = Node->new(value => 40, nextnode => $node_a);
my $node_c = Node->new(value => 70, nextnode => $node_b);

my $node_head = Node->new(value => 0,nextnode=> $node_c);

my $node = $node_head;

while ($node = $node->go_next ) {
     $node->printvalue;
}

print "\n";
#print 70 40 30


1 Comment

Leave a comment

About C.-Y. Fung

user-pic a beginner in programming; passionate in mathematics, distance running and gender issues; from Hong Kong. https://twitter.com/e7_87