�������� ����� For.

for (expression_1; expression_2; expression_3)
{ ::.. }

• expression_1 - ������ ��������� �������� ��������,
• expression_2 - �������, ��� ������� ���� ���������� ��������,
• expression_3 - ������ ���, �� �������� ������������ �������.

for( $fr = 0 ;  $fr < 3 ;  ++$fr )
{
      print "->$fr<-/n";
}

->0<-
->1<-
->2<-

�������� ����� foreach.

���������:

foreach VAR ( ARRAY )
{------------}

@array = ("one","two","three");
foreach $var (@array)
{
     print "@var : ";
}

 one : two : three 

foreach $var ("one","two","three")
{ ------- }

���� "����", �������� while.

���������:

write (_EXP_)
{ ----------- }

������:

$wr = 0;
write ( $wr < 6 )
{     print "->$wr<-\n";
       $wr = $wr + 2;
}

->0<-
->2<-
->4<-

���� � ��� � ����� ������ ����������� ������ ���� ��������, �� ����� ��������, � �������, ���:

++$var ( $var < 5 );

���������� ��� �� ��������� ���������� ������ while:

• next ����� - ��������� � ������ �������� �����.
• last ����� - ��������� ����.
• redo ����� - �������� ����� ���� �� �������� ���������.

���� "��", �������� until.

$wr = 0;
until ( $wr > 6 )
{     print "->$wr<-\n";
       $wr = $wr + 2; 
}

�������� goto.

������ ���������:

  �����:
   ....
   goto �����;

  goto $subroutine;