Discussion :

[caramon _majere]

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 ?

Merci

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;

[6ril23]

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 :

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

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);

[caramon _majere]

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 ?

[Lolo78]

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

[caramon _majere]

Ca commence à devenir plus clair tout ca

merci

[Philou67430]

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 :

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

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 :

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

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

[caramon _majere]

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