Для петель в Perl

Question

Я новичок в perl, и мне нужно написать программу, которая запрашивает, сколько будет номеров, и я должен спросить, что это за числа, а затем использовать цикл for, чтобы узнать, входные числа делятся на 5 или 6. Любые советы или помощь будут оценены.

print "how many numbers are there?"; 
$a = <STDIN>; 
print "enter your numbers."; 
$b = <STDIN>; 
for ($a; $b % 6 == 0 or $b % 5 == 0;) { 
    print "$b"; 
} 

Answer 1

Не используйте $a и $b в качестве имен переменных, они являются особенными для sort.

Вы можете использовать для цикла, когда просят уже цифры:

#! /usr/bin/perl 
use warnings; 
use strict; 

print "How many numbers are there? "; 
chomp(my $count = <>); 

print "Enter the numbers: "; 
for (1 .. $count) { 
    chomp(my $number = <>); 
    print "Divisible.\n" if 0 == $number % 5 || 0 == $number % 6; 
}