在Perl中创建链表结构

# 定义链表节点类
package Node {
    sub new {
        my ($class, $data) = @_;
        my $self = {
            data => $data,
            next => undef,
        };
        bless $self, $class;
        return $self;
    }
}

# 创建链表
my $head = Node->new("Node 1");
my $node2 = Node->new("Node 2");
my $node3 = Node->new("Node 3");

# 连接链表节点
$head->{next} = $node2;
$node2->{next} = $node3;

# 遍历链表
my $current = $head;
while ($current) {
    print $current->{data} . "\n";
    $current = $current->{next};
}