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


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

# Controleer of vermelding in hasj. Zo ja, op te slaan bestandsnaam in array

open (INO_FNAME, "temp") | | die "Bestand doesnt bestaat!" ;
open (FNAMES, ">> bestandsnamen") | | die "Bestand doesnt bestaat!" ;
while ($ record \u003d <INO_FNAME>) (
# Print $ record;
if ($ record \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 ($ bestaat FID_DBN_HT ($inode)) (
@ bestandsnaam \u003d $ dir. $ fname;
print (FNAMES $ dir. $ fname, "\ n");
print ($inode, "\ T fname", $ dir. "/". $ fname, "\ n");
)
)

close (INO_FNAME);
close (FNAMES);
$ einde \u003d tijd;

--------------------
Met deze krijg ik:
Gebruik van geïnitialiseerde waarde concatenatie (.) Of string temp.pl op lijn 21, <INO_FNAME> lijn 8.
Gebruik van geïnitialiseerde waarde concatenatie (.) Of string temp.pl op lijn 22, <INO_FNAME> lijn 8.

Enig idee waarom?
Bedankt!