le handle de fichier est il parametrable?

Salut

je voudrais parametrer l´ouverture pour lecture de certains fichiers, et cela de cette maniere:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

open (FIC, "<repertoire/docufinal.html") || die "error: cannot read file";     foreach my $value(@file){ $cpt=$cpt+1; open (FILE$cpt, "<repertoire/docu$cptinitial.html") || die "error: cannot read file";   @file$cpt=<FILE$cpt>;   print FIC @file$cpt;   }   close(FIC);   $cpt=0; foreach my $value(@file){ $cpt=$cpt+1; close(FILE$cpt); }

---

le nombre de fichiers (docu1initial.html ,docu2initial.html ...) variant, j peux fixer le nombre ds le programme, foit tout d´ábord savoir combien sont present ds le repertoire courant et les mettre ds un tableau (@file), ensuite parcourir le tableau pr traiter 1 a 1 ($value(@file))

Mais j´ai ces messages d´erreur a l´execution:

1-Scalar found where operator expected at ./prog.pl line 1409 near
@file$cpt

(Missing operator before $cpt?)

2-Missing comma after the first argument to open function at ./prog.pl line 1407, near " "<repertoire/docu$cptinitial.html") "

je ne vois pas les pieges , quelqu´un pourrai aider?
a bientot

Bonjour,

La concaténation en Perl se fait avec l'opérateur point (.). Créé d'abord des variables qui cancatène ce que tu veux (donc le nom de ton handle et celui de ton path) puis utilise ces variable avec open ;)

Citation:

---

Envoyé par Woufeil

Bonjour,

La concaténation en Perl se fait avec l'opérateur point (.). Créé d'abord des variables qui cancatène ce que tu veux (donc le nom de ton handle et celui de ton path) puis utilise ces variable avec open ;)

---

Tu veux utiliser des références symboliques ? Très mauvaise idée, qui engendre de gros problèmes pour la maintenance par la suite.

Si tu voulais vraiment ouvrir plusieurs fichiers, je te conseillerais de mettre les handles dans un tableau :

Code:

---

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

#! /usr/bin/perl use strict; use warnings;   my @files = ("fichier1", "fichier2"); my @file_handles;   foreach my $file (@files) { open my $fh, '<', $file or die "Can't read $file : $!\n";   push @file_handles, $fh; }

---

Mais à mon avis pour ce que tu veux faire (et ce n'est pas clair du tout...), tu n'as besoin que d'ouvrir un seul fichier à la fois, soit quelque chose comme ça :

Code:

---

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

#! /usr/bin/perl use strict; use warnings;   my @files = ("fichier1", "fichier2"); my @file_handles;   foreach my $file (@files) { open my $fh, '<', $file or die "Can't read $file : $!\n";   # opérations sur $fh   close $fh; }

---

--
Jedaï