Eine Textdatei als assoziatives Array VI

TextFileDB.pm

sub CLEAR { my ($self) = @_; $self->{records} = {}; $self->{changes}++; } sub EXISTS { my ($self, $key) = @_; return exists $self->{records}->{$key}; } sub FIRSTKEY { my ($self) = @_; # reset the previous iteration, if any keys %{$self->{records}}; # return the first key return each %{$self->{records}}; } sub NEXTKEY { my ($self, $lastkey) = @_; return each %{$self->{records}}; }