home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / perl / perl_1 / Perl5001 / pl / Tests / dbm_test < prev    next >
Encoding:
Text File  |  1996-02-21  |  842 b   |  52 lines
  1. use RDBM_File;
  2. dbmopen(%array2,'db2', 0);
  3.  
  4. $i = 0;
  5. tie(%array,RDBM_File,dbname, 0);
  6.  
  7. for ('a' .. 'd') {
  8.     $array{$_} = "Value for $_";
  9.     print $i++, "\t$array{$_}\n";
  10. }
  11.  
  12.  
  13.  
  14. $i = 0;
  15. for ('aa' .. 'ad') {
  16.     $array2{$_} = "Value for $_";
  17.     print $i++, "\t$array2{$_}\n";
  18. }
  19.  
  20.  
  21. print "Entry for a\n" if  exists $array{'a'};
  22. print "Deleting entry for a\nEntry was:";
  23. print delete($array{'a'});print"\n";
  24. print "Entry for a\n" if  exists $array{'a'};
  25.  
  26. @keys = keys(%array);
  27.  
  28. foreach $key ( sort(@keys) ) {
  29.     print"$key: $array{$key}\n";
  30. }
  31.  
  32. @keys = keys(%array2);
  33.  
  34. foreach $key ( sort(@keys) ) {
  35.     print"$key: $array2{$key}\n";
  36. }
  37.  
  38. print "Clearing array2\n";
  39. %array2=();
  40. print "Now try and list it again\n";
  41.  
  42. @keys = keys(%array2);
  43.  
  44. foreach $key ( sort(@keys) ) {
  45.     print"$key: $array2{$key}\n";
  46. }
  47.  
  48. print"That's all folks\n";
  49.  
  50. dbmclose(%array2);
  51. untie(%array);
  52.