摘要: 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=le 阅读全文
posted @ 2020-09-11 11:35 will_w 阅读(1700) 评论(0) 推荐(0)