Password generator: Difference between revisions

Line 3,083:
sub char-groups( @exclude )
{
state @special = < $ % & \ ` ~ ! * + , - . / : ; = ? @ ^ _ ~ [ ] ( ) { | } # ' " \< \> >;
 
my %char-groups =
lc => ['a' .. 'z'],
uc => ['A' .. 'Z'],
digit => ['0' .. '9'],
special => <( $ % & \ ` ~ ! * + ,@special (- . / : ; = ?) @ ^ _ ~ [ ] (exclude ) { | } # ' " \< \> >.keys;
 
%char-groups< special > = ( %char-groups< special > (-) @exclude ).keys
if @exclude;
 
%char-groups< special >:delete
Anonymous user