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


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

# Sjekk om oppføring i nummerverdien. Hvis ja, store filnavn i array

åpen (INO_FNAME, "Temp") | | die "Fil ikke eksisterer!" ;
åpen (FNAMES, ">> filnavn") | | die "Fil ikke eksisterer!" ;
while ($ posten \u003d <INO_FNAME>) (
# Print $ posten;
if ($ posten \u003d ~ m /:/){
$ dir \u003d $ posten;
# Print "her", $ dir, "d \ n";
hogge $ dir;
hogge $ dir;
)
# Print "her", $ dir "dir \ n";
($inode, $ fname) \u003d split ( '', $ post);
if (eksisterer $ FID_DBN_HT ($inode)) (
@ filnavn \u003d $ dir. $ fname;
print (FNAMES $ dir. $ fname, "\ n");
print ($inode, "\ T fname", $ dir. "/". $ fname, "\ n");
)
)

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

--------------------
Med dette får jeg:
Bruk av uninitialized verdi i concatenation (.) Eller streng på temp.pl linje 21, <INO_FNAME> linje 8.
Bruk av uninitialized verdi i concatenation (.) Eller streng på temp.pl linje 22, <INO_FNAME> linje 8.

Aner du hvorfor?
Takk!