problème ouverture filehandle source

Bonjour,

j'essaye de faire un script pour passer plusieurs fichiers en arguments pour qu'ils soit modifié et le tout mis dans un seul fichier.

les fichiers sont bien lu et on voit la modification défiler à l'écran mais j'ai toujours un message comme quoi il ne peut pas ouvrir la variable source pour le filehandle.

Le fait d'avoir plusieurs arguments poserait problème? Une idée ? 8O

Merci :ccool:

use strict;
use warnings;
use feature 'say';


my @array = <>; #lis le contenue des arguments et les place dans @array

my $source = join " ", @array; #concatène les listes reçu précédemment pour les mettres dans un seul fichier variable

my $fichier_dst = "fichier_multiple.txt"; #chemin et nom du fichier de sortie suite substitution

#Ouvre le fichier source et le place dans un filehandle pour traitement.
open (my $fh_src, '<', $source) or die "impossible d'ouvrir le fichier '$source' en lecture";

#ouvre un filehandle pour le fichier destination pour traitement à venir.
open (my $fh_dst, '>', $fichier_dst) or die "impossible d'ouvrir le fichier '$fichier_dst' en écriture";

while (my $ligne = <$fh_src>) #Obligé de déclarer une nouvelle varialbe (ici $ligne) qui fera partie que de la boucle while donc il faut lui transmettre le contenue de la variale $fh_src
{
$ligne =~ s/,/;/g; # remplace les virgules par point virgule dans le fichier lu.
say $ligne; # vérifie la substitution en affichant la variable après modification.
print $fh_dst $ligne; # met le résultat de $ligne dans la variable $fh_dst qui sera dans le fichier de copie.
}

close $fh_src;
close $fh_dst;

Je suis pas sûr d'avoir compris ce que tu veux
Si tu souhaites juste ouvrir, traiter les lignes des fichiers donnés en argument et les mettre dans un fichier de sortie alors tu peux faire comme ça:

Code:

---

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

my $fichier_dst = "fichier_multiple.txt"; open (FH_OUT, '>', $fichier_dst);   foreach my $a (@ARGV){ #Les arguments sont deja sous la forme que tu souhaites open(FH_IN, $a); while (<FH_IN>){ my $ligne = $_; $ligne =~ s/,/;/g; print FH_OUT $ligne; } close(FH_IN); } close(FH_OUT);

---

Merci ca fonctionne du premier coup ...tu avais bien compris l'idée ;)

Ca va donner matière à regarder et analyse.

En fait ton script prend le premier argument avec foreach, le lis, le traite avec while et une fois finis passe au second argument, etc ?

l'idée de concaténer les fichiers n'est pas bonne en soit dans ce cas la ?

Le point important est que les arguments passés au programme figurent dans le tableau @ARGV.

Ca commence à devenir plus clair tout ca :D

merci :ccool:

Pour faire plus simple, et dans l'esprit du script initialement posté, tu peux utiliser l'opérateur <> qui lit l'ensemble des lignes de tous les fichiers passés en argument (ceux dont le nom se trouve aussi dans @ARGV), pour traiter toutes ces lignes. Le script de 6ril23 devient donc :

Code:

---

1 2 3 4 5 6 7 8 9

my $fichier_dst = "fichier_multiple.txt"; open (FH_OUT, '>', $fichier_dst);   while (<>){ my $ligne = $_; $ligne =~ s/,/;/g; print FH_OUT $ligne; } close(FH_OUT);

---

Ce qui peut aussi se transformer facilement en uniligne :

Code:

---

perl -pe 's/,/;/g' fichier_in*.txt >fichier_out.txt

---

Effectivement au début je voulais faire simple en capturant tout dans <> et traiter ligne par ligne mais ca ne marchait pas.

j'ai du compliqué inutilement en ouvrant un filehandle source.

ton exemple est plus simple et fonctionne aussi.

C'est à se demander pourquoi complexifier avec @ARGV au final