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


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

# Verifique se entrada em hash. Se sim, guarde o ficheiro no array

open (INO_FNAME, "temp") | | die "Arquivo doesnt existe!" ;
open (FNAMES, ">> arquivo") | | die "Arquivo doesnt existe!" ;
while ($ registro \u003d <INO_FNAME>) (
# Print $ registro;
if ($ registro \u003d ~ m /:/){
$ dir \u003d $ registro;
# Print "aqui", $ dir, "d \ n";
chop $ dir;
chop $ dir;
)
# Print "aqui", $ dir, "dir \ n";
($nodo, $ fname) \u003d split ( '', $ registro);
if ($ existe FID_DBN_HT ($nodo)) (
@ nome_arquivo \u003d $ dir. $ fname;
print (FNAMES $ dir. $ fname, "\ n");
print ($nodo, "\ T fname", $ dir. "/". $ fname, "\ n");
)
)

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

--------------------
Com isto quero chegar:
Utilização do valor em uninitialized concatenation (.) Ou string em temp.pl linha 21, <INO_FNAME> linha 8.
Utilização do valor em uninitialized concatenation (.) Ou string em temp.pl linha 22, <INO_FNAME> linha 8.

Qualquer ideia porquê?
Obrigado!