Discussion :

[khasanouray]

Bonjour,
je souhaiterai à partir d'une liste de fichier contenus dans un répertoire, extraire une certaine information de chacun de ces dossiers et créer un nouveau répertoire qui contiendrai l'ensemble des nouveaux fichiers et de leur nouveau contenu.
Je pensais créer un tableau contenant l'ensemble des fichiers grâce à la fonction glob, puis créer le répertoire et enfin ouvrir en écriture pour chaque dossier du tableau le fichier correspondant qui contiendrait autant de fichiers qu'au départ mais ne contenant que l'information extraite de fichier de départ.
J'ai appelé mon fichier à lire $mono et je voulais créer en écriture le fichier de nom $line$mono, mais ça ne marche pas il me met comme message
print <> on closed filehandle OUTPUTat c:...

[Arioch]

Eh bien, montre nous donc un peu ton code, qu'on le décortique dans tous les sens afin de t'aider

[khasanouray]

#!/usr/bin/perl -w
use strict;
my $rub;
my $mono;
my @rub=qw/ ind posmad ci megpe interact groall ei surdo propha /;
my @mono= glob "Monographies/Toutes_les_Monos/*.xml";
foreach $rub(@rub){
my $rep="$rub";
mkdir ($rep, 0777);
foreach $mono(@mono){
open (INPUT, "<$mono");
open (OUTPUT, ">$rep/$rub$mono") ;
while (<INPUT>){
if ($_=~/<$rub>(.+)<\/$rub>/){
print OUTPUT "$1";
}
}
}
close OUTPUT;
close INPUT;
}

[khasanouray]

le problème vient de ce que je veuille nommer mon fichier en écriture en utilisant le nom du fichier de départ

[Jedai]

Tout d'abord : On ne poste pas dans ce forum, on poste dans les sous-forums, comme c'est clairement indiqué en haut de ce forum... Ton prochain message ici sera supprimé sans avertissement (à part un MP), pour celui-ci je me contente de le déplacer dans le sous-forum Langage.

Ensuite, mets ton code entre balise [ CODE ] (avec le bouton # de l'interface d'édition du forum), c'est illisible sinon.

Finalement, c'est une très mauvaise idée de faire des appels systèmes comme mkdir() ou open() sans vérifier le résultat, idiomatiquement on utilise "or die" :

Code :

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

1
2
mkdir ($rep, 0777)
  or die "Couldn't create directory $rep : $!\n";

--
Jedaï

[khasanouray]

Merci pour ces précieux conseils, ça marche tout de suite mieux avec la fonction or die.
Mon problème est résolu !