Password Check
12345678910111213141516171819202122
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
while (<>) {
chomp;
&passwordCheck;
}
sub passwordCheck {
if (m%
^(?=.*\d)(?=.*[a-z])(?=.*[A-Z])(?=.*\W).{8,11}$ |
^(?=.*\d)(?=.*[a-z])(?=.*[A-Z])(?=.*\W).{12,15}$ |
^(?=.*[a-z])(?=.*[A-Z]).{16,19}$ |
^.{20,}$
%x) {
print "The password \"" . $_ . "\" is valid.\n";
} else {
print "The password \"" . $_ . "\" is invalid.\n";
}
}
Perl
INFO