nicht angemeldet
Hallo Leser,
ich versuche bestimmte Daten aus einem Hash auf der Platte zu speichern,
weil ich sie später wieder auslesen möchte und mit "neuen" Daten
vergleiche. Somit möchte ich evtl. Änderungen feststellen können.
Hab folgendes Skript geschrieben:
01: #!usr/bin/perl
02:
03: #use strict; --> Dafür gabs eine Fehlermeldung mit DF
04:
05: use Storable qw(nstore_fd);
06: use Fcntl qw(:DEFAULT :flock);
07:
08: my %hashWrite;
09:
10: for( my $i; $i <= 5; $i++ ) {
11: $hashWrite{"key_$i"} = "inhalt_$i";
12: }
13:
14: sysopen(DF, "datafile", O_RDWR|O_CREAT, 0666)
15: or die "Kann datafile nicht oeffnen: $!";
16: flock(DF, LOCK_EX)
17: or die "Kann datafile nicht sperren: $!";
18: nstore_fd(%hashWrite, *DF)
19: or die "Kann die Hash nicht sichern\n";
20: turncate(DF, tell(DF));
21: close(DF);
Ist ein Prog zum testen, ob das mit dem schreiben funktioniert! Nun
bekomme ich folgende Fehlermeldung:
Undefined subroutine &main::turncate called at saveTest.pl line 20.
Kann mir hier jemand erklären, was das bedeutet und mir evtl. helfen?
Danke noName