让Perl产生随机密码的方法应该有很多种,在这里只写了个简单的,满足需要就可以了。其实也就是产生一个字符串而已。如下:
#!d:/perl/bin/perl.exe
@a=(0..9,'a'..'z','A'..'Z','#','$','%','*','!','@','^','(',')');
$passwd=join '',map{$a[int rand @a]} 0..9;
say $passwd;
某次的运行结果:%#yk*z8A@3
在这里产生了10位比较复杂的字符串,其它的不说了。
转载于:https://blog.51cto.com/httpcn/590517