帮我看看这段代码的错误，谢谢

passion

Filename: accessDB.pl

      1 #!/usr/local/bin/perl -w
      2 use BerkeleyDB;
      3
      4 #my @testarray = ("aa","bb","cc","dd";
      5 tie %hash,"BerkeleyDB::Hash",
      6         -Filename =>; "info.dat"
      7 or die $!;
      8
      9 #$hash{"testArray"} = \@testarray;
     10 print "Key exists...\n" if (exists $hash{"testArray"});
     11 print $hash{"testArray"}[0];
     12 #my $i=0;
     13 #while ($hash{"listSignal"}[$i])
     14 #{
     15 #   print $hash{"listSignal"}[$i]."\n";
     16 #   $i++;
     17 #}
     18 untie %hash;
     19 exit;

$perl accessDB.pl
Key exists...
Use of uninitialized value in print at ./accessDB.pl line 11.
这是什么问题？难道在BerkeleyDB中不能引用数组吗？
创建info.dat的语句：

    1 #!/usr/local/bin/perl -w
      2 use BerkeleyDB;
      3
      4 my @testarray = ("aa","bb","cc","dd";
      5 tie %hash,"BerkeleyDB::Hash",
      6         -Filename =>; "info.dat",
      7         -Flags =>; DB_CREATE
      8 or die $!;
      9
     10 $hash{"testArray"} = \@testarray;
     11 #print "Key exists...\n" if (exists $hash{"testArray"});
     12 #print $hash{"testArray"}[0];
     13 #my $i=0;
     14 #while ($hash{"listSignal"}[$i])
     15 #{
     16 #   print $hash{"listSignal"}[$i]."\n";
     17 #   $i++;
     18 #}
     19 untie %hash;
     20 exit;

Qiang

我猜是 BerkeleyDB 不支持多层数据结构. 你试试简单建构的 hash 就知道了.

你可以用 storable 或 MLDBM 模块来保存多层结构的 hash.