Foreach в Perl — можно ли так сделать?

Question

[Дмитрий]

Здравствуйте, возник вопрос, как можно реализовать проход по циклу и далее по следующему циклу? Perl вообще не знаю, так что буду признателен за любую помощь!

my $start_year=2013;
my $stop_year=2000;
my $interval=100;

foreach (reverse($stop_year..$start_year)){
 `wget -q -O /dev/null "http://site.ru/get_programm.php\?year=$_\&auto=Lada"`;
sleep $interval;
}
foreach (reverse($stop_year..$start_year)){
 `wget -q -O /dev/null "http://site.ru/get_programm.php\?year=$_\&auto=Zaz"`;
sleep $interval;
}
foreach (reverse($stop_year..$start_year)){
 `wget -q -O /dev/null "http://site.ru/get_programm.php\?year=$_\&auto=Audi"`;
sleep $interval;
}

Можно ли так осуществить и правильно ли это?

Answer 1

[Gendalph]

Должно работать.

PS: sleep принимает аргумент в секундах.