脚本如下：
#!/usr/bin/perl
use strict;
use warnings;
$maxLenth=16;
@a = (0..9,'$','%','a'..'z','A'..'Z','-','+','_');
$password = join '', map { $a[int rand @a] } 0..($maxLenth-1);
print "$password\n";
如果你想生成多个的话，就可以加入循环结构，此代码适合生成密码。
阅读(3336) | 评论(0) | 转发(1) |
