4

我编写了以下模块，但不确定如何引用“last”和“head”节点。以及将下一个节点的地址存储在前一个节点的“{nextNode}”中。

我试图在存储类时保存它的引用，但后来它抱怨：“不是 List.pm 的 HASH 引用”；我明白为什么，但不确定语法会如何。

如果我取消引用 $head 和 $last ($$last->{nextNode} = \$class) 那么我认为它使用的是我的班级的实际名称；列出而不是像我想要的以前的对象。

package List;

my $head = undef;
my $last = undef;

sub new {
    my $class = shift;

    # init the head of the list
    if ($head == undef) {
    $head = \$class;
    print "updated head to:$head", "\n";
    }

    $last = \$class;
    $last->{nextNode} = \$class; # update previous node to point on this new one    

    print "updated last to:$last", "\n";
    my $self = {};
    $self->{value} = shift;    
    $self->{nextNode} = ""; # reset next to nothing since this node is last

    return bless $self, $class;
}

多谢你们

4

3 回答 3

6

您应该在$self任何地方存储而不是\$class. 存储 $class 只是存储类的名称，而不是对象本身。

另外，因为$self->{nextNode}我会存储一个undef而不是一个空白字符串。或者更好的是，根本不创建它并exists在检查它是否存在时使用。

于 2012-10-26T13:43:35.797 回答
3

你想多了。如果您为列表使用数组而不是哈希，则无需担心head和last。数组的头是$array[0]，最后一个成员是$array[-1]。简单易做。

这是定义列表的快速标准类定义。我只定义了一个构造函数（新的子例程）和一个方法（列表）。

package Local::List;

sub new {
   my $class = shift;

   my $self = {};
   bless $self, $class;
   $self->list([]);
}

sub list {
   my $self = shift;
   my $list_ref = shift;

   if (ref $list_ref ne "ARRAY) {
       return;
   }
   if (defined $list_ref) {
       $self->{LIST} = $list_ref;
   }
   if wantarray {
      return $self->{LIST};
   }
}

第一件事：使用其他人使用的相同标准名称。用于构造函数new。当我尝试查看有关如何使用您的类的文档时，我可以搜索new一词并知道这就是我创建类对象的方式。此外，使用变量名和. 这就是其他人所做的，所以很容易知道发生了什么。$class$self

请注意，在我的new子例程中，传递的第一项是类的名称，而传递给我的其他子例程的第一项是对我的类对象的引用（即$self）。这可能是关于类的最难理解的事情。

请注意new，我立即创建我的$self并祝福它。这样，我可以调用我的其他子例程（我的方法）来为我进行设置。这样，我的构造函数不知道我的类的结构。这有很多优点：

  • 当（不是如果）我修改我的类时，我不必修改构造函数。
  • 我的构造函数总是与我的所有方法同步。
  • 当我开始定义类时，我不必知道我的类对象的结构。我可以开始编写我的课程，而不必担心所有关于它如何工作的肮脏细节。

请注意，list子例程（或方法）可以设置列表或返回列表。如果您使用相同的子例程来设置或获取值，会容易得多。同样在您的方法子例程中，当您的方法函数返回错误时，请使用空白返回。否则，总是返回一些东西。这使得测试方法是否失败变得容易。

让我们看看您可能想要的其他一些方法。让我们拥有所有四个标准列表函数：

  • 推
  • 流行音乐
  • 转移
  • 不移位

这是一个例子：

sub push {
    my $self = shift;
    my $member = shift;

    if (not defined $member) {
        return;
    }

    my $list_ref = $self->list;
    my $return = push @{ $list_ref }, $member;
    $self->list($list_ref);

    return $return;
}

哇，这很简单。请注意，pop不知道我的班级是什么样的。它使用该list方法来检索列表引用。然后它使用内置push方法将成员推送到列表中。我保存该返回值，这就是我将返回的值。我什至不确定push返回的是什么。我所知道的是，如果 push 成功，它会返回一些东西。（是的，我知道它返回列表中的项目数）。

其他三个功能大致相同。这里还有一些：

  • 当前的
  • 拼接
  • 下一个
  • 以前的
  • 头
  • 最后的

您需要为current做的就是存储当前值。使用相同的函数来设置和获取值。请注意，我的list方法或我的push方法，或我的new构造函数知道或关心您如何存储它。next我们的和previous方法也不行。他们需要做的就是增加或减少 的值并使用方法子例程current将其存储回来：current

sub next {
   my $self = shift

   my @list = $self->list;  #Returns a list;
   my $current = $self->current;
   my $list_size = $#list;

   if ($current eq $list_size) {
      return;   #Can't return a value after the end of the list!
   }

   $current++;  #Increment the value;
   my $value = $list[$current];  #I'll return this
   $self->current($current) #Store the new current
   return $value;
}

而且，现在是您问题的基础：获取列表的最后一个值和头值。这是最后一个

sub last {
   my $self = shift;

   my $list_ref = $self->list;
   return ${ $list_ref }[-1];
}

快速复制和粘贴会让我头疼：

sub head {
   my $self = shift;

   my $list_ref = $self->list;
   return ${ $list_ref }[0];
}

就是这样！你所做的一切担心都是徒劳的。

对不起，很长的帖子。我只是想强调 Perl 中的面向对象编程并不是那么棘手，只要您遵循一些简单的指导原则。

（简单？use Moose;不，我说简单！）。;-)

于 2012-10-26T18:23:47.523 回答
0

我只想发布我的最终工作版本以供记录和您的反馈/评论。再次感谢！！

package List;

my $head = undef;
my $last = undef;

sub new {
    my ($class, $val) = @_;
    my $self = {};

    # init the head of the list
    if (!defined $head) {
    $head = $self;
    print "updated the head of the list ($head)" . "\n";
    }
    else {
    $last->{nextNode} = $self; # update previous node to point on this new one
    }

    $last = $self; # this object is now the last one

    $self->{value} = $val; # store the value
    $self->{nextNode} = undef; # reset next to nothing since this node is last

    return bless $self, $class;
}

sub setVal {
    my ($class, $val) = @_;
    $class->{value} = $val;
}

sub getVal {
    my $class = shift;
    print $class->{value};
}

sub getNext {
    my $class = shift;
    return $class->{nextNode};
}

# return true if this is the last node, otherwise false.
sub isLast {
    my $class = shift;
    return 1 if !defined $class->{nextNode};
    return 0;
}

sub getLast {
    return $last;
}

sub getHead {
    return $head;
}

# looping through all the list and printing the values
sub showList {
    my $node = $head; # set temp node to the head

    while ( !$node->isLast() ) {
    print $node->{value} . "\n";
    $node = $node->{nextNode};
    }

    # printing last value. (should be defined but I check it just in case)
    print $node->{value} . " (last)\n" if defined $node->{value};
}

1;

脚本：

my $n0 = new List(4);
my $n1 = new List(8);
my $n2 = new List(9);
my $n3 = new List(3);
my $n4 = new List(1);
my $n5 = new List(0);
my $n6 = new List(5);
print "\nShow list: \n";
$n2->showList(); # any object will print the list
于 2012-10-28T00:27:00.063 回答