concaténer/fusioner deux fichiers text en perl

Bonjour,

J'ai besoin de fusionner deux fichiers texte (fichier A et fichier B) dans mon programme perl.


Pour l'instant je procède de la facon suivante :

Code:

---

1 2 3 4 5 6 7

my fichier_A="/home/user/fichierA.txt"; my fichier_B="/home/user/fichierB.txt"; my fichier_C="/home/user/fichierC.txt";   system ("cat $fichier_A $fichier_B > $fichier_C");

---

Y'a a t'il une facon de faire cela à partir de fonctions perl et non à partir de binaires bash comme je le fais?
Comme ca mon code serait portable sur windows...

merci :ccool:

un print OUT $_ en lisant chaque fichier, une concaténation de tableaux avec toutes les lignes (gare à la mémoire :aie:), directement depuis la ligne de commande, ...

il y a plusieurs façons de faire, à toi de voir ce que tu veux !

Citation:

---

Envoyé par leon1983

Bonjour,

J'ai besoin de fusionner deux fichiers texte (fichier A et fichier B) dans mon programme perl.


Pour l'instant je procède de la facon suivante :

Code:

---

1 2 3 4 5 6 7

my fichier_A="/home/user/fichierA.txt"; my fichier_B="/home/user/fichierB.txt"; my fichier_C="/home/user/fichierC.txt";   system ("cat $fichier_A $fichier_B > $fichier_C");

---

Y'a a t'il une facon de faire cela à partir de fonctions perl et non à partir de binaires bash comme je le fais?
Comme ca mon code serait portable sur windows...

merci :ccool:

---

Code:

---

1 2 3 4 5 6 7 8 9 10

{ open my $out, ">", $fichier_C or die "impossible d'ouvrir $fichier_C en écriture: $! ($^E)"; { local @ARGV = ($fichier_A, $fichier_B); while (<>) { print $out $_ } } close $out or die "erreur d'écriture sur $fichier_C: $! ($^E)"; }

---

Quelques explications sur local @ARGV ici, et sur $^E ici (utile sous Windows).

Pas mal du tout l'utilisation de local @ARGV pour lire un ou plusieurs fichiers, l'idée ne m'était jamais venue. Mais je ne l'utiliserais que pour des petits scripts utilitaires, pas pour de vrais programmes pour lesquels je préfère tester que l'ouverture du fichier se fait correctement et obtenir, le cas échéant, un message d'erreur explicite. +1.

Citation:

---

Envoyé par Lolo78

Pas mal du tout l'utilisation de local @ARGV pour lire un ou plusieurs fichiers, l'idée ne m'était jamais venue. Mais je ne l'utiliserais que pour des petits scripts utilitaires, pas pour de vrais programmes pour lesquels je préfère tester que l'ouverture du fichier se fait correctement et obtenir, le cas échéant, un message d'erreur explicite. +1.

---

Merci :) En fait ça génère systématiquement un message d'erreur explicite:

Code:

---

1 2 3

Taisha:~/tttmp/localargv $ perl -e '<>' foobar Can't open foobar: No such file or directory at -e line 1. Taisha:~/tttmp/localargv $

---

Mais effectivement ce n'est qu'un warning:

Code:

---

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

Taisha:~/tttmp/localargv $ perl -e 'print while <>' A B C D Can't open C: No such file or directory at -e line 1, <> line 2. A B D Taisha:~/tttmp/localargv $ cat A A Taisha:~/tttmp/localargv $ cat B B Taisha:~/tttmp/localargv $ cat D D Taisha:~/tttmp/localargv $

---

donc si tu veux trapper l'erreur il faut jouer avec $SIG{__WARN__} et l'intérêt devient moins évident... Mais ça reste pratique pour travailler sur un nombre quelconque de fichiers d'entrée.

Ben, j'ai d'un côté de gros programmes de production, que je veux écrire dans les règles de l'art (en particulier il faut qu'ils s'arrêtent par exemple s'ils ne trouvent pas un fichier). D'un autre côté, comme je travaille sur de très gros volumes de données (gigaoctets et dizaines de gigaoctets, parfois même plus), quand j'ai une anomalie (par exemple des compteurs que ne se réconcilient pas comme il faudrait), ma seule solution pour investiguer est souvent de lancer de petits scripts Perl ou des unilignes sur les fichiers résultats ou en entrée pour essayer de trouver l'origine du problème (présence par exemple de doublons, de lignes vides, etc. dans les fichiers en entrée). Pour ce genre d'activité, faire un open dans les règles de l'art n'est pas forcément nécessaire: je verrai bien le problème si j'ai fait une faute de frappe dans le nom d'un fichier que je veux analyser. Dans ce cas, l'utilisation d'un local @ARGV peut me faire gagner du temps.