bonjour
je souhaite ecrire une petit programme en perl (je suis debutant en programmation perl)qui me test si un nombre est premier. : nous s'avons que un nombre premier s'il possède uniquement deux diviseur (1 et lui même)

voici le code que j 'ai ecris mais il ne fonctionne pas

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
print "donnez un nombre : ?";
$nombre = <STDIN>;        # lecture clavier
chomp($nombre);
 
print " $nombre est premier " if (premier()==1);
print  "$nombre n'est pas premier" unless (premier()==0;)
 
 
sub premier{
 
my ($nomb)=@_;
#je teste les nombres impairs car tous les nombres pair ne sont pas #premier
for($i=3;$i<$nomb/2;$i++) {
 
   if (($nomb%$i)==0){ return 1;}
 
 
   else return 0;
 
 
}
 
 
 
}

[Edit]
Ajout des balises [ code ] et [ /code ] par 2Eurocents
[/Edit]