Code · 2012-03-28

perl生成随机密码

perl生成随机密码

[root@Nagios a]# perl -le 'print map{(a..z,A..Z,0..9)[rand 64]}0..pop' 8
jm6sKgVlW