Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Learning Exercise

by PhiRatE (Monk)
on Jul 19, 2002 at 00:28 UTC ( [id://183095] : note . print w/replies, xml ) Need Help??

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";
        }
    }