В частности, нам хотелось бы иметь возможность обращаться с полноценными запросами к выводу программы или файлу журнала. Допустим, вы спрашиваете у ps; «Покажи мне все непривилегированные процессы размером больше 10Кб» или «Какие команды работают на псевдоконсолях?»

Программа psg гер умеет делать все это и бесконечно большее, потому что в ней критерии отбора не являются регулярными выражениями; они состоят из полноценного кода Perl. Каждый критерий последовательно применяется к каждой строке вывода. В результате выводятся лишь те данные, которые удовлетворяют всем аргументам. Ниже приведены примеры критериев поиска и соответствующие им командные строки.

• Строки со словами, заканчивающимися на sh: % psgrep /shXb/

• Процессы с именами команд, заканчивающимися на sh; % psgrep command =~ /sh$/

• Процессы с идентификатором пользователя, меньшим 10: % psgrep uid < 10

• Интерпретаторы с активными консолями; % psgrep command =" /"-/ tty ne

• Процессы, запущенные на нсевдоконсолях: % psgrep tty =- /"[p-t]

• Отсоединенные непривилегированные процессы: % psgrep uid && tty eq

• Большие непривилегированные процессы:

% psgrep size > 10 * 2**10 uid >= О

Ниже показаны данные, полученные при последнем вызове psg rep на нашем компьютере. Как и следовало ожидать, в них попал только netscape и его вспомогательный процесс:

FLAGS UID PID PPID PRI N1 SIZE RSS WCHAN STA TTY TIME COMMAND

0 101 9751 1 0 0 14932 9652 do.select S pi 0:25 netscape 100000 101 9752 9751 0 0 10636 812 do select S pi 0:00 (dns

helper)

В примере 1.6 приведен исходный текст программы psgrep. Пример 1.6. psgrep

#1/usr/bin/perl -w

tt psgrep - фильтрация выходных данных ps

tt с компиляцией пользовательских запросов в программный код

my Scode = "sub is desirable { " join(" and ", (SARGV) } ; unless (eval Scode.1) {

die "Error in code: $@\n\t$code\n";

open (PS, "ps wwaxl 1") 11 die "cannot fork. $! ;

print scalar <PS>, # Строка-заголовок

while (<PS> {

@fields{@fieldnames} = trim(unpack($fmt, $ ));

print if is desirable(); # Строки, удовлетворяющие критериям

close(PS) 11 die "ps failed!";

# Преобразовать позиции разреза в формат распаковки sub cut2fmt {

my(@positions) = @ ; my Stemplate = ; my Slastpos = 1; foreach $place(positions) {

Stemplate .= "A" . (Splace - Slastpos) . " "; Slastpos = Splace;

Stemplate .= "A*";

продолжение

use strict;

# Все поля из заголовка PS

my (Sfieldnames = qw(FLAGS UID PID PPID PRI NICE SIZE RSS WCHAN STAT TTY TIME COMMAND),

# Определение формата распаковки (в примере

# жестко закодирован формат ps для Linux)

my $fmt = cut2fnit(8, 14, 20, 26, 30, 34, 41, 47, 59, 63, 67, 72);

my %fields; # Для хранения данных

die «Thanatos unless @ARGV; usage: $0 criterion ,,,

Each criterion is a Perl expression involving:

(Sfieldnames

All criteria must be met for a line to be printed Thanatos

# Создать синонимы для uid, size, UID, SIZE и т д,

# Пустые скобки необходимы для создания прототипа без аргументов for my $name (@fieldname) {

no strict refs;

•name = *{lc $name} = sub () { $fields{$name} };

sub trim {

my @out = @ ; for (@out) { s/"\s+ ; s/\s+$ ;

return wantarray @out

out[0];

tt Следующий шаблон использовался для определения позиций разреза. tt Далее следует пример входных данных

#123456789012345678901234567890123456789012345678901234567890123456789012345

В программе/Jsgre/J объединены многие приемы, представленные в книге. Об удалении начальных и конечных пропусков рассказано в рецепте 1.14. Преобразование позиций разреза в формат unpack для извлечения полей с фиксированным положением рассматривается в рецепте 1.1. Поиску регулярных выражений в строках посвящена вся глава 6.

Многострочный текст, передаваемый die, представляет собой встроенный документ (см. рецепты 1.10 и 1.11). Присваивание @fields{@fieldnames} заносит сразу несколько величин в хэш %f ields. Хэши рассматриваются в рецептах 4.7 и 5.10.

Входные данные программы-примера, расположенные под END , описаны в

рецепте 7.6. На стадии разработки для тестирования использовались «консервированные» данные, полученные через файловый манипулятор DATA. Когда программа заработала, мы перевели ее на получение данных из присоединенной команды ps, однако исходные данные были оставлены для будущего переноса на другие платформы и сопровождения. Конвейерный запуск других программ рассматривает-

Пример 1.6 (продолжение)

return Stemplate;