Perl

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

Rambler's Top100
chomp

������� �� ������� ���������� �������� ������ ���������� ������ ���������� ������, ��������������� �������� ���������� $/ (�� ��������� - ������ ����� ������ "\n"). ���������� ����� ���������� ��������� ��������. ������ ����� �������� �� ����� ����������.
chomp ������
chomp     (������������ chmod $_)

chop

������� �� ������� ���������� �������� ������ ��������� ������. ������������ �������� - ��������� ������ �� ���������� �������� ������. ����� ����� �������� �� ����� ����������.
chop ������
chop      (������������ chop $_)

chr

���������� ������, ��� �������� ����������� �������� ����������.
chr �����
chr       (������������ chr $_)

crypt

������� ����� � �������������� ��������� � ��������� �����. �������� ������� ���������� �� ����������.
crypt �����, ����

hex

�������������� ��������� ��������� ��� ����������������� ����� � ��������� ��� ���������� ����������.
hex ���������
hex       (������������ hex $_)

index

���������� ������� ������� ��������� ��������� ��������� � �������� ������ ��� -1, ���� ��������� �� �������. ���� ����� �������� �������, �� ����� ��������� ��������������, ������� � �������� ������� � ������ (0 - ������ ������)
index ������, ���������[, �������]

lc

����������� ��� ��������� ����� ���������� ��������� ��������� � �������� � ���������� ���������� ������. ���������� ������� ��������� �����������, ���� ������������ use local.
lc ���������
lc        (������������ lc $_)

lcfirst

����������� ������ ������ ���������� ��������� ��������� � ������ ������� � ���������� ���������� ������. ���������� ������� ��������� �����������, ���� ������������ use local.
lcfirst ���������
lcfirst   (������������ lcfirst $_)

length

���������� ���������� ������ � ������, ���������� ��������� ��������� ���������.
length ���������
length    (������������ length $_)

oct

�������������� ��������� ��������� ��� ������������ ����� � ��������� ��� ���������� ����������. ���� ������ ���������� � �������� "0x", �� �� ���������� ���������������� ��� ����������������� �����.
oct ���������
oct       (������������ oct $_)

ord

���������� �������� ASCII-��� ������� ������� ������, ���������� ��������� ��������� ���������.
ord ���������
ord       (������������ ord $_)

pack

����������� ������ ��� ������ �������� � �������� ��������� � ������������ � �������� ��������, �������������� ����� ������������������ ��������, ������� ������ ������� � ��� ��������. ���������� ������, ���������� ���������� ���������.
pack ������, ������

reverse

� ��������� ��������� ���������� ������ ��������, ��������� �� ��������� ��������� ���������� ������ ������; � ��������� ��������� ��������� ��� �������� ������ � ���� ������ � ���������� ������, ��������� �� �������� ���������� ������, �� � �������� �������.
reverse ������

rindex
��������� :
rindex STR, SUBSTR, POSITION

������� ���������, ������������ ������ �������� POSITION, ��������� ��������� SUBSTR � ������ STR, � ���������� ��������� �������. ���� ��������� SUBSTR �� �������, ������������ �������� $[ -1.

������ :
#!/bin/perl
$STR = "���� ��������, ��������, ��������, �������� ���!";
$SUBSTR = "��������";
$POS = 7;
print "������ ������� ������� ������ �� ��������� ����� $[\n";
print "������� ������� ��������� ��������� '$SUBSTR'
           � ������ '$STR' = ",index($STR, $SUBSTR), "\n";
print "������� ������� ����� ������� $POS ��������� ��������� '$SUBSTR'
           � ������ '$STR' = ",index($STR, $SUBSTR, $POS), "\n";
print "������� ���������� ��������� ��������� '$SUBSTR'
           � ������ '$STR' = ",rindex($STR, $SUBSTR), "\n";
print "������� ���������� ����� �������� $POS ��������� ��������� '$SUBSTR'
           � ������ '$STR' = ",rindex($STR, $SUBSTR, $POS), "\n";
$[=2;
print "\n����� ������� ������� ������ �� ��������� ������� �� $[\n";
print "������� ������� ��������� ��������� '$SUBSTR'
           � ������ '$STR' = ",index($STR, $SUBSTR), "\n";
print "������� ������� ����� ������� $POS ��������� ��������� '$SUBSTR'
           � ������ '$STR' = ",index($STR, $SUBSTR, $POS), "\n";
print "������� ���������� ��������� ��������� '$SUBSTR'
           � ������ '$STR' = ",rindex($STR, $SUBSTR), "\n";
print "������� ���������� ����� �������� $POS ��������� ��������� '$SUBSTR'
           � ������ '$STR' = ",rindex($STR, $SUBSTR, $POS), "\n";
� ���������� ���������� ������� ����� �������� ��������� ������ :
������ ������� ������� ������ �� ��������� ����� 0
������� ������� ��������� ��������� '��������'
   � ������� '���� ��������, ��������, ��������, �������� ���!' = 5
������� ������� ����� ������� 7 ��������� ��������� '��������'
   � ������ '���� ��������, ��������, ��������, �������� ���!' = 15
������� ���������� ��������� ��������� '��������'
   � ������� '���� ��������, ��������, ��������, �������� ���!' = 35
������� ���������� ����� �������� 7 ��������� ��������� '��������'
   � ������ '���� ��������, ��������, ��������, �������� ���!' = 5
������ ������� ������� ������ �� ��������� ������� �� 2
������� ������� ��������� ��������� '��������'
   � ������� '���� ��������, ��������, ��������, �������� ���!' = 7
������� ������� ����� ������� 7 ��������� ��������� '��������'
   � ������ '���� ��������, ��������, ��������, �������� ���!' = 7
������� ���������� ��������� ��������� '��������'
   � ������� '���� ��������, ��������, ��������, �������� ���!' = 37
������� ���������� ����� �������� 7 ��������� ��������� '��������'
   � ������ '���� ��������, ��������, ��������, �������� ���!' = 7

sprintf

���������� ������, �������������� ��������� ����� ������ �������� ������������� ��������� ������, � ������������ � �������� ������ ���������� ������ ������� �������. ������� �������������� ������������� ����������� ������� � ����� C.
sprintf ������, ������

substr

��������� �� ������, �������� ���������� ������, ��������� ������ ������ �������� ��������� �����, ������� � �������, ��������� ���������� ��������. ���� �������� ������������, �� ���������� ���������� � ���������� ������� ������. ���� �������� ��������� ����� ������������, �� �� ����� ������ ���������� ���������� ��������, ������ ����������� �������� ����� ���������. ���� ������ ������ ���������, �� ���������� ��������� ���������� �� � ��������� ������, ������ � ���� ������ ������ ���� lvalue.
substr ������, �������� [, �����[, ���������]]

uc

����������� ��� �������� ����� ���������� ��������� ��������� � ��������� � ���������� ���������� ������. ���������� ������� ��������� �����������, ���� ������������ use local.
uc ���������
uc        (������������ uc $_)

ucfirst

����������� ������ ������ ���������� ��������� ��������� � ������� ������� � ���������� ���������� ������. ���������� ������� ��������� �����������, ���� ������������ use local.
ucfirst ���������
ucfirst   (������������ ucfirst $_)
�� ���������� ����� �.��������� � �.������� "����������� Perl"
www.bhv.ru, www.bhv.kiev.ua
��������� � ����� "���������� Web-������": www.spravkaweb.ru.

Rambler's Top100