#! / usr / local / bin /perl -w


System "ls-iR del-dir> temp";

# Prüfen Sie, ob Eintrag in Hash. Wenn ja, speichern Dateinamen in Array

open (INO_FNAME, "temp") | | die "Datei doesnt exist!" ;
open (FNAMES, ">> Dateinamen") | | die "Datei doesnt exist!" ;
while ($ record \u003d <INO_FNAME>) (
# Print $ record;
if ($ Eintrag \u003d ~ m /:/){
$ dir \u003d $ record;
# Print "hier", $ dir, "d \ n";
chop $ dir;
chop $ dir;
)
# Print "hier", $ dir, "dir \ n";
($Inode, $ fname) \u003d split ( '', $ record);
if ($ vorhanden FID_DBN_HT ($Inode)) (
@ file_name \u003d $ dir. $ fname;
print (FNAMES $ dir. $ fname, "\ n");
print ($Inode, "\ T fname", $ dir. "/". $ fname, "\ n");
)
)

close (INO_FNAME);
close (FNAMES);
$ end \u003d Zeit;

--------------------
Mit diesem I get:
Die Verwendung von nicht initialisierten Wert in Verkettung (.) Oder String an temp.pl Linie 21, <INO_FNAME> Linie 8.
Die Verwendung von nicht initialisierten Wert in Verkettung (.) Oder String an temp.pl Linie 22, <INO_FNAME> Linie 8.

Jede Idee, warum?
Danke!

Das sind Warnungen, nicht Fehler. Diese Zeile in Ihrem Code sollte nur entfernt werden:

@ file_name \u003d $ dir. $ fname;

scheint es nicht zu tun und ihren nicht der richtige Weg, um Werte in einem Array geben. Tun Sie dies, um zu versuchen, die Spur der fehlenden skalare Wert:

($inode,$fname) = split (' ', $record);
print "[$inode] - [$fname]\n";