Il manquait la fonction random.
En fait elle est toute simple (son seul intérêt, c'est qu'elle était partagée par plusieurs fonctions, et donc que ça facilitait un éventuel changement).
sub random {
my ($sup) = @_;
return int rand $sup;
}
Cela dit, tant qu'à faire, on peut écrire une version moins verbeuse (mais probablement moins performante) de salt : sub salt {
my @space = unpack 'C*', join '', 'A'..'Z', 'a'..'z', 0 .. 9, "./";
return join '', map { chr($space[int rand scalar @space]); } 1 .. $_[0];
}
« Le fascisme c’est la gangrène, à Washington comme en Russie. » — adapté de Renaud, Hexagone
[^] # Compléments
Posté par Arthur Accroc . En réponse au message creation d'un utilisateur avec un simple programme perl. Évalué à 1.
En fait elle est toute simple (son seul intérêt, c'est qu'elle était partagée par plusieurs fonctions, et donc que ça facilitait un éventuel changement).
sub random {
my ($sup) = @_;
return int rand $sup;
}
Cela dit, tant qu'à faire, on peut écrire une version moins verbeuse (mais probablement moins performante) de salt :
sub salt {
my @space = unpack 'C*', join '', 'A'..'Z', 'a'..'z', 0 .. 9, "./";
return join '', map { chr($space[int rand scalar @space]); } 1 .. $_[0];
}
« Le fascisme c’est la gangrène, à Washington comme en Russie. » — adapté de Renaud, Hexagone