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


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

# Kolla om inträde i hash. Om ja, lagrar filnamn i array

öppen (INO_FNAME, "temp") | | die "File doesnt finns!" ;
öppen (FNAMES, ">> filnamn") | | die "File doesnt finns!" ;
while ($ post \u003d <INO_FNAME>) (
# Print $ post;
if ($ post \u003d ~ m /:/){
$ dir \u003d $ post;
# Print "här", $ dir "d \ n";
hacka $ dir;
hacka $ dir;
)
# Print "här", $ dir "dir \ n";
($inode, $ fname) \u003d split ( '', $ post);
if (finns $ FID_DBN_HT ($inode)) (
@ filnamn \u003d $ dir. $ fname;
print (FNAMES $ dir. $ fname, "\ n");
print ($inode"\ T fname", $ dir. "/". $ fname, "\ n");
)
)

nära (INO_FNAME);
nära (FNAMES);
$ slut \u003d Temne;

--------------------
Med detta får jag:
Användning av avinitieras värde sammansättning (.) Eller string på temp.pl linje 21, <INO_FNAME> linje 8.
Användning av avinitieras värde sammansättning (.) Eller string på temp.pl linje 22, <INO_FNAME> linje 8.

Någon aning om varför?
Tack!