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


système de "ls-iR del-dir> temp";

# Vérifier si l'entrée dans le hachage. Si oui, de stocker le nom de fichier en réseau

open (INO_FNAME, "temp") | | die "Fichier doesnt exist!" ;
open (FNAMES, ">> les noms de fichiers") | | die "Fichier doesnt exist!" ;
while ($ record \u003d <INO_FNAME>) (
# Print $ record;
if ($ record \u003d ~ m /:/){
$ dir \u003d $ record;
# Print "ici", $ dir, "d \ n";
chop $ dir;
chop $ dir;
)
# Print "ici", $ dir, "dir \ n";
($inode, $ fname) \u003d split ( '', $ dossier);
if ($ existe FID_DBN_HT ($inode)) (
@ nom_fichier \u003d $ dir. $ fname;
print ($ dir FNAMES. $ fname, "\ n");
print ($inode, "\ T fname", $ dir. "/". $ fname, "\ n");
)
)

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

--------------------
Avec cela, je vous:
Utilisation de la valeur non initialisée dans la concaténation (.) Temp.pl ou de la ficelle à la ligne 21, <INO_FNAME> ligne 8.
Utilisation de la valeur non initialisée dans la concaténation (.) Temp.pl ou de la ficelle à la ligne 22, <INO_FNAME> ligne 8.

Aucune idée pourquoi?
Merci!

Ce sont des mises en garde, pas d'erreurs. Cette ligne dans votre code ne devrait être supprimée:

@ nom_fichier \u003d $ dir. $ fname;

elle semble ne pas faire quelque chose et ce n'est pas la bonne façon d'attribuer des valeurs à un tableau anway. Pour ce faire, d'essayer de retrouver les disparus valeur scalaire:


Je pense que l'une ou l'autre de ces scalaires est de ne pas avoir défini. Les [] sont pour vous permettre de savoir si elles sont blanches.

Ou vous pouvez simplement le switch-w shebang sur la ligne et les mises en garde ne sera pas sortie.