Discussion :

[apprenti doc]

Bonjour,
Je n'ai pas trouvé dans les tutoriels et FAQ d'explications sur les interclassements - dites-moi si je me trompe.
J'ai 2 fichiers de départ: déjà trié par ordre alphabétique. Je voudrais, à la fin de mon programme, n'en avoir plus qu'un contenant toutes les données des 2 autres, triées.
Comment puis-je faire?
Merci par avance pour vos réponses.

[GnuVince]

Tu peux utiliser un fichier comme un array avec le module Tie::File. Voici un script qui fait ce que tu veux.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
use strict;
use warnings;
 
use Tie::File;
 
tie my @lignes1, 'Tie::File', '1.txt' or die("Peut pas ouvrir fichier: $!");
tie my @lignes2, 'Tie::File', '2.txt' or die("Peut pas ouvrir fichier: $!");
 
push @lignes1, @lignes2;
@lignes1 = sort @lignes1;
untie @lignes1;
untie @lignes2;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
{14:38}[vince@vincent: perl/dpn]% cat 1.txt 
Allo
Ciao
{14:38}[vince@vincent: perl/dpn]% cat 2.txt 
Bonjour
Degage
{14:38}[vince@vincent: perl/dpn]% perl sort2files.pl 
{14:38}[vince@vincent: perl/dpn]% cat 1.txt 
Allo
Bonjour
Ciao
Degage
 
{14:38}[vince@vincent: perl/dpn]%

[pospos]

il existe egalement sur cpan plusieurs modules pour faire du merge sort de fichiers triés :

http://search.cpan.org/~cnandor/File-Sort-1.01/Sort.pm
http://search.cpan.org/~bremnerb/Fil...4/MergeSort.pm
http://search.cpan.org/~jmastros/Sor.../Sort/Merge.pm

[pospos]

recu en message privé:

Merci !
Mais pour l'instant je connais et ne peux utiliser que des formules basiques comme les while et les if/else. Pas même les elsif ! Et sans tableau.
Je dois me débrouiller avec ça…
Si tu as une idée, elle sera la bienvenue.

merci de repondre dans le topic, pour pouvoir avoir plus de reponses, et qu'eventuellement d'autres puissent profiter des reponses.

Si c'est un exercice que tu dois faire alors je te conseil de regarder le code des modules cités, et de tenter d'imiter leur fonctionnement en tenant compte de tes contraintes

[apprenti doc]

Merci pour la réorientation vers le topic… Je le saurai !
Pour l'adaptation, c'est pas gagné ! Mais j'y réfléchis.

[pospos]

en gros le principe est assez simple avec deux fichiers triées:

- tu ouvre tes deux fichiers en lecture et un nouveau en ecriture
- tu lis une ligne dans chaque fichier, chacune dans une variable differente, genre $l1 et l$2;
- si ($l1 lt $l2) alors tu ecris $l1 dans le nouveau fichier et tu reamplace $l1 par une nouvelle ligne lue dans le fichier 1, et ca continue...
- des que l'une des deux variables est undef apres la lecture d'une ligne ca veut dire que le fichier en question est fini, donc tu ecris l'autre variable restante puis l'ensemble de l'autre fichier dans le nouveau