正则表达式匹配：密码特征必须包括：⼤写字母、⼩写字母、数字、特殊字符，长度⼤于6⼩于12
1#!/usr/bin/perl -w
2##输⼊⼀个字符串，字符串长度⼤于6⼩于12，必须包括⼤写字母，⼩写字母，数字和特殊字符
3use strict;
4
5print"Enter a string:\n";
6while(<>)
7 {
8chomp;
9my$len=length($_);
10if($len>=6 && $len<=12 && $_=~/[A-Z]+/ && $_=~/[a-z]+/ && $_=~/[0-9]+/&& $_=~/\W+/){
11print"Match\n";}
12else{
13print"unmatch\n";}
14 }
如果想⼀次输⼊多个数，⽤逗号分开的形式
则代码如下：
1#!/usr/bin/perl -w
2print"Enter a string:\n";
3$string=<STDIN>;
4@string=split(/,/,$string);
5foreach (@string)
6 {
7chomp;
8my$len=length($_);
9if($len>=6 && $len<=12 && $_=~/[A-Z]+/ && $_=~/[a-z]+/ && $_=~/[0-9]+/&& $_=~/\W+/){
10print"Matched: |$_|\n";}
密码字符串是什么11else{
12print"No match:|$_|\n";}
13 }
⽰例：

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。