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

����� 18

    � ���� �����:


�������������� ������ �������� � Perl-���������

�������������� awk-�������� � Perl-���������

���� �� ����� ������������� ������������ Perl ������� � ���, ��� �� ������������ ����� ������������� ������������ (��� �������) ����� awk. � ������������ ����� ������ ��� ������, ��� ���� �� ������ ������� ���-���� � awk, �� ������� ������� ��� � � Perl. ��� ����, ������, Perl �� �������� �������������� �������������� � awk. ��������, ���������� NR (����� ������� ������) awk �������������� � Perl ��� $.

���� � ��� ���� �^-��������� � �� ������ ��������� �� Perl-�������, ����� ����������� ������������ �������������� ���� ��������� � ����-��� ������� �2�, ������� ���� � ������������ Perl. ��� ������� ������������ ��������� awk � ��������� Perl � ����� ������� ��������������� ��������-��� Perl-�������� ��� ������������ ����������� ��^-��������.

����� ��������������� �������� �2�, ��������� ���� aw/^-��������� � ��������� ���� � �������� �2� � ������ ����� ����� � �������� ��������� ��� ������������� ����������� ���� �2� �� ���� �� ����� �����. � ���������� �� ����������� ������ �2� �� �������� ���������� Perl-���������. ��������:

$ cat myawkprog

Bb.SIN { sum = 0 )

/llama/ ( sum += $2 )

END { print "The llama count is " sum }

$ a2p <myawkprog >myperlprog $ perl myperlprog somefile The llama count is 15 $

����� ����� ��������� ����������� ����� a2p ����� � Perl, ������ ��� ������������� Perl ��������� ��������� �� ������������ �����, ���� ����-���� ����� ��������:

$ a2p <myawkprog I perl - somefile

The llama count is 15

$

��������������� ��� ������������� � Perl aw^-��������, ��� �������, ��������� ���������� �������, ����� � ������� ��������� �, �������, ��� �����-���� �������� awk ����������� �� ����� ������, ���������� ���������� � �.�. ��������� ��������������� Perl-��������� ����� �����-������ ���������; Perl-��������, ������������� ������ awA-��������, �� ����������� ����� ����� ����������� Perl-�����, �� ��������� � ����-������ �������.

��, ��������, �������� �������������� ��������������� Perl-��� ��� �������� � Perl-������ ��������� ������ �������������� �����������. ��� ������� �������� ������, ��������� ���������� Perl-��� �������� ���������� ����� (��������, ��� ������� ����������� �������������, ���-���� �������� ��� ��� ������� ����������).

� ��������� ������� ������� �� ����������� �����������. ��������, ��������� "������ ���" � ��� �����, � ��� ����� � awk ���������� ��������� <. � Perl ��� ����� ������������ it, � ��� ����� � �������� <. � ����������� ������� awk, ��� � ������� a2p, ������ �������� ��������-����� ������������ ��������� ��� ���������� ��������� ���� ������������ ��������. ������ ������ ��������, ��� � �����-������ ���� ��������� ����� �������� ������������ ����� ��� ����, ����� ����������, ����� ������ ����������� ��������� � �������� ��� ���������, ������� a2p ���������� �������� ��������� �������� � �������� �������� ��������� ������ ������� #?? (Perl-������������) � ����������. ����� ���������-����� ����������� ����������� ��������� �� ������� ������� ����� ������-������ � ��������� ��������� �������������. ����� �������� � ������ ������� a2p �������������� �� �� man-��������. ���� ���� ������� � ��� ��������, ������ �� ��������� Perl, ���, ������ ����������� ����, ��� ������������� ��� Perl.

�������������� sed-�������� � Perl-���������

����� ����, ��� ���������, ��� �� ������Ѻ���, �� ��������, ��� �� ������ ������? � ��� ���: Perl � ������������� ������������ �� ������ awk, �� � sed.

� ������������� ������������ ��������� sed-��Բ, ������� ���������� s2p. ��� � �2�, s2p �������� �� ������������ ����� ,��</-�������� � ���������� �� ����������� ����� Perl-���������. � ������� �� ���������� ������ �2�, ��������������� ��������� ����� ����� ���� �� ���, ��� �����, ������� �� ������ ������ ������������ �� �� ���������� ������ (��� ���������� �������� � ����� s2p ��� Perl).

���������������� 5��/-��������� ����� �������� ������� ��� ������-��� ���������. ��� �������, ��� �������� ����������� ������� (��������� ������ ���������������� Perl-���������� ��������� ���������� ���������).

���������������� waf-�������� ����� �������� � ������ -� ��� ��� ���. ����� -� ����� ��� �� �����, ��� � ��������������� ���� ��� sed. ����� ��������������� ���� ������, ���������������� �������� ������ ��������� ��� ���� � ������������ �, � ��� ��������� ��������� ������. ���� �� ������, ��� ������ ������ �������� ���������������� wdf-�������� � ������ -� ��� ��� ��� (��������, ��� �������������� wfif-��������, ������������� � ������� shell-���������� � ���������� �����������), �� ������ ������������� ������� s2p �� ���� (����������� ������ -� � -�), � ��� ������������ �������� ��� ��������� ���� ����.

� �������� �������, ���������������� ������� ��������������� � ���� ����� Perl, ������� ��� ����, ��� ���������� s2p ������� �� Perl. ���� �� ������ �������, ��� ����� ������������� �� Perl, ��������� �� ���� ���������� � ������ ������� ������, ����� �� ������ (���� � ������ ����, ��� ��� ����� ������� ���, ������������ �� ������������ � ������ 2).

�������������� shell-��������� � Perl-���������

��, ��������, ��������, ��� ���� ������ � ����������, �������������� �������������� shell-��������� � Perl-���������?

� ��� � ���. ������ ���������� � ����� ���������, �� �������� � ���, ��� ����������� �� ����, ��� ������ ��������, �������� ������ �� �� �����. ����������� ��������� shell ������ ����������� ��� ��Ϻ ����� �� ������ ��������� �������� ��� ���������� ���������� �����, ��������� �����, ������������ ������, �������� ��������� � �.�. �������������� ������ �������� � Perl ��������� �� ��������� �������� ������ ������ �� ���������� ������ ��� �������������� ������ ������ �� ��� �� ����� Perl, ��� ��������� ������ �� ����.

������� ������, ��� �� ������ �������, ~ ��� ���������� �� �������� shell, ����������, ��� �� ������, � ������ ��� � ����, �� ��� �� Perl. �������, �� ������ �������� �� ������ ���� �������������� � �������� �������� ����� ��������� �������� � ������ system () ��� �������� �� � �������� �������. ��������, ��� ������� �������� ��������� �������� ��������� Perl: ��������, �������� system(rm /red) �� unlink (fred) ��� ���� for shell �� ����� �� ���� Perl. � ����������� �������, ������, �� �������, ��� ��� ��������� ���������� ��������������� ���������, ���������� �� ������, � � (����� � ��� �� ����������� ���������� �������� �, ��� ���������, ���������� ������� ��������������� ������ ���������).

����������

����� ��. � ���������� �.
1. ������������ ��������� �������� shell � Perl-���������:

cat /etc/passwd I

awk -F: '(print $1, $6(' |

while read user home

do

newsrc="$home/.nevsrc" if [ -r $newsrc ] then

if grep -s "'����\.lang\.perl\.announce: ' $newsrc then

echo -n "$user is a good person, ";

echo "and reads comp.lang.perl.announce!" fi fi done




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


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