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