ASCII-Dateien als assoziative Arrays III

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

FileDB.pm
sub DESTROY {
   my ($self) = @_;

   if ($self->{modified}) {
      my($filename) = $self->{filename};
      my($backup) = "$filename.backup";
      foreach my $file ($backup, $filename) {
         my $db = new IO::File ">$file";
         croak("cannot open $file for writing\n")
            unless defined $db;
         while (my($key, $val) = each(%{$self->{db}})) {
            print $db $val, "\n";
         }
         $db->close;
      }
      unlink($backup);
   }
}

1;

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000