0

另一个数据结构疑问。我会直截了当。这就是我所拥有的

use strict;
use warnings;
use Data::Dumper;

my $head= undef;
my $tail=\$head;

open FILE, "<datastored.txt" or die $!;

while (<FILE>){
    my $node = {
                "data" => $_ , 
                "next" => undef
            };
    $$tail=$node; 
    $tail = \${$node->{"next"}}; 
};

# #1# Print full list #
print Dumper $head;

# #2# Delete the first node and display data of next node #
$head = $head->{next};
my $value = $head->{data};

这是我得到的输出

$VAR1 = {
          'next' => \{
                        'next' => \{
                                      'next' => \{
                                                    'next' => \undef,
                                                    'data' => 'line 4'
                                                  },
                                      'data' => 'line 3
'
                                    },
                        'data' => 'line 2
'
                      },
          'data' => 'line 1
'
        };
Not a HASH reference at linkedlist.pl line 32, <FILE> line 4. **<<<< My Problem and hence my question?** 

注意 - 文件的内容datastored.txt很简单

line 1
line 2
line 3
line 4

如果我看$head最初的打印结果,它显然是一个散列中的散列等等,那么为什么删除第一个节点后数据结构的完整性受到阻碍?(请参阅输出最后一行的错误)

4

2 回答 2

3
它显然是散列中的散列,依此类推

实际上,显然不是。每个 next 都包含对哈希引用的引用,而不是对哈希的引用。注意所有的“ \”?你应该看到

$VAR1 = {
  'next' => {
    'next' => {
      'next' => {
        'next' => undef,
        'data' => 'line 4'
      },
      'data' => 'line 3'
    },
    'data' => 'line 2'
  },
  'data' => 'line 1'
};
于 2012-06-08T05:03:42.950 回答
-1

Perl 引用很棘手。转储程序输出表示法\{显示{next}字段包含对哈希引用的引用。

违规行是对tail. 尝试

$tail = \$node->{"next"}; 
于 2012-06-08T05:04:50.730 回答