Commit | Line | Data |
---|---|---|
463ee0b2 LW |
1 | #!./perl |
2 | ||
3 | # $RCSfile: dbm.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:43 $ | |
4 | ||
5 | { | |
6 | package Any_DBM_File; | |
7 | @ISA = (NDBM_File, ODBM_File, GDBM_File, SDBM_File, DB_File, DBZ_File); | |
8 | } | |
9 | { | |
10 | package XDBM_File; | |
11 | sub new { print "new @_\n"; bless {FOO => 'foo'} } | |
12 | sub fetch { print "fetch @_\n"; $_[0]->{$_[1]} } | |
13 | sub store { print "store @_\n"; $_[0]->{$_[1]} = $_[2] } | |
14 | sub delete { print "delete @_\n"; delete ${$_[0]}{$_[1]} } | |
15 | sub DESTROY { print "DESTROY @_\n"; undef %{$_[0]}; } | |
16 | } | |
17 | ||
18 | init SDBM_File; | |
19 | ||
20 | tie %h, SDBM_File, 'Op.sdbm', 0x202, 0640; | |
21 | ||
22 | $h{BAR} = 'bar'; | |
23 | $h{FOO} = 'foo'; | |
24 | #print $h{BAR}, "\n"; | |
25 | #delete $h{BAR}; | |
26 | #print $h{BAR}, "\n"; | |
27 | ||
28 | while (($key,$val) = each %h) { print "$key => $val\n"; } | |
29 | @keys = sort keys %h; | |
30 | @values = sort values %h; | |
31 | print "@keys\n@values\n"; | |
32 | ||
33 | untie %h; | |
34 |