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

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