CUer

use strict;
use warnings;
my $max = 8;
my @array = (0..9,'a'..'z','A'..'Z');
my $str = join '', map { $array[int rand @array] } 0..($max-1);
print "$str\n";
复制代码

尚未完全满足第二个条件