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


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

# Ellenőrizze, bejegyzés hash. Ha igen, filename tárolja a tömb

Open (INO_FNAME "temp") | | die "File doesnt létezik!" ;
Open (FNAMES, ">> fájlneveket") | | die "File doesnt létezik!" ;
while ($ rekord \u003d <INO_FNAME>) (
# Print $ record;
if ($ rekord \u003d ~ m /:/){
$ dir \u003d $ record;
# Print "ide", $ dir "d \ n";
CHOP $ dir;
CHOP $ dir;
)
# Print "ide", $ dir "dir \ n";
($inode$ fname) \u003d split ( '', $ rekord);
if ($ létezik 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 time;

--------------------
Ezzel az I get:
Használja a inicializálatlan érték concatenation (.), Vagy a string temp.pl sor 21, <INO_FNAME> line 8.
Használja a inicializálatlan érték concatenation (.), Vagy a string temp.pl sor 22, <INO_FNAME> line 8.

Van ötlete, hogy miért?
Köszönöm!

Ezek a figyelmeztetések állnak, és nem a hibákat. Ez a sor a kódot csak el:

FILE_NAME @ \u003d $ dir. $ fname;

úgy tűnik, hogy nem csinál semmit, és nem a megfelelő módon adhatja értékeket egy tömbben anway. Ehhez a pályán, és próbálja meg a hiányzó skalár érték:

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