Discussion :

[Super_carotte]

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

[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

[Super_carotte]

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 :

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
$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.