3
���� � ���� ��� ����� ���� ������������ ��� ��������� ���������� ��������,
6
������� ����� ����� ���������� ��������� �������� � ����������� ��
7
���������. ����� ������������� ��������� ��������� �������� � �������
9
.I scalar(<something>);
16
- ������� ������� ( ��������� � 0 )
22
- ������� ������� �� ������� ��������� ���������
25
- ������� ����, �� ������� ��������� ���������
31
- ������, ����� ���������� �������� � �������
34
- ���� ������������ � �������� ��������� �������� ����������
35
��������� � @arr (��������: $nmemb=@arr)
36
.SS ������������� �������:
41
- ������ ��� ������ ����
44
- ������ ��� �������� ����
47
- ������ ���������� �������� ����
50
- ����������� ��� ������� �������������� ���������
51
������� $hash(join($;,$a,$b,$c)
54
- ��������� �� ���������� ( ����� ��������
60
- ����� ����� ���������� ������������� ��������� �� ������, ��� �
61
������� �������������� )
64
- �������������� ����� ��������� �� ��������� �� ���������� ( �� � �.�. )
67
- ��������� �� ��������� (
81
� ��������� "if" ����� ��������� ��������� ���������: "","0" +
82
������� ������� ���� �������������� 0 (�.�. if (0.0) - ����,
85
������ � Perl ���������� ����� ���� ��������, ����� ����
86
������, � ����� ������ _�� ������������_. ��������������
87
������� ����� ���������� �������� ����������, ����� ������,
88
� ����� ������ ������ �� ����������. � �������
89
s// - ���������� ������ ��� ���� ( ������� �� ������� )
90
w// - ���������� ������ ��� �� ���������� ������.
95
� arr �������� ��� �������� ��� ������ �������� �� �� �������� �� �����������.
97
.I "($a,...,$b)=��� �� ���"
98
��������� ���������� ������ ������� ������������� "not defined" ��������,
99
���� ����������� "not defined" ���� ���� �� ����� ��� ���� ����������.
102
������������� $var,@var,%var,...
113
- ��������� � 3 � 5 �������� �������
116
- ��������� 3,4,5 ��������� �������
119
- ������������ ����� ����������
122
- ������������ ������ ���������� �������� ��������� �������
124
.I @arr=($a,$b,@oldarr)
125
- � ������ ������������ ������� �������� $a, $b, � ����� ��� �������� @oldarr
127
.I %hash=(1, \*(lqa\*(rq, 2, \*(lqb\*(rq)
128
- ���������� �������� ��������� ����
131
- � ������ ��������� ��� ����� � �������� �� ����
134
- ���������� ����� ��������� ������ �������� �� ����
137
- ��������� �������� � ����� �������
140
- $a ����� ����� ���������� �������� arr, ��������� �������
141
����� ������ �� �������
144
- ��������� �������� � ������
147
- $a ����� ����� ������� �������� arr, ������ ������� ����� ������
149
.I @a=splice(@arr,pos,num,$a)
150
- ��������� � ������ @a "num" ��������� �������
151
@arr ������� � "pos", ������ �� �� ���������
152
�������. � ��������� �������/� $a � ��� �����.
154
$a - ����� ��������, num - ����� ��������� 0
157
- ������� ������ �� ���� ��������� � ���������� ��������� �� ����
160
- ������� ��� � ���������� ��������� �� ����
163
- ���������� ��������� �� �������
166
� ���������� ��� ��������� $a,@a,... ����� ������ �� $b,@b � ��������.
170
.SH ������������� ����������:
172
- ���������� ���������� $a
175
- ���� ���������� ���������� $a
177
.I if exist $hash{key}
178
- ���� ���������� ����� ���� ����
181
- ������� ������� ����
182
.SH ������������� �����:
183
.I 12345, 1.5, .23E-10, 0xfff
187
- ������������ ����� (77)
190
- ��� �������� ������
191
.SH ����������� �������:
208
- ������������ ������
214
- ������� �� ��������� ��������