正則表達式匹配：密碼特征必須包括：大寫字母、小寫字母、數字、特殊字符，長度大於6小於12

本文轉載自查看原文 2020-09-11 11:35 646

 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 }

如果想一次輸入多個數，用逗號分開的形式

則代碼如下：

 1 #!/usr/bin/perl -w
 2 print "Enter a string:\n";
 3 $string=<STDIN>;
 4 @string=split(/,/,$string);
 5 foreach (@string)
 6 {
 7 chomp;
 8 my $len=length($_);
 9 if($len>=6 && $len<=12 && $_=~/[A-Z]+/ && $_=~/[a-z]+/ && $_=~/[0-9]+/&& $_=~/\W+/){
10 print "Matched: |$_|\n";}
11 else{
12 print "No match:|$_|\n";}
13 }

示例：

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。