genstack.pl

#!/usr/bin/env perl

# Created by tharchen with a ton of <3
# Thanks to llefranc for the correction <3

# usage: ./genstack.pl stacksize min max
# exemple: ./genstack.pl 10 0 1000
# will creates 10 uniques numbers from 0 to 1000
# like: 138 527 947 967 811 33 112 526 949 27
# enjoy :)

use strict;
use warnings;
use diagnostics;

# my $min;
# my $max;
my ($stacksize, $min, $max) = @ARGV;
my @stack = ();

### Error management
if (not defined $stacksize)
{
	die "Usage: ./genstack.pl stacksize [min] [max]\n";
}
elsif ($stacksize < 0)
{
	die "Error: stacksize can't be negative\n";
}

if (not defined $min)
{
	$min = 0;
}
if (not defined $max)
{
	$max = $min + $stacksize;
}
elsif ($stacksize >= $max - $min + 1)
{
	die "Error: range too small\n";
}

### Build stack
for (my $num = 0; $num < $stacksize; )
{
	my $n = int(srand() % ($max - $min) + $min);
	if (!(grep { $_ eq $n } @stack))
	{
		push @stack, $n;
		$num++;
	}
}
print "@stack\n";