幫我看看這段代碼的錯(cuò)誤，謝謝

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.
這是什么問(wèn)題？難道在BerkeleyDB中不能引用數(shù)組嗎？
創(chuàng)建info.dat的語(yǔ)句：

    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 不支持多層數(shù)據(jù)結(jié)構(gòu). 你試試簡(jiǎn)單建構(gòu)的 hash 就知道了.

你可以用 storable 或 MLDBM 模塊來(lái)保存多層結(jié)構(gòu)的 hash.