1
2
3
4
5
6
7
8
9
10
11
12
13
14

$maxNumber   = 100;
$n = 10;

for ( $i=0; $i<$maxNumber; $i++ ) {
  $numbers[$i] = $i;
}

for ( $i=0; $i<$n; $i++ ) {
  $theNumber = int(rand(scalar(@numbers)) + 0.5);

  printf("$theNumber\n");

  splice(@numbers, $theNumber, 1);
}

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de