#!/usr/bin/perl
#
#       gen_random_string.pl <CNT> <SYMS> <minlen> <maxlen>
#
#       Generate <CND> random strings between <minlen> and <maxlen> characters
#       using only the characters in <SYMS>.
#
use strict;
use warnings;

my $cnt = shift;
my $SYMS = shift;
my $min = shift;
my $max = shift or die usage('Missing args!');

die "CNT ('$cnt') must be numeric!\n" if $cnt =~ /[^0-9]/;
die "MIN ('$min') must be numeric!\n" if $min =~ /[^0-9]/;
die "MAX ('$max') must be numeric!\n" if $max =~ /[^0-9]/;
die "SYMS must be longer than 0 characters!\n" if length($SYMS) < 1;
if ($min>$max) {
        print "Min must be <= Max, swapping!\n";
        my $t=$min; $min=$max; $max=$t;
}

my @syms = split //,$SYMS;
#print join(", ", @syms),"\n";

while ($cnt) {
        my $len=$min + int(($max-$min)*rand);
        my $t='';
        $t .= $syms[int(rand(@syms))] for 1 .. $len;
        print "$t\n";
        --$cnt;
}