Des codes sources perlConsultez toutes les FAQ
Nombre d'auteurs : 13, nombre de questions : 59, dernière mise à jour : 27 mai 2011
Sommaire
→
Quelques unilignes perl
→
Divers
Voici comment tester si un nombre est premier (code d'Abigail).
Sélectionnez
perl -wle "print qq{Premier} if (1x shift) !~ /^1?$|^(11+?)\1+$/" NOMBRE
Sélectionnez
perl -wle 'print "Premier" if (1x shift) !~ /^1?$|^(11+?)\1+$/' NOMBRE
Créé le 2011-02-22
par
djibril