|
|
|
|
Est-ce que dans le fichier 1 toutes les lignes sont différentes ou peut-il y avoir des lignes identiques ? |
Oui, toutes les lignes sont identiques dans les deux fichiers |
Salut,
je n'ai pas testé j'ai supposé que le délimitéur de champs et un espace #!/usr/bin/perl
use strict;use warnings;
open LIRE,"fic2.txt"
or die "E/S : $!\n";
while( my $l = <LIRE>){
print if grep { /${\( (split " ",$l)[0] )}/ } `cat fic1.txt`;
}
lami20j |
Voici le test (j'ai crée 2 fichiers bidon 29 millions lignes et 40 millions lignes) - j'ai chronométré - 41 secondes
http://cjoint.com/?fsqEIjdcSG lami20j |
Je suis impressioné. Mais chez moi, cela ne marche pas. J'ai un message "Out of memory" avec 16Go de Ram!
Au fait, je ne connais pas trop le perl. Mon séparateur est le pipe. C'est bien cela alors? #!/usr/bin/perl
open LIRE,"SneAndHrncFile.unl" or die "E/S : $!\n";
while( my $l = <LIRE>){
print if grep { /${\( (split "|",$l)[0] )}/ } `cat EnabledVouchers.txt`;
}
|
J'ai un message "Out of memory" avec 16Go de Ram!
Moi je n'ai que 256 Mo sur mon pc?! Bizarre!! Je vais voir à la maison (à vrai dire j'aurais aimer faire un test réel avec tes fichiers) lami20j |
|
On m'a donné la solution. J'ai perdu beaucoup de temps avec cela, pourtant c'est tout simple :
join -j 1 -t \| Fichier1 Fichier2 Merci lami20j de ton aide. |
Résultats pour Extraire lignes dont le debut est identique
Résultats pour Extraire lignes dont le debut est identique
Résultats pour Extraire lignes dont le debut est identique
Résultats pour Extraire lignes dont le debut est identique
Résultats pour Extraire lignes dont le debut est identique
Résultats pour Extraire lignes dont le debut est identique