Password checker for ntt-east at-billing.

password-check.pl

#!/usr/bin/perl
# アットビリング用に設定できるパスワードのチェック
# OGATA Tetsuji at 2015/09/05
# MITライセンスなのでご自由にどうぞ

use strict;
use warnings;

my $string = shift;

if ( length $string == 0 ) {
    print "$0 PASSWORD_STRING\n";
    exit;
}

my $char_re         = qr{[!"#$%&'()=;:,./+*_\?-]};
my $invalid_char_re = qr{[^0-9a-zA-Z!"#$%&'()=;:,./+*_\?-]};

local $@;
eval {
    die "短すぎです" if length $string < 9;
    die "長すぎです" if length $string > 32;
    die "数字が入っていません" if $string !~ /[0-9]/;
    die "英小文字が入っていません" if $string !~ /[a-z]/;
    die "英大文字が入っていません" if $string !~ /[A-Z]/;
    die "記号が入っていません" if $string !~ /$char_re/;
    die "使えない記号が入っています" if $string =~ /$invalid_char_re/;
};

if ( $@ ) {
    my $err = $@;
    $err =~ s/ at .*//;
    print "$err\n";
}