[Perl] "Unitialized value" avec Open (HA

Tu veux afficher ton code s'il te plaît.

if (open(FICHIERIN, "C:\\FichierFantome") == 0) 

unless (open FICHIERIN, "C:\FichierFantome") {
  print "Fichier inexistant.";
}
else
{
  close FICHIERIN;
  print "Le fichier existe."
} 

open FIC, "C:\le_fichier.txt"
                 or die "Impossible d'ouvrir le fichier : $!\n";
# fermeture de prog si le fichier n'est pas accessible.
# traitement de fichier
while ( <FIC> ) { print }
close FIC;

De toute façon les avertissements nous disent qu'il y a quelque chose qui ne vas pas.
C'est pour ça que j'aimerai bien voir ton code.

Par exemple le pragma use strict installe 3 restrictions

use strict "vars" - les variables doivent être prédéclarées
use strict "refs" - les références symboliques sont interdites
use strict "subs" - les chaînes brutes doivent être entre guillemets

donc

use strict; # installe toutes les restrictions

no strict "vars"; # rennonce à la restriction concernant les ref symboliques

Pour les messages d'avertissement on peut utiliser

use warnings;

qui permet un contrôle plus souple que l'option -w

Merci beaucoup.

J'ai remplacé le if litigieux par

if (! defined (open(FICHIERIN, "C:\\Perl\\MesProgrPerl\\Debug.pl")) )

et maintenant, il n'y a plus d'avertissement (et le résultat est conforme aux attentes).

Curieusement, même quand j'avais écrit le if comme si undef était la même chose que la valeur nulle, le résultat était aussi conforme aux attentes, à l'avertissement près.

Donc l'avertissement provenait sûrement de ce que vous avez diagnostiqué.

Je n'aurais pas d'objection à vous montrer le code réel qui a provoqué l'avertissement, mais puisque mes nouveaux essais montrent que le problème était bien celui que vous avez vu, c'est peut-être inutile.

Cette instruction fait partie d'une longue routine qui fait intervenir Perl Tk et de nombreuses routines définies par moi.

Mais je répète que je n'ai pas d'objections à l'afficher si vous me dites que vous trouvez vraiment que cela en vaut la peine.

Vous pourrez me dire s'il y a d'autres " mauvaises pratiques "...

En tout cas, grand merci.

Re,

la condition d'une structure if doit être une valeur booléene que Perl ne possède pas ( il n'a pas besoin ).

Voilà quelque règles simple pour comprendre comment Perl decide si une valeur et vraie ou fausse ( true ou false )

1. la valeur undef et toujours fausse

2. Zéro est faux

3. la chaîne vide est fausse

4. la chaîne '0' est fausse

5. une référence est toujours vraie

En bref undef,0,'0' et ' ' sont valeur fausse.

En ce qui concerne undef, quand on utilise ce "rien" ( mieux que nulle ) comme quelque chose numérique il vaut 0 et comme une chaîne il vaut la chaîne vide.

Re,

concernant ton code je n'ai pas besoin si ton problème est résolu.

Vous pourrez me dire s'il y a d'autres " mauvaises pratiques "...
Je ne sais pas les pratiques que tu utilises si je ne vois pas ton code.

Paradoxal, mais c'est perlien.

Je ne sais pas si tu connais ce site. http://www.perl-gratuit.com/traduction/index.html
Tu trouveras plein des choses dédans.

Bonne soirée.

Commentcamarche n'a pas l'air d'une mauvaise adresse non plus

Je n'ai même pas pense que ccm est mauvais, si oui je n'étais pas là, seulement que sur le site que je t'ai donné tu as la documentation de Perl en français.

En ce qui concerne les pratiques, l'experience et la pratique elle même t'apprendra plus que moi. A mon tour j'apprends tous les jours et j'essaie de corriger mes erreurs et mes mauvaises pratiques et mon français.