Discussion :

[Amine7592]

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

[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.

[Amine7592]

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.

[mokochan]

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 :

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

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!

[Lolo78]

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

Code :

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

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

ou même plus simplement:

Code :

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

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 :

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

print foreach (@tableau_trie);

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

Code :

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

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

[Philou67430]

Pour écrire, on peut plus simplement écrire :

Code :

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

print @tableau_trie;

ou

Code :

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

print OUTFILE @tableau_trie;

[Amine7592]

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

Code :

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

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

ou même plus simplement:

Code :

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

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 :

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

print foreach (@tableau_trie);

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

Code :

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

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

Merci beaucoup pour votre aide.