Discussion :

[crazydindon]

Bonjour,

Je veux faire quelque chose qui parait simple mais je m'arrache un peu les cheuveux, je pense qu'il y a moyen de le faire assez simplement avec un hash mais je n'y arrive pas.

J'ai une liste @reference qui contient les références, et une liste @match contenant plusieurs nombres (avec des doublons).

J'aimerai juste obtenir une liste des références qui ne sont pas trouvés dans @match

@ref = (1..10);
@match(1,2,4,5,8,9,10);

ce que j'aimerai trouver :
@diff = (3,6,7);

Il me semble l'avoir déjà vu quelque chose comme ça sur le forum mais je n'ai pas réussi à retrouver :'(

Quelqu'un connait-il la solution SVP ?

Merci

[philouelgeek]

Je te conseillerai de passer par un hash :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
#!/usr/local/bin/perl -w
 
## MODULES
use strict;
use warnings;
 
## VARIABLES
    # Scalaires
    my $element;
 
    # Tableaux
    my @union =  ();
    my @intersection =  ();
    my @difference = ();
 
    my @array1 =  (1..10);
    my @array2 =  (1,2,4,5,8,9,10);
 
    # Hash
    my %count = ();
 
 
## PROGRAMME PRINCIPAL
 
    foreach $element (@array1, @array2) { $count{$element}++ }
    foreach $element (keys %count) {
        push @union, $element;
        push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element;
    }
 
    foreach my $tmp1 (@difference)
    {
        print $tmp1."\n";
    }

Les différences entre tes deux listes se trouvent dans @difference

@++

[djibril]

Il existe des modules qui font ce que tu veux rapidement, proprement et facilement. Pas besoin de réinventer la roue.
Regarde le module List::Compare

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use warnings;
use strict;
 
use List::Compare;
 
my @ref = (1..10);
my @match = (1,2,4,5,8,9,10);
my $lc = List::Compare->new(\@ref, \@match);
 
my @Lonly = $lc->get_unique;
print "Ton resultat : @Lonly\n";

Ton resultat : 3 6 7

[crazydindon]

Merci beaucoup à vous, c'est bien ça que je voulais

Je préfère éviter d'utiliser les modules car je ne sais pas où vas être lancé mon script par la suite.

[iblis]

Si tu le fais à la main, va au plus simple :

Code :

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

1
2
3
4
5
my @ref = 1..10;
my @match = (1,2,4,5,8,9,10);
 
my %match = map { $_ => 1} @match;
my @filtered = grep { ! $match{$_} } @ref;

[philouelgeek]

Peut-être que mettre ce petit bout de code dans la faq pourrait être sympa vu qu'il est indenté sans module et donc une alternative au CPAN

@++