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


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

# Kontroller, om optagelse i hash. Hvis ja, gemme filnavn i array

åben (INO_FNAME, "temp") | | die "File doesnt eksisterer!" ;
åben (FNAMES, ">> arkivnavne") | | die "File doesnt eksisterer!" ;
while ($ record \u003d <INO_FNAME>) (
# Print $ record;
if ($ record \u003d ~ m /:/){
$ dir \u003d $ record;
# Print "her", $ dir "d \ n";
CHOP $ dir;
CHOP $ dir;
)
# Print "her", $ dir "dir \ n";
($inode, $ fname) \u003d split ( '', $ record);
if (findes $ FID_DBN_HT ($inode)) (
@ filenavn \u003d $ dir. $ fname;
Print (FNAMES $ dir. $ fname, "\ n");
print ($inode, "\ T fname", $ dir. "/". $ fname, "\ n");
)
)

tæt (INO_FNAME);
tæt (FNAMES);
$ udgangen \u003d tid;

--------------------
Med dette jeg får:
Brug af uninitialized værdi i concatenation (.) Eller strengen på temp.pl linje 21, <INO_FNAME> linje 8.
Brug af uninitialized værdi i concatenation (.) Eller strengen på temp.pl linje 22, <INO_FNAME> linje 8.

Enhver idé hvorfor?
Tak!

Det er advarsler, ikke fejl. Denne linje i din kode vil blot blive fjernet:

@ filenavn \u003d $ dir. $ fname;

det ser ud til at ikke gøre noget, og det er ikke den rigtige måde at tildele værdier til et array anway. Gøre dette for at forsøge at opspore de forsvundne skalær værdi:


Jeg tror den ene eller begge af disse skalarer er ikke at få defineret. [Den] er at fortælle dig, hvis de er tomme.

Eller du kan bare slip-w tænder molevitten linje og advarsler ikke bliver output.