Perl 生成随机字符的字符串

随机字符组成的字符串在很多场景有应用，比如生成随机密码等

#!/usr/bin/perluse strict;use warnings;my $maxLenth=1024;my @dataSource = (0..9,'a'..'z','A'..'Z','~','!','@','#','$','%','^','&',,'*','-','+','_','=','(',')','{','}','[',']',':',';','"',',','.','<','>','?','/','\\','|','\'');my $randomString = join '', map { $dataSource[int rand @dataSource] } 0..($maxLenth-1);print "$randomString\n";