Help for this page

Select Code to Download

Select or download this
```
print ( $#keys + 1 ) . "\n";
```

Select or download this

my $db  = tie my %hash, 'BerkeleyDB::Btree',
    -Filename => 'data.dbm';
my @keys = keys %hash;
print 0+@keys, "\n";