Comparer liste avec tableau

Version imprimable

12/12/2011, 11h36
Super_carotte

Comparer liste avec tableau

Bonjour,

Je cherche a comparer une liste avec un tableau.

Par exemple:
my $liste = "2 3 4"; #donc 3 éléments séparés par des espaces
my @tableau=(1,2,3,4,5,6); #mon tableau

Je cherche a vérifier que touts les éléments de la liste sont bien présent dans le tableau.
Je me demandai si c'etait possible a faire en PERL ou si je devai d'abord transformer ma liste en tableau.
Le but est que le code soit facilement relu par le développeur suivant.

Merci pour de me donner votre avis,
Benjamin
12/12/2011, 11h48
Super_carotte

Je pense avoir trouver une solution sur internet qui est intelligente et plutôt clair:
@tab1=(4,5,6);
@tab2=(1,2,3,4,5,6,7,8,9);
my %hash = map{$_ => 1} (@tab1, @tab2);
my @tab = keys %hash;
my $nombre_elements_commun = @tab1 + @tab2 - @tab;
print "nombre_elements_commun : $nombre_elements_commun\n";

Je vais donc bien commencer par transformer ma liste en tableau.

Merci,
Benjamin

Pour ceux qui seraient intéréssés, voici un code permettant de
1- Transformer une liste en tableau
2- Comparer les elements entre tableaux
Point interessant: Si il y a des doublons (comme j'en ai mis dans la liste $list1, ça fonctionne aussi :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
$list1="4 6 8 1 4"; # ma liste de depart. Les elements sont séparés par un espace
my @tab1 = split(/ /,$list1); # je split la liste en utilisant les espaces
$tailletab1 = scalar @tab1; # je recupere la taille du nouveau tableau
print "t : @t\n";
@tab2=(1,2,3,4,5,6,7,8,9);
    my %hash = map{$_ => 1} (@tab1, @tab2);
    my @tab = keys %hash;
    my $nombre_elements_commun = @tab1 + @tab2 - @tab;
print "nombre_elements_commun : $nombre_elements_commun\n";
 
if($nombre_elements_commun == $tailletab1)
{
print "Les elements de la liste \$list1 sont tous présents dans le tableau \@tab2 \n";
}else
{
print "Les elements de la liste \$list1 NE sont PAS tous présents dans le tableau \@tab2 \n";
}

En espérant que ça puisse aider,
Benjamin.