正则表达式匹配：密码特征必须包括：大写字母、小写字母、数字和、特殊字符

 1 #!/usr/bin/perl -w
 2 ##输入一个字符串，字符串长度大于6小于12，必须包括大写字母，小写字母,数字和特殊字符
 3 use strict;
 4 
 5 print "Enter a string:\n";
 6 while(<>)
 7 {
 8 chomp;
 9 my $len=length($_);
10 if($len>=6 && $len<=12 && $_=~/[A-Z]+/ && $_=~/[a-z]+/ && $_=~/[0-9+]/&& $_=~/\W+/){
11 print "Match\n";}
12 else{
13 print "unmatch\n";}
14 }