Bonjour ,

je viens de commencer à faire du perl (1er exos) ,
et ce que j'aimerai c'est d'écrire une sous-routine , me permettant de remplir un tableau de taille 100 par exemple , avec des entiers aléatoires . jusqu'ici j'arrive à le faire , mon problème c'est que je veux tous les éléments du tableau soient différents , alors là je met un petit test dans ma sous-routine pour remplir le tableau comme désiré , mais plus rien ne marche .
quelqu'un pourrait il m'aider ?



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
#!/usr/bin/perl 
 
 
#$essaie = 10;
 
sub random_array{
 
# for ( $i=0 ; $i<10; $i++){
 
# $array[$i]= int(rand 10)+1;
 
# }
for ($i=0 ; $i<10 ; $i++){
 
$array[$i]= int(rand 10)+1;
for ($j=1 ; $j<10 ;$j++){
do { 
$array[$i]= int(rand 10)+1;
}while($array[$i]==$array[$j])
 
}
print " Voici le tableau de nombres alatoires @array \n ";
} 
 
# print " Voici le tableau de nombres alatoires @array \n ";
}
 
&random_array;