Help for this page

Select Code to Download


  1. or download this
    sub list_entries {
    my ($filename) = @_;
...
sub update_entry {
    my ($filename, $key, %data) = @_;
    ....
  2. or download this
    package MyDatabase;

...
    delete $self->{'data'}{$key};
    $self->write_entries();
}
  3. or download this
    my $db = new MyDatabase();

...
        print "$field -> ".$entries{$_}{$field}."\n";
    }
}