简版：Perl产生随机密码

　　让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位比较复杂的字符串，其它的不说了。