Re: Efficient way to verify scalar contents

my @RE = (qr/[[:lower:]]/, qr/[[:upper:]]/, qr/[0-9]/, qr/[^[:alnum:]]
+/);
sub check {
    local ($_) = @_;
    my $length = length;
    return if $length < 8;
    return if $length < 12 && (! /$RE[0]/ || ! /$RE[1]/ || ! /$RE[2]/ 
+|| ! /$RE[3]/);
    return if $length < 16 && (! /$RE[0]/ || ! /$RE[1]/ || ! /$RE[2]/)
+;
    return if $length < 20 && (! /$RE[0]/ || ! /$RE[1]/);
    return 1
}
[download]

Tested against the tests from Re: Efficient way to verify scalar contents (updated x3) (haukex++).

Update: Or, if you want to abstract away the repeating $RE[...]

use List::Util qw{ any };

my @RE = (qr/[[:lower:]]/, qr/[[:upper:]]/, qr/[0-9]/, qr/[^[:alnum:]]
+/);
sub check {
    my ($password) = @_;
    my $length = length $password;
    return if $length < 8;
    return if $length < 12 && any { $password !~ $RE[$_] } 0 .. 3;
    return if $length < 16 && any { $password !~ $RE[$_] } 0 .. 2;
    return if $length < 20 && any { $password !~ $RE[$_] } 0 .. 1;
    return 1
}
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: Efficient way to verify scalar contents Select or Download Code

Replies are listed 'Best First'.
Re^2: Efficient way to verify scalar contents by LanX (Saint) on Jun 22, 2020 at 12:12 UTC
Please correct me, but do these character classes not depend on localisation? `[[:lower:]] [[:upper:]]` I think passwords should rather be defined in terms of ASCII Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]
Re^3: Efficient way to verify scalar contents by choroba (Cardinal) on Jun 22, 2020 at 12:22 UTC
I'm not sure. I remember `[a-z]` depending on locale, but it was probably in bash rather than Perl... `$ (LC_ALL=en_US.UTF-8; [[ é =~ [a-z] ]] \|\| echo no) $ (LC_ALL=C; [[ é =~ [a-z] ]] \|\| echo no) no $ perl -Mutf8 -wE 'say "é" =~ /[[:lower:]]/' 1 $ perl -Mutf8 -wE 'say "é" =~ /[a-z]/' $` [download] Update: Switched from <c> to <pre> and back. `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l] [select]


"be consistent"
	PerlMonks