Password Check
| Run Settings | |
|---|---|
| Language | Perl |
| Language Version | |
| Run Command |
| Snippet Metadata | |
|---|---|
| Owner | Hsins |
| Created | |
| Modified | |
| Visibility | Public |
#!/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";
}
}
| Editor Settings | |
|---|---|
| Theme | |
| Key bindings | |
| Full width | |
| Lines |