comment on

Ah, kvale has beaten me to the regex solution. Ok, I will post a slightly different one...

#!/usr/bin/perl -w

# vim: set tabstop=3

use strict;

while (<DATA>)
{
    chomp;
    print "$_ .. ";

    if (m/^((?=.*?[A-Z])(?=.*?[a-z])(?=.*?[0-9]).*)$
          (??{ ! exists %{{qw! 5 0 6 0 7 0 8 0 !}}->{length($1)} })/x)
    {
        print "valid\n"
    } else {
        print "invalid\n"
    }
}


__DATA__
1245Za78
1245Za7b8
45a7b8
a78Z
12Three
kMdlOz
6KYX
diImMU1Y
ZNw4uWSht
jDqvSN
qVRR
le2WTQv
us1j3SerC
OZv0LtSJ
9qyscg
LbX7o74
80TeRHq
7YIiXnEV8
e1Yctl9
8iGoc
R87MeDCFz
ziTnlk
cziP
[download]

In reply to Re: regex elegance contest - validate a pw by Roger
in thread regex elegance contest - validate a pw by tos

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Clear questions and runnable code get the best and fastest answer
	PerlMonks