|
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; |
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |