| ���������� | ����������� | �������� | ������
| ����� 1 | ����� 2 | ����� 3 | ����� 4 | ����� 5 | ����� 6 | ����� 7 | ����� 8 | ����� 9 | ����� 10
| ����� 11 | ����� 12 | ����� 13 | ����� 14 | ����� 15 | ����� 16 | ����� 17 | ����� 18 | ����� 19
| ���������� � | ���������� � | ���������� � | ���������� � |

����� 15

    � ���� �����:


������ �������� �������������� ������

����� ���������

����� ������ ��������� ������� �� ����, ��� �� �� ��������. ���� �� �������� �� � ������� ������ � ��� �������, ������ ��� � ����� ������ ����� ������ �������� index. ��� ��� �� ����� ���������������:

$� = index($������,$���������)

Perl ������� ������ ��������� ��������� ��������� � �������� ������ � ���������� ������������� ������ ������� �������. ������������ ��-���� ������������� �� ����, �.�. ���� ��������� ������� � ������ ��������� ������, �� ��������� 0. ���� ��� ������� �� ������ ������, �� ��������� 1 � �.�. ���� � ��������� ������ ��� ���������, �� ��������� -1.

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

$where = index("hello","e") ;

$person = "barney";

$where = index("fred barney",$person);

$rockers = ("fred","barney") ;

$where = index(join(" ",Orockers),$person); # �� �� �����

�������, ��� � ������, � ������� ������������ �����, � ������, ������� ������, ����� ���� ����������� �������, ��������� ����������, �������-��� ������, � ���� ����������, ������� ����� ��������� ��������. ��� ��� ��������� ��������:

$which � index("a very long string","long"); # $which �������� 7 $which as index("a very long string","lame"); # $which �������� -1

���� ������ �������� ������� ��������� � ���������� ������, �� ������� index ���������� ������ ������������ ������ ������ ������. ����� ����� ������ ���������� ���������, ����� ������� ��� ���� ����-��� ������ �������� � ����������� �������� �������, ������� ��� ����� ���������� ��� ������ ���������� ���������. �������� ��� ���:

$� = index($�������_������,$���������_������,$�������}

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

$where = index("hello world","!"); # ���������� 2 (������ ����� 1) $where = index("hello world","I",0); # �� �� ����� $where =� index("hello world","I",1); # ����� �� �� ����� $where = indexC'hello world", "I", 3) ; # ������ ���������� �

# (3 - ������ �������, ������� ������ ��� ����� 3) $where = indexC'hello world", "�", 5) ; # ���������� 7 (������ �) $where � indexC'hello world", "�", 8) ; # ���������� -1 (�� ����� ����� 8)

�� ������ ����� ������ ����� � ������������� ������ ������ ������ � ������� ������� rindex, ����� �������� ������ ������� ���������. ��� ������� ���� ���������� ���������� �������� ����� ����� ������ ������ � ������� ���������, ��� � ������, �� �� �������� ������� ������ ���������, � �� ������ �����, ���� �� ���������. ������� rindex ���� ��������� ������ ��������, ��� � ������� index, ����� �� ����� �������� ������������� ������ ������� ������� ���������� ���������, ������� ������ ��� ����� ������ ��������� �������. ��� ��������� �������� ����, ��� ����� ����� ������� ��������:

$w = rindex("hello world","he"); # $w ��������� �������� �

$w = rindex("hello world","!"); # $w ��������� �������� 9 (������� ������ 1)

$w = rindex("hello world","�"); # $w ��������� �������� 7

$w = rindex("hello world","o "); # ������ $w ��������� �������� 4

$w = rindex("hello world","xx"); t $w ��������� �������� -1 (�� �������)

$w = rindex("hello world","�",6); # $w ��������� �������� 4 (������ �� 6)

$w = rindex ("hello world", "o",3) ; # $w ��������� �������� -1 (�� ������� �� 3)

���������� � ������ ���������

������� �������� ������ ����� ����� ����������� ���������� ���������� ���������, �� ���� ���� �������� ������ ��������� �� ��������� �������, ����� ����� ������������. � ���� ������ ������� ������������ ������� substr. ��� ������� ��������� ��� ���������: ��������� ��������, ��������� ������� (������������ ��� ��, ��� � ������� index) � �����, �.�.

$s = substr ($������, $���<���, $�����) ;

 

��������� ������� ������������ ��� ��, ��� � ������� index: ������ ������ � ����, ������ ������ � ������� � �.�. ����� � ��� ����� ��������, ������� ���������� �������, ������� �� ������ �������: ������� ����� ��������, ��� ������� �� �����������, ������� �������� ��������� ������� �������, ������ � ���� �������� � �.�. (������ ��������, ��� ������� � ������, ������� ������, ������� ���� �� ��������� ������� �����, ������ ��������� �� ����������.) �������� ��� ���:

$hello = "hello, world!";

$grab � substr($hello, 3, 2); t $grab �������� "lo" $grab = substr($hello, 7, 100); # 7 �� �����, ��� "world!"

����� ���� ��������� �������� ������� �������� "������ � ������� �" ��� ��������� ������������� ��������, ��������:

$big = substr("10000000000",0,$power+l); # 10 ** $power

���� ���������� �������� ����� ����, �� ������������ ������ ������. ���� ���� ���������, ���� �������� ������� ������ ����, �� ����� ������� ������������� �� ��������������� ����� ��������, ������� � ����� ������. ���, ��������� ������� -�� ����� 1 (��� �����) ���� ��������� ������. ����������� ������� ��������� ������� -2 ������������� �� ������� ������� ������������ ����� ������:

$stuff = substr("a very long string",-3,3); # ��������� ��� ������� $stuff = substr("a very long string",-3,1); # ����� �

���� ��������� ������� ������� ���, ��� ��������� "�����" ������ ������ (��������, ������ ������� ������������� ������, ����������� ����� ������), �� � �������� ��������� ������� ������� ������ ������ (��� ���� �� �� ������� ��������� ������� 0). ���� ��������� ������� � ������� ������������� �����, �� ������ ������������ ������ ������. ������� �������, ��� ������� ������ ���������� �����, �������� �� ��������� �� ������.

���������� ��������� "�����" ������������ ������ � �������� ����� ��������� �������� ����� � � ���� ������ ����������� ��� �� ��������� ������� �� ����� ������*.

���� ������ �������� ������� substr � ��������� ���������� (������� �������, ��� ����� ������ � ����� ����� �������� ������������), �� ���� ��� ������� ����� ������ � ����� ����� �������� ������������. ���� �� ������� � ���������������� �� Perl �� �, ��� ��� ����� ���������� ��������, �� ��� ���, ��� �����-������ ���� ���� � ���������� ���������� Basic, ��� ������ ���������.

* � ����� ������ ������� Perl ������� �������� ��������� �� ����������, ������� ������ Perl-������������ ������������ � �������� ����� ��������� ������� �����. ��, ��������, ����������� � ���� � ����� ��������������� ������������� ��������, ���������� Perl.

 

� ���������� ������ ������������ ���������� �� ����� ������, ������� ���� �� ����������, ���� substr ������������ �� � �����, � � ������ ����� ���������. ��������, substr ($var, 3,2) ���������� ��������� � ����� ������� (������� � 3 � ���������� 2), ������� ������������ �������� ��������� ��� ������� � $var ������� ����, ��� ��� ��������� ����:

$hw = "hello world!";

substr($hw, 0, 5) = "howdy"; # $hw ������ ����� "howdy world!"

����� ����������� ������ (������� ������������� ������� substr) �� ����������� ������ ���� ����� ����� ����������� ������, ��� � ���� �������. ������ ������������� ������������� ��� ����������� � �������-����� � ������ ������. ��� ������, � ������� ������ �������������:

substr($hw, 0, 5) = "hi"; # $hw ������ ����� "hi world!"

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

substr($hw, -�, 5) = "nationwide news"; # �������� "world"

��������� ������������ � ��������� ���������� ������ ����������� � ��������� ������, ������� �� ������� �� ������������ � ���� ����� ��� �� �������� ������ ������� ��� �� �����.

�������������� ������ � ������� ������� sprintf()

������� printf ����������� �������, ����� ����� ����� ������ �������� � ������� �������� ������, � ������� ��� �������� ������������ �� � �������� ����. ������� sprint f ���������� ����� �� ���������, ��� � ������� printf, �� ���������� ��, ��� ������ �� printf, � ���� ����� ������. (������ ������� �� "��������� �������� printf".) ��������, ����� ������� ������, ��������� �� ����� � � �������� ���������� $�, ������������ ������ �� ���� ��������, ����� ��������:

$result = sprintf("X%05d",$y);

�������� ���������� ������� sprintf �� ������� � ������� sprintf ����� 3 ����� Programming Perl � �� man-�������� printf(3) (���� ��� � ��� ����).

���������� �� �������� ���������

�� ��� ������, ��� � ������� ���������� ������� sort ����� �������� �����-���� ������ � ������������� ��� �� ����������� ����� ASCII. ���, ���� �� ������ ������������� ������ �� �� ����������� ����� ASCII, �, ������, � ������ �������� ��������? � Perl ���� �����������, ������� �������� ��� ������ � ��� ������. �� �������, ��� Perl-������� sort ����� ��������� ���������� � ����� ����� ������������� �������.

����� ������ ������� ����������, ������� ���������� ��������� ����-�����, ������� ������ ������ ��������� ���� ���������. ��� ���� ��� �����? �������� ������, ��� ���������� � ��� ���������� ��������� ��������� � ������������ ������� ����� �� ��������� ����� �����. ��������� �������� ����� ��� �������� ������, ����� ���������� �� �� ��� �, ��������� ���������� ���� �������� ���������, ���������� ��� �� �� ������.

��������� ��������� ������������ ��� ������� ������������. ��� ����� ���������� �����������, � ������ ��� �� ����� ������������ ��� ��������� ������������ ������. ������ ������������ ������ ����������, ��� ������ �������� ����������� �� ������ (������, ����� ��� ������), � ���������� �������������� �������� (������� �� ������ ���� ����). ���� ������� ����������� �� ��� ���, ���� �� ����� ������������� ���� ������.

����� �������� �������� ����������, ��� ��� �������� ���������� � ������������ �� � �������, � ��� �������� ���������� ���������� $� � $�. (�� ����������: �������� �������� $ � � $� ������� ��������.) ��� ������������ ������ ���������� ����� ������������� �����, ���� $� ������ $�, ����, ���� $� ����� $�, � ����� ������������� �����, ���� $� ������ $�. ������ ������, ��� "������ ���" ������������� ������ ��������� ����� ���������� � ������ ���������� ������; ��� ����� ����� ��������� �����, ��������� �� �������� ������� ������, �������, ��������� �� ��������� ������-�� ���� � �������������� ������������� �������� ��� ������ � � �����, ��� ����� ������ ��������.

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

sub by_number (

if ($a < $b) ( return -1;

} elsif ($a == $b) ( return 0;

} elsif ($a > $b) ( return 1;

) >

�������� �������� �� ��� by_number. �� ������ ������, � ����� ���� ������������ ��� ������ ����������, �� ����� �� �������, ������ ��� �������� �����, ������� ���������� � �������� ��_.

������� �������� ��� ������������. ���� �������� $� ������ (� ������ ������ � �������� ������), ��� �������� $�, �� ���������� �������� -1.

���� �������� �������� �����, �� ���������� ����, � � ��������� ������ ���������� 1. ����� �������, � ������������ � ����� ������������� ��������� ��������� ��� ���������� ���� ��� ������ ��������.

��� ������������������ ���������? ������� ������պ� �������������� ����� ������:

Bsomelist = (1,2,4,8,16,32,64,128,256);

���� ������������ � ���� ������� ������� ������� sort ��� ������ "���������", ����� ����� �������������� ���, ��� ����� ��� ������, ������ ���������� ����� ��������� � ������ ����� ASCII, �.�.:

Swronglist = sort Osomelist; # Owronglist ������ �������� (1,128,16,2,256,32,4,64,8)

�������, ��� �� ������ �������� �������. ������� ���������� � ����-��� sort ���� ������ ��� ������������ ��������� ����������. ��� ���� ��������� �������� ����� ����� ��������� ����� sort:

@rightlist = sort by_number Swronglist;

* @rightlist ������ �������� (1,2,4,8,16,32,64,128,256)

������ ������. �������� ��������: ������� sort ����� ��������� ������ � �� ���������, ���������� ����������, �� ������������ �����, �.�. "�������������� �� �������� ���������". ��� ������ �� ������������ � ����� ������������ ������� ��_ ("��").

����� ������� �������� (-1, 0, +1), ���������� ���������� ��������� �������� ��������, ����������� � ���������� ���������� ���������� �����, ������� � Perl ���� ����������� ��������, ������� ��������� ������� ��� ��� �� ���� ���. ��� �������� ����� �������� "��������" (��� "����������� ��������", ��� ������� �� ���������� �������� ����������� spaceship), ������ ��� �� ���� � <=>.

��������� "����������� �������", ����� �������� ���������� ���-��������� ���������� ��������� �����:

sub by_number ( $� <=> $b;

}

�������� �������� �� ���� �������� ����� ����� �����������. ��, �� ������������� ������� �� ���� ��������. ��� �������� ���������� �� �� ��������, ��� � ������� if/elsif �� ����������� ����������� ���� ���������. ������ ��� �������� ����� ������, �� ���� ����� ����� �����-���� � ������, ������� ��� ������������ ���������� ����� ����������-���, ���������� � ��� �� ������:

@rightlist " sort ( $� <=> $b } @wronglist;

 

��������� �������, ��� ����� ������ ������� ���������������. �� � ���� �� ��������. ��������� �������, ��� ��������� ����� � ��������� �������� ������������� ��������� ������� � ����������� ������������. �� ����� Perl ��� �����. ���� ����������� ������� ������: ���� ��� �� ��������� � ����� ������ ��� ������ �������������� ����� ��� �������, �� ����������� ��� ������������.

��� �������� ��������� �������� �������� "������" ���� ���������-������ ��������� �������� � ���*. ��� �������� ���������� ���� �� ���� �������� � ����������� �� ���������� ��������� ���� ���������� �� ��������� ���������. ��� ��� ����� ��-������� �������� ������� ����������, ������� ���������� �� ���������:

@result = sort ( $� cmp $b } Osomelist;

���, ��������, ������� �� �������� ������ ������ ����� ������������ (����������� ���������� ������� ����������� ����������) � ���� ������ �� �� ������ ����� � Perl. ��� �� �����, �������� ��� ��� �� ������� ���������� � ��������� ������ ��������������. ��������, ��� ��������-�� ���������� �������� �� ��������� ���������, ���� ��� �������� �� �����; ��� ��������� ��� ������ ���� ���� ����������� �� ��������� ���������. (�� ��������� ����������� ���� ������������ by_number ������ ������ ���������� ������ � ��������� �������, ������ ��� ��� ��������� ���� ������� �������� �������� ������������ �������� ������.) ��� ��� ����� ������� "��������, ���� ��� �������� �� �����, ����� ���������":

sub by mostly_numeric (

($a <=> $b) I I ($a cmp $b) ;

)

���� ��� �������� ��������� �������. ���� ��������� ������ "�������" ����� -1 ��� 1, �� ��������� ����� ��������� ������������ � ������������ -1 ��� 1. ���� "������" ���� ����, �� ����������� �������� cmp, ������� ���������� ��������������� ��������, ��������� ����������� �������� ��� ������.

������������ �� ����������� �� ��������, ������� ���������� � ���-������. �����, ��������, � ��� ���� ���, ����� �������� � ������������-��� �����, � �������� � �������� ����� �������������. �����������, �� ������ ���������� �������, � ������� ��������������� � �������� ����� ����� �������������� �� ������� �������� ����.

������� ��� �������� �����. ������� �����������, ��� �������� ��������� � ������� % names. ��������������� �����, ����� �������, ������������ ����� ������ keys (%names). ��� ����� �������� ������ ��������������� ����, ���������������� �� ��������������� ���������, ������� ��� ������ ����������� ����� $� �� ������ ��������� �������� $ names ($�} � ��������

* �� ������ ���������������. ���������� ������� sort ����������� �������� undef, � ��� ������� � ���.

���������� ������������ ������� ��������. ���� ��������� ���� ������, �� ��������� ����������� ��������� ����:

@sortedkeys = sort_by_name keys (%names);

sub by_names (

return $names{$a} cmp $names($b};

) foreach (@sortedkeys) {

print "$_ has a real name of $names($_)\n";

}

K ����� ����� ��� �������� "���������" ���������. �����������, ��� �������� ����� ���� ������������� ���������. ��-�� ��������� ������ ��������� sort �� � ������ ��� ����� �������� ��� �������� � ����� �������, � �� ������ ��� � � ������. ��� �����, ���� ������ ��������� ��������, ��������, ������� � ��������� ��������� ��� ������������ ������, ������� ������� �������� ����� �����. ������ ����� �������� � ������� �������� cmp:

sub by_names {

($names($a} cmp $names($b}) || ($a cmp $b);

���� �������� ����� ���������, �� ���������� ����� ������������ �� ��������� ���������������� �����. ��������� ��������������� ����� ��������� (����, ������ ����� �������, ��� �������� ������� ����, � ����� ��������� �� �����), �� ����� �������� ������� ��� ����������. ���� �� �� ������, ����� ������ ������� �������� ������ �� ���������� ��������������, ��������� �������������, ������ ���������� ��������� ������������ � ������ ������� ��������� ����!

��������������

���� ��� ���������� ����� ������ � �������� ��� ���������� ������-������ ������� ������ �������� ��� ������� ��, ��� ����� �������, ��� �� ��� ������, � ������� ��������� ����������� ������ s///. �����������, ������, ��� ����� ���������� ��� ����� � � ����� �, � ��� ����� b � � ����� �. ��� ������ ������� ����������� ���� ������ s///, ������ ��� ������ ������� ������� ��� ���������, ��������� ������.

����� �������������� ������ ����� ������ ����������� � shell � ������� ����������� ������� tr(l):

tr ab ba <indata >outdata

(���� �� ������ �� ������ � ������� tr, ��������� �� man-�������� tr(l);

��� �������� ����������.) � Perl ���� ����������� �������� tr, ������� �������� � �������� ��� ��:

tr/ab/ba;

 

�������� tr ��������� ��� ���������: ������_�����������_������. ��� ������������ ��� ��, ��� ��������� ������� s///; ������� �������, ������� ����� �����������, ������� ����� ����� �� �� �������� ������ tr � ��������� � ��������� ��������� (� ������ ������ ��� ����� �����, �� � ���� ���� ����� ��������� ����� ��� �������).

��������� �������� tr ������ �� ��������� ������� tr(l). �������� tr �������� ���������� ���������� $_ (������ ��� si/I}, ��������� � ��� ������� ������ ������ � ������� ��������� ������� ��������������-�� ��������� ����� ������. ��� ��������� ��������:

$_ = "fred and barney";

tr/fb/bf; # $ ������ �������� "bred and farney" tr/abcde/ABCDE/; t $_ ������ �������� "BrED AnD fArnEy" tr/a-z/A-Z/; # $_ ������ �������� "BRED AND FARNEY"

�������� �������� �� ��, ��� �������� �������� ����� ���������� ����� ���������, ������������ �������. ���� ��� ����� � ������ ����� ��� �������, ��������� ����� ��� �������� �����.

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

$_ = "fred and barney";

tr/a-z/x/; # $_ ������ �������� "���� xxx xxxxxx"

����� ����� �� �����������, ��������� � ����� �������� tr/// ����� d, ������� �������� delete ("�������"). � ������ ������ ��������� ������ �� �����������. ��� ������� ������ ������, ��� ������� ��� ������������-��� �������� � ����� ������, ������ ���������:

$ = "fred and barney";

tr/a-z/ABCDE/d; # $_ ������ �������� "ED AD BAE"

�������� �������� �� ��, ��� ��� �����, ������� ����� ����� �, ��������, ������ ��� � ����� ������ ��������������� ����� ���, � �� ��, ��� �� ������� ��� �� ������, ������ ��� �� ��� � ������ ������. �� �������� ������ ��� ������������ ������� tr c ������ -d.

���� ����� ������ ���� � ����� d �� ������������, �� ����� ������ ����� ��������� �� ������. ��� ����� ���������� ������ � ����� �������� � �� � � 2 �� 2? � �� �� ����� ���� � ���� ���� �������� �������� �����. �������� tr/// ���������� ���������� ��������, ��������� �� ������ �������, � ����� ������ �������� �� ����� ���� �� ������ �������� ����� ����� ��������, ������������ � ����� ������*. ��������:

* ��� ����������� ������ ��� ��������� ��������. ��� �������� ����� � �������� ������������� � �������� ����������� ���� /�:

while (/�������/�) { $count++;

>

$_ = "fred and barney";

$count = tr/a-z//; # $_ �� ����������, �� $count = 13 $count2 = tr/a-z/A-Z/; # $_ ���������� � ������� �������, � $count2 = 13

���� � ����� �������� �������� ����� � (��� �� ��������� ����� d), ������� ������ ������ ����� ��������������� ��� ���������� �� ������ ���� 256 ��������. ������ ������, ��������� � ������ ������, ��������� �� ������������ ���� ��������� ��������; ���������� �������, ������ �� ������� �� �������� � ��������, �������� ����� ������-���������. �����-���, ���������� ��� �������� � ����� ������ ��� �������, �� ���������� �������, ����� ���:

$_ = "fred and barney";

$count == tr/a-z//c; # $_ �� ����������, �� $count = 2

tr/a-z/_/c; # $_ ������ �������� "fred_and_barney" (�������-������� => _)

tr/a-z//cd; t $_ ������ �������� "fredandbarney" (�������-�������

�������)

�������, ��� ��� ����� ����� ����������, ��� �������� � ��������� �������, ��� �� ������� ������ ������������ �������� �� "�����������" (������ ���� ���������� ������� ���� ��������-������), � ����� � ������� ����� d ������� ��� ������� ���� ������������.

��������� ����� �������� tr/// � s, ������� �������� ��������� ����������� ����� ��������������� ����� �����. ��������:

$_ = "aaabbbcccdefghi";

tr/defghi/abcddd/s; # $_ ������ �������� "aaabbbcccabcd"

�������� ��������: ����� def �������� �� abc, a ghi (������� ��� ����� s ������������ �� � ddd) ����� ����� ������ d. ������� �����, ��� ������� ���� �� ������ ����� � ������ ����� ������ "�� ���������", ������ ��� ��� ��� �� ������ ��������������. ��� ��� ��������� ��������:

$_ = "fred and barney, wilma and betty";

tr/a-z/X/s; � $_ ������ �������� "X X X, X X X" $_ = "fred and barney, wilma and betty";

tr/a-z/_/cs; # $_ ������ �������� "fred_and_barney_wilma and betty"

� ������ �� ���� �������� ������ ����� (������� ���� �� ������ �����) ���� �������� ����� ������ �. �� ������ ������� ��� ������ ����������� �� ������ ��������-������ ����� ���������� ������� �������������.

��� � ������� s///, �������� tr ����� ����� ��������� ��� ������ �������, � �� ������ ��� �������, ���������� � ���������� $_. ��� ����������� � ������� �������� =~:

$names = "fred and barney";

$names =~ tr/aeiou/X/; # $names ������ �������� "frXd Xnd bXrnXy"

����������

������ � ����������� ��. � ���������� �.

1. �������� ���������, ������� ������ ������ ���� ������ � ��������� ������ ��� �� ��������� � �������� ����������. (���, ��� ����� � ����� ����� �� ��������� ����� ����� � ��������� ���������, � ���, ��� �� ��� � �������� ���������. ���� ����� ���, �� ��� ��� �������� �������� �����������.) ���������� ��������� ��� ��������� � ���-���� ����� /fred, bamey, fred/barney. ����� �� ���������� �����?

2. �������� ���������, ������� ������ ������ �����, ������� � ��������� �������, � ��������� �� �� �������� ���������, ������ ������-��������� � ������� � ������������� ������. (�����: ��� ������ ������� � ������������� ������ ����� ������������ ������ ��������� %20�.)

3. �������� ��������� ������ �������� � ��������������� ���� ����-��������� �� ����� /etc/passwd � ����������� �� �������� ����������-���. �������������� �� ���� ������� � ������, ���� ����� ������������� ���������� �������?

4. �������� ����, ��������� �� �����������, ������ �� ������� ����� � ��������� ������. �������� ���������, ������� ��������� ������ ������ ������� ����������� � ������� �������, � ��������� ����� ����������� � � ������. (�������� �� ��� ��������� � ������, ���� ������ ������ � �������? ��� ������ ��� ������, ���� ����������� �� ����� � ��������� �������?)




|     �����     |     ������     |


| ���������� | ����������� | �������� | ������
| ����� 1 | ����� 2 | ����� 3 | ����� 4 | ����� 5 | ����� 6 | ����� 7 | ����� 8 | ����� 9 | ����� 10
| ����� 11 | ����� 12 | ����� 13 | ����� 14 | ����� 15 | ����� 16 | ����� 17 | ����� 18 | ����� 19
| ���������� � | ���������� � | ���������� � | ���������� � |