参考了此文:Perl 产生不重复的随机数
#!/usr/bin/perl
#
use strict;
use warnings;
my %sns;
for (1 .. 10) {
my $range = 100;
my $no;
do {
$no = int rand($range);
} while (exists $sns{$no});
$sns{$no} = 1;
}
print join(" ", keys %sns), "\n";