PERL [TRI et CONCATENATION]

Bonjour,
J'aimerai concaténer plusieurs fichiers ( dans l'ordre) en utilisant le langage PERL ?
Exemple des fichiers à concaténer :
A_1980_AB11_1001.txt
A_1980_AB11_1003.txt
A_1980_AB11_1002.txt
A_1980_2AB12_1001.txt
A_1980_AB13_1001.txt
A_1980_2AB12_1002.txt
Dans le fichier final, je dois avoir le contenu des fichiers ci-dessous ( et dans l'ordre) :
A_1980_AB11_1001.txt
A_1980_AB11_1002.txt
A_1980_AB11_1003.txt
A_1980_2AB12_1001.txt
A_1980_2AB12_1002.txt
A_1980_AB13_1001.txt

Par avance, je vous remercie pour votre aide.

Amine

Bonjour,

c'est très simple. Tu peux lire tous tes fichiers et stocker les données dans un tableau. Puis tu tries le tableau (fonction sort) et l'imprimes dans un fichier.

Citation:

---

Envoyé par Lolo78

Bonjour,

c'est très simple. Tu peux lire tous tes fichiers et stocker les données dans un tableau. Puis tu tries le tableau (fonction sort) et l'imprimes dans un fichier.

---

Merci beaucoup pour votre réponse.
Malhereusement, jen e suis pas un spécialiste du langage PERL. J'en serai reconssaisant si vous pourriez m'aider. " avec le code"

Par avance, je vous remercie.

Bonjour,
ici il s'agit de fonctions assez simples et courantes de Perl, un petit tour dans les cours Perl devrait répondre à tes questions...

Pour aider un peu, apparemment tu auras besoin de récupérer le contenu d'un fichier dans un tableau, ce qui peut s'écrire (variables déclarées avant):

Code:

---

1 2 3 4

open (FIC,"<$mon_fichier") or die "impossible d'ouvrir le fichier $mon_fichier"; @tableau = <FIC>; close FIC;

---

Ensuite il n'y a rien de plus à dire que Lolo78, un coup de fonction sort et c'est fait!

Une fois toutes les lignes dans le tableau @tableau, tu tries le tableau avec l'instruction suivante:

Code:

---

my @tableau_trie = sort { $a cmp $b } @tableau;

---

ou même plus simplement:

Code:

---

my @tableau_trie = sort @tableau;

---

car le sort fait implicitement un tri cmp (tri alphabétique).

Il ne reste plus qu'à imprimer le tableau ainsi trié:

Code:

---

print foreach (@tableau_trie);

---

Ou, si tu veux le résultat dans un fichier:

Code:

---

1 2 3

foreach my $ligne ((@tableau_trie) { print OUTFILE $ligne; }

---

Pour écrire, on peut plus simplement écrire :

Code:

---

print @tableau_trie;

---

ou

Code:

---

print OUTFILE @tableau_trie;

---

;)

Citation:

---

Envoyé par Lolo78

Une fois toutes les lignes dans le tableau @tableau, tu tries le tableau avec l'instruction suivante:

Code:

---

my @tableau_trie = sort { $a cmp $b } @tableau;

---

ou même plus simplement:

Code:

---

my @tableau_trie = sort @tableau;

---

car le sort fait implicitement un tri cmp (tri alphabétique).

Il ne reste plus qu'à imprimer le tableau ainsi trié:

Code:

---

print foreach (@tableau_trie);

---

Ou, si tu veux le résultat dans un fichier:

Code:

---

1 2 3

foreach my $ligne ((@tableau_trie) { print OUTFILE $ligne; }

---

---

Merci beaucoup pour votre aide.

Citation:

---

Envoyé par Philou67430

Pour écrire, on peut plus simplement écrire :

Code:

---

print @tableau_trie;

---

ou

Code:

---

print OUTFILE @tableau_trie;

---

;)

---

Effectivement.