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


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

# Comprobar si la entrada en el hash. En caso afirmativo, el nombre de archivo en el almacén de serie

abierto (INO_FNAME, "Temp") | | die "Archivo no existe!" ;
abierto (FNAMES, ">> nombres de archivo") | | die "Archivo no existe!" ;
while ($ record \u003d <INO_FNAME>) (
# Print $ registro;
if ($ registro \u003d ~ m /:/){
$ dir \u003d $ registro;
# Print "aquí", $ dir, "d \ n";
chop $ dir;
chop $ dir;
)
# Print "aquí", $ dir ", dir \ n";
($inodo, $ fname) \u003d split ( '', $ registro);
if ($ existe ($ FID_DBN_HTinodo)) (
@ file_name \u003d $ dir. $ fname;
print ($ FNAMES dir. $ fname, "\ n");
print ($inodo, "\ T fname", $ dir. "/". $ fname, "\ n");
)
)

estrecha (INO_FNAME);
estrecha (FNAMES);
final \u003d $ tiempo;

--------------------
Con esta me:
De valor que no se uso en la concatenación (.) O cadena temp.pl en la línea 21, <INO_FNAME> línea 8.
De valor que no se uso en la concatenación (.) O una cadena en línea temp.pl 22, <INO_FNAME> línea 8.

Cualquier idea por qué?
Gracias!

Estas son las advertencias, no errores. Esta línea en su código deben ser eliminados:

@ file_name \u003d $ dir. $ fname;

parece no estar haciendo nada y no es la forma correcta de asignar valores a un array anway. Haga esto para tratar de localizar los desaparecidos valor escalar:


Creo que uno o ambos de los escalares no está definido. El [] son para hacerle saber si están en blanco.

O usted podría abandonar la-w en el asunto de la línea y las advertencias no serán de salida.