用perl生成随机字符串

脚本如下：

#!/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";


如果你想生成多个的话，就可以加入循环结构，此代码适合生成密码。