随机字符组成的字符串在很多场景有应用,比如生成随机密码等
#!/usr/bin/perl
use 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";