Как раз для таких ситуаций в Perl существует разновидность цикла с предусловием — цикл «для»:

Perl
for(инициализация; условие; модификация)
{
	действие
}

Такой цикл почти в точности равносилен циклу

Perl
инициализация
while(условие)
{
	действие
	модификация
}

Спрашивается, а зачем нужна ещё одна конструкция, если она сводится к уже имеющейся? Цикл «для» записывается чуть короче, и, что важно, в нём заключено всё, что необходимо для цикла, включая подготовку. Использование цикла «для» во многих случаях делает программу более понятной.

Такой цикл идеален для очень часто встречающихся ситуаций, когда перебираются числа, причём следующее число вычисляется из предыдущего (в простейшем случае увеличением предыдущего на единицу).

Программу, выводящую натуральные числа, можно с учётом сказанного переписать так:

Perl
for($i=1; $i<=10; $i++)
{
	print "$i\n";
}

Можно в качестве инициализации записать несколько команд. Тогда их следует разделить запятыми (а не точками с запятой, как обычно), ведь точки с запятой в заголовке цикла отделяют друг от друга блок инициализации, условие и блок модификации. Следующий пример вычисляет сумму первых десяти натуральных чисел:

Perl
for($s=0, $i=1; $i<=10; $i++)
{
	$s+=$i;
}
print "$s\n";

Можно пойти ещё дальше, и перенести единственную команду из тела цикла в блок модификации:

Perl
for($s=0, $i=1; $i<=10; $s+=$i, $i++)	{}
print "$s\n";

Здесь уже не совсем очевидно, что удобочитаемость программы повысилась. Любители запутанных программ могут написать и так:

Perl
for($s=0, $i=1; $i<=10; $s+=$i++)	{}
print "$s\n";

Если в предыдущих примерах можно было бы без всякого ущерба заменить $i++ на ++$i, то в последнем использование именно постфиксного оператора увеличения важно: иначе к сумме $s прибавлялось бы значение переменной $i уже после увеличения.

Иногда в каком-то из блоков — инициализации, проверки условия, модификации, — нет необходимости. Тогда его можно оставить пустым:

Perl
$s=0;
$i=1;
for( ; $i<=10; $i++)
{
	$s+=$i;
}

Есть любители даже для бесконечных циклов использовать цикл for( ; ; ), а не while(), и, хотя такое тоже возможно, мы не понимаем, какой глубокий смысл в этом заключается.

Perl
foreach переменная(список)
{
	действие
}

Perl
foreach $planet(qw/Меркурий Венера Земля Марс Юпитер Сатурн Уран Нептун Плутон/)
{
	print "$planet\n";
}

Perl
foreach(список)
{
	действие
}

Perl
foreach(1..10)
{
	print $_**2, "\n";
}

Perl
for($i=1; $i<=10; $i++)
{
	print $i**2, "\n";
}

Perl
for($i=0; $i<@planets; $i++)
{
	print "$planets[$i]\n";
}

Perl
foreach(0..$#planets)
{
	print "$planets[$_]\n";
}

Perl
foreach(@planets)
{
	print "$_\n";
}

Perl
while(…)
{
	…
	last; ─╮
	…      │
}          │
◀──────────╯
…

Perl
while(…)
{
	…
	while(…)
	{
		…
		last; ─╮
		…      │
	}          │
	◀──────────╯
	…
}

Perl
outer: while(…)
{
	…
	while(…)
	{
		…
		last outer; ─╮
		…            │
	}                │
	…                │
}                    │
◀────────────────────╯
…

Perl
while(…)
{
	…
	next; ─╮
	…      │
	◀──────╯
}

Perl
while(…)
{
	…
	while(…)
	{
		…
		next; ─╮
		…      │
		◀──────╯
	}
	…
}

Perl
outer: while(…)
{
	…
	while(…)
	{
		…
		next outer; ─╮
		…            │
	}                │
	…                │
	◀────────────────╯
}

Perl
while(…)
{
	◀──────╮
	…      │
	redo; ─╯
	…
}

Глава 2. Конструкции языка Perl		Процедуры