Bonjour,
J'ai deux fichiers A et B et je voudrais récupérer toutes les lignes de A qui ne sont pas dans B.
Le problème est assez simple à priori, mais pourtant je ne trouve pas de moyen plus simple que ça pour le faire :
J'ai pas testé mais ça doit être ça (quoi que... si on arrive à la fin de B avant A).
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
16
17
18
19
20 open A, "<", "A"; open B, "<", "B"; my $a; my $b; $a = <A>; $b = <B>; while ($a && $b) { print $a if ($b gt $a); if ($a lt $b) $a = <A>; elseif ($a gt $b) $b = <B>; elseif ($a eq $b) { $a = <A>; $b = <B>; } }
Ça suppose que les listes soient triés et sans doublons.
Bref, je me demande juste si il n'y a pas un moyen plus simple de faire ça.
Merci d'avance.
Partager