8
.SS do {} while/until (EXPR)
10
.SS while ( $var = each <list> ) { }
11
����� ����������� ���������� $var ��� �������� �� ������ �� �������.
12
������ $var ��� �� ����� ���� ������.
13
.SS for (start;EXPR;After) {}
16
�� ��� ���� ������� for
17
.SS foreach $elem(@elements) {print $elem}
18
����������� ���������� �� ������� ������ �������� ��
19
������ � ��������� ��� ��������� �� �����. � ������
20
������ ������� �������� $elem ����� �������� ���������������
22
.SS for $elem(@elements)
25
���� C++ "break" - ��������� ����� �� �����
27
���� ������� ����� label �� ������� �� ����� � ���� ������
29
���� C++ "continue" - ������� �� ��������� �������� �����
30
.SS operator <loop operator>;
32
.SH �������� ���������
34
.SS if (EXPR) {} elsif (EXPR) else {};
35
if ($a==$b) �������� ������ ��� ��������� ����������
38
.SS opearator if (EXPR);
39
��������� �������� ���� ��������� ������� if
40
.SS operator unless (EXPR);
41
��������� �������� ���� �� ��������� ������� if
42
.SS command or command
43
���� ������ "command" ���������� ������ �� ����������� ������
44
.SS command and command
45
������ ������� �����������, ���� ������ ������ �� ������� ������
47
���� ������ ���������� �� ������� �� ����������� �� $var, ����� ������
53
������ ��������� �� ������ � �������
55
������ ��������� �� ������
58
.SS print [<fmt>],$a,$b
59
����� �� ����������� �����
60
.SS printf <fmt>,$a,$b
61
<fmt> - ������ ������, ������������ C++
62
.SS sprintf <fmt>,$a,$b
63
�� �������� ������, � ���������� �� ��� ��������� ������ �������
64
( ������� sprint - ���� )
65
.SS print << PRT; ... ; PRT
66
������� ��� ��� ��������� � "...", ������ PRT ����� ������������
67
����� ������ ������ ��� ����� ��������
69
����� ������������ � ��� ������������ � ������ ��������: $a= << PRT; ... ; PRT
71
������ �� ������������ ����� ( � ����� $a ����� "\n" )
73
������� �� commandline ���������, ���� �������� ����� �� �����
74
������ �� ������ ������ �� ��� �� �������, ����� ��������� ��������
75
���������� EOF. ���� ������� ������ �� �������� �� ������ �
79
.SS open(DESCRIPTOR,"?name")
86
?='>>' �� �������� (append)
90
.SS while($var=<DESCRIPTOR>) {}
91
����: while (!feof()), ������ $var ����� ������� ������ ����������
93
������ �� ����� ��������� ������
95
������ ���� ���� � ������
96
.SS print[f] DESCRIPTOR, [<fmt>],$a,$b
98
.SS ���� ���� �������� ���������� �����.
100
- ���������� backup �����, ���� \*(lq\*(rq �� backup �� ��������
102
.I while (<>) { print \*(lq\*(rq}
103
- ����� print ���� � ������������� �����������
105
.SH ������ � ������������
108
������ ��� ����� � ������� ����������
109
.SS opendir DIR,"name"
110
���� ��������� ����������
111
.SS $file=readdir DIR;
112
���������� ��������� ����
113
.SS while ($file=readdir DIR) {}
114
���� ���� �� ���� ������
115
.SS @files=readdir DIR;
116
���������� � ������ ��� ����� ����������
120
- ���� ��������� ����
126
.SS exec(command [params])
127
��������� scrypt � �������� ����� �������
129
�� �������� �������� � ��������� ������� Perl'�
130
.SS system(command [params])
131
��������� ������� � ������������ � scrypt, � $? ��� ������ * 255
133
����� ������������ ��� ������������� ����������� ( �������� ������� ),
134
� $? ��� ������ * 255
135
.SS qx(command [params])
136
��������� ���������� �����������
137
.SS open DESCRIPTOR, "[|]command[|]"
138
��������� ����� �������, ���� � ������ ������� ������
140
�� �������� ������ � DESCRIPTOR ����� �������� ������ ��
141
����������� ���� ��������, ����
143
������ � ��������� ������� �� ����� ������ �� DESCRIPTOR� �����������
146
_��_ ����� ���� ������ ������������ � � ������ � � ��������� ��������
147
(�� ������ ���� ��� ��� �������).