UNIX — универсальная среда программирования - Керниган Брайан Уилсон

Читать онлайн «UNIX — универсальная среда программирования». Страница 53

Автор Керниган Брайан Уилсон

$ cat double

awk '

FILENAME != prevfile { # new file

NR = 1 # reset line number

prevfile = FILENAME

}

NF > 0 {

if ($1 == lastword)

printf "double %s, file %s, line %d\n" ,$1, FILENAME, NR

for (i = 2; i <= NF; i++)

if ($i == $(i-1))

printf "double %s, file %s, line %d\n", $i, FILENAME, NR

if (NF > 0)

lastword = $NF

}' $*

*

$

Операция

++

означает автоувеличение операнда, а операция

--

— его автоуменьшение.

Встроенная переменная

FILENAME

хранит имя текущего входного файла. Поскольку в переменной

NR

подсчитывается число строк с начала входного потока, мы изменяем ее значение всякий раз при изменении имени файла, чтобы точно указать строку с двойником.

Оператор

if

— такой же, как в языке Си:

if (условие)

оператор1

else

оператор2

Если условие верно, то выполняется

оператор1

; если оно ложно и если альтернативная часть присутствует, то выполняется

оператор2

. Альтернативная часть не обязательна.

Цикл

for

аналогичен таковому в языке Си, но отличается от цикла в языке

shell

for (выражение1; условие; выражение2)

оператор

Цикл

for

идентичен приведенному ниже оператору, который также допустим в программе

awk

Выражение1 while (условие) {

оператор

выражение2

}

Например, конструкция

for (i=2; i <= NF; i++)

является циклом с

i

, принимающим значения 2, 3 и т.д., включая число полей

NF

Оператор

break

вызывает немедленный выход из цикла

while

или

for

; оператор

continue

инициирует переход к следующему шагу цикла (к условию в операторе

while

или к

выражению2

в операторе

for

). Оператор

next

вызывает чтение следующей входной строки и сопоставление ее с шаблонами с начала программы

awk

, а оператор

exit

— немедленный переход на действия, определенные в шаблоне

END

Массивы

Как и в большинстве языков программирования, в

awk

есть массивы. В качестве простого примера приведем программу

awk

, в которой каждая входная строка заносится в отдельный элемент массива, индексируемого номером строки, а затем они печатаются в обратном порядке:

$ cat backwards

# backwards: print input in backward line order

awk ' { line[NR] = $0 }

END { for (i = NR; i > 0; i--) print line[i] } ' $*

$

Заметьте, что подобно переменным, массивы не нужно описывать; размер массива ограничен только объемом памяти, доступным на вашей машине. Конечно, если очень большой файл заносится в массив, в конце концов, это может привести к исчерпанию ресурсов памяти. Для печати конца большого файла в обратном порядке следует обратиться за помощью к команде

tail

$ tail -5 /usr/dict/web2 | backwards

zymurgy

zymotically

zymotic

zymosthenic

zymosis

$

Команда

tail

использует возможности файловой системы — операцию "поиск" (seeking), позволяющую перейти к концу файла без чтения всей предшествующей информации. Подробнее эта операция будет рассмотрена при обсуждении функции

lseek

в гл. 7. (В нашей команде

tail

есть флаг

-r

, который определяет печать строк в обратном порядке, заменяя команду

backwards

При обычной обработке входная строка разбивается на поля. Эту операцию можно выполнить с помощью встроенной функции

split

над любой строкой:

n = split(s, arr, sep)

Строка

s

разбивается на поля, записываемые в элементы массива

arr

от 1 до

n

. Используется символ разделения полей

sep

, если он задан; в противном случае применяется текущее значение переменной

FS

. Например, обращение

split($0, а, ":")

разбивает входную строку на столбцы, что подходит для обработки файла

/etc/passwd

, поэтому обращение

split("9/29/83", date, "/")

разбивает дату по символам дробной черты.

$ sed 1q /etc/passwd | awk '{split($0, a, ":"); print a[1]}'

root

$ echo 9/29/83 | awk '{split($0, date, "/"); print date[3]}'

83

$

В табл. 4.5 перечислены встроенные функции

awk

`cos(expr)`	Косинус `expr`
`exp(expr)`	Возведение в степень `expr`
`getline()`	Чтение следующей входной строки; возвращает 0 в случае конца файла, в противном случае 1
`index(s1, s2)`	Положение строки `s2` в `s1` ; возвращает 0, если строка не входит
`int(expr)`	Целая часть `expr` ; округляет по минимуму
`length(s)`	Длина строки `s`
`log(expr)`	Натуральный логарифм `expr`
`sin(expr)`	Синус `expr`
`split(s, a, c)`	Разбиение `s` на `а[1]` ... `a[n]` по символу `c` ; возвращает `n`
`sprintf(fmt, ...)`	Форматирование в соответствии со спецификацией `fmt`
`substr(s,m,n)`	Подстрока в `n` символов строки `s` , начинающаяся с индекса `m`