Perl產生不重複隨機數

參考了此文：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";