Discussion :

[lobiman]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Jedai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï