скрипт, который будет генерировать n случайных чисел в диапазоне от A до B. Но только четные числа будут напечатаны на экране. Числа n, A и B вводятся на клавиатуре при запуске скрипта

[Elevan]

Добрый день, совсем недавно начал изучать perl, из-за чего не хватает знания команд и практики. Столкнулся с проблемой в решении задачи:

Нужно написать скрипт, который будет генерировать n случайных чисел в диапазоне от A до B. Но только четные числа будут напечатаны на экране. Числа n, A и B вводятся на клавиатуре при запуске скрипта

Пока у меня есть только это:

print "Количество чисел\n";
$n = <STDIN>;

print "Начало цепочки\n";
$A = <STDIN>;


print "Конец цепочки\n";
$B = <STDIN>;


for( $fr = $A; $fr<=$B; $fr++ ) {
$tmp = int(rand($n));
print "$tmp\n" while $tmp % 2;
}

Буду очень благодарен, если сможете направить меня в нужно русло

[AndreyK]

Может быть я что-то неправильно понял, но вот один из возможных вариантов. Ну, если это ещё актуально)))))

print "Количество чисел\n";
my $n = <STDIN>;

print "Начало цепочки\n";
my $min = <STDIN>; # $A

print "Конец цепочки\n";
my $max = <STDIN>; # $B

# Генерируем n случайных чисел в диапазоне от $A до $B 
my @rnd_nums = map {$min + int(rand($max - $min))} (1..$n);

# Выводим на экран только те что делятся на 2 без остатка
do { say if !($_ % 2) } for (@rnd_nums);