problème avec open

Bonjour, :D

Dans un programme principal J'ai une routine comme ca:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

sub routine {   print "début\n"; open fichier, "< " . $_[0] . ".ft"; { print "fin\n"; local $/; $contenu=<fichier>; }   ....   }

---

et quand je lance le programme principal il m'affiche "début" mais pas "fin" :?

Donc j'en ai déduit que ca venait du open (ca bloque sur open), mais je vois pas pourquoi vu que le fichier passé en paramètre existe bien (j'ai essayé avec or die)...:?

avez vous une idée ?

merci d'avance, ;)

Denis

A quoi te servent les accolades ??? open n'est pas une instruction qui ouvre un bloc ;) Quand tu utilises un open, il faut toujours tester si l'ouverture a échoué ou pas !!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

sub routine {   print "début\n"; my $filename = $_[0] . '.ft'; open(fichier, '<', $filename) || die("impossible d'ouvrir $filename en lecture"); print "fin\n"; local $/; $contenu=<fichier>;   ....   }

---

salut marneus,

Selon perldoc perlvar:

Code:

---

1 2 3 4 5 6

open fichier, "< fichier.txt"; { local $/; # active le mode "slurp" $contenu=<fichier>; } close fichier;

---

j'ai essayé avec

open fichier, "< " . $_[0] . ".ft" or die "le fichier est introuvable !";


et ca ne m'affiche rien..

je vais essayer d'enlever les accolade, mais c'est une sousroutine ca doit venir du programme principal..

@+

non sans les accolade ca ne marche toujours pas :pleure: