Jump to content

Password generator: Difference between revisions

Line 3,070:
<lang perl6>
subset MinimumPasswordLength of Int where * >= 4;
subset PositiveIntNumberOfPasswords of IntUInt where * >!= 0;
 
sub MAIN( PositiveIntNumberOfPasswords:D :c(:$count) = 0, MinimumPasswordLength :l(:$length) = 8, Str :x(:$exclude) = '' )
{
.say for password-characters( char-groups( $exclude.comb ) )
Line 3,105:
<pre>
Usage:
genpwd.raku [-c|--count=<PositiveIntNumberOfPasswords>] [-l|--length=<MinimumPasswordLength>] [-x|--exclude=<Str>]
</pre>
 
Anonymous user
Cookies help us deliver our services. By using our services, you agree to our use of cookies.