����� 18� ���� �����:
�������������� sed-�������� � Perl-��������� �������������� shell-��������� � Perl-��������� ���������� �������������� ������ �������� � 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. � ����������� �������, ������, �� �������, ��� ��� ��������� ���������� ��������������� ���������, ���������� �� ������, � � (����� � ��� �� ����������� ���������� �������� �, ��� ���������, ���������� ������� ��������������� ������ ���������). ���������� ����� ��. �
���������� �. 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 |