Дейв Тейлор - Сценарии командной оболочки. Linux, OS X и Unix. 2-е издание

··'s/[^[: digit: ]]//g' | head -1)"

··resent="$(grep 'retransmitted' $temp | cut −d\ −f1 | sed \

··'s/[^[: digit: ]]//g')"

··received="$(grep 'packets received$' $temp | cut −d\ −f1 | \

····sed 's/[^[: digit: ]]//g')"

··dupacks="$(grep 'duplicate acks' $temp | cut −d\ −f1 | \

····sed 's/[^[: digit: ]]//g')"

··outoforder="$(grep 'out-of-order packets' $temp | cut −d\ −f1 | \

····sed 's/[^[: digit: ]]//g')"

··connectreq="$(grep 'connection requests' $temp | cut −d\ −f1 | \

····sed 's/[^[: digit: ]]//g')"

··connectacc="$(grep 'connection accepts' $temp | cut −d\ −f1 | \

····sed 's/[^[: digit: ]]//g')"

··retmout="$(grep 'retransmit timeouts' $temp | cut −d\ −f1 | \

····sed 's/[^[: digit: ]]//g')"

··/bin/echo −n "time=$(date +%s);"

··/bin/echo −n "snt=$sent;re=$resent;rec=$received;dup=$dupacks;"

··/bin/echo −n "oo=$outoforder;creq=$connectreq;cacc=$connectacc;"

··echo "reto=$retmout"

··) >> $logfile

··exit 0

Второй сценарий (в листинге 10.11) анализирует журнал с накопленными данными netstat.

Листинг 10.11.Сценарий netperf для использования в паре со сценарием getstats

··#!/bin/bash

··# netperf — анализирует файл журнала с данными о функционировании сети,

··#·· полученными с помощью netstat, выявляет важные значения и тенденции.

··log="/Users/taylor/.netstatlog" # Измените в соответствии с вашей конфигурацией.

··stats="/tmp/netperf.stats.$$"

··awktmp="/tmp/netperf.awk.$$"

··trap "$(which rm) −f $awktmp $stats" 0

··if [! -r $log]; then

····echo "Error: can't read netstat log file $log" >&2

····exit 1

··fi

··# Сначала сообщить основные статистики из последней записи в файле журнала…

··eval $(tail -1 $log) # Превратит все значения в переменные командной оболочки.

··rep="$(scriptbc −p 3 $re/$snt\*100)"

··repn="$(scriptbc −p 4 $re/$snt\*10000 | cut −d. -f1)"

··repn="$(($repn / 100))"

··retop="$(scriptbc −p 3 $reto/$snt\*100)";

··retopn="$(scriptbc −p 4 $reto/$snt\*10000 | cut −d. -f1)"

··retopn="$(($retopn / 100))"

··dupp="$(scriptbc −p 3 $dup/$rec\*100)";

··duppn="$(scriptbc −p 4 $dup/$rec\*10000 | cut −d. -f1)"

··duppn="$(($duppn / 100))"

··oop="$(scriptbc −p 3 $oo/$rec\*100)";

··oopn="$(scriptbc −p 4 $oo/$rec\*10000 | cut −d. -f1)"

··oopn="$(($oopn / 100))"

··echo "Netstat is currently reporting the following: "

··/bin/echo −n " $snt packets sent, with $re retransmits ($rep%) "

··echo "and $reto retransmit timeouts ($retop%)"

··/bin/echo −n " $rec packets received, with $dup dupes ($dupp%)"

··echo " and $oo out of order ($oop%)"

··echo " $creq total connection requests, of which $cacc were accepted"

··echo ""

··## Теперь определить присутствие существенных проблем,

··##·· о которых следует сообщить.

··if [$repn −ge 5]; then

····echo "*** Warning: Retransmits of >= 5 % indicates a problem "

····echo "(gateway or router flooded?)"

··fi

··if [$retopn −ge 5]; then

····echo "*** Warning: Transmit timeouts of >= 5 % indicates a problem "

····echo "(gateway or router flooded?)"

··fi

··if [$duppn −ge 5]; then

····echo "*** Warning: Duplicate receives of >= 5 % indicates a problem "

····echo "(probably on the other end)"

··fi

··if [$oopn −ge 5]; then

····echo "*** Warning: Out of orders of >= 5 % indicates a problem "

····echo "(busy network or router/gateway flood)"

··fi

··# Теперь проанализировать некоторые тенденции…

··echo "Analyzing trends…"

··while read logline; do

······eval "$logline"

······rep2="$(scriptbc −p 4 $re / $snt \* 10000 | cut −d. -f1)"

······retop2="$(scriptbc −p 4 $reto / $snt \* 10000 | cut −d. -f1)"

······dupp2="$(scriptbc −p 4 $dup / $rec \* 10000 | cut −d. -f1)"

······oop2="$(scriptbc −p 4 $oo / $rec \* 10000 | cut −d. -f1)"

······echo "$rep2 $retop2 $dupp2 $oop2" >> $stats

··done < $log

··echo ""

··# Теперь вычислить некоторые статистики и сравнить их с текущими значениями.

··cat << "EOF" > $awktmp

······{ rep += $1; retop += $2; dupp += $3; oop += $4 }

··END { rep /= 100; retop /= 100; dupp /= 100; oop /= 100;

········print "reps="int(rep/NR) ";retops=" int(retop/NR) \

··········";dupps=" int(dupp/NR) ";oops="int(oop/NR) }

··EOF

··eval $(awk −f $awktmp < $stats)

··if [$repn −gt $reps]; then

····echo "*** Warning: Retransmit rate is currently higher than average."

····echo " (average is $reps% and current is $repn%)"

··fi

··if [$retopn −gt $retops]; then

····echo "*** Warning: Transmit timeouts are currently higher than average."

····echo " (average is $retops% and current is $retopn%)"

··fi

··if [$duppn −gt $dupps]; then

····echo "*** Warning: Duplicate receives are currently higher than average."

····echo " (average is $dupps% and current is $duppn%)"

··fi

··if [$oopn −gt $oops]; then

····echo "*** Warning: Out of orders are currently higher than average."

····echo " (average is $oops% and current is $oopn%)"

··fi

··echo \(Analyzed $(wc −l < $stats) netstat log entries for calculations\)

··exit 0

Программа netstat чрезвычайно полезна, но ее вывод может показаться пугающим. В листинге 10.12 показаны только первые его десять строк.

Листинг 10.12.Запуск netstat для получения информации о TCP

$ netstat −s — p tcp | head

tcp:

····51848278 packets sent

········46007627 data packets (3984696233 bytes)

········16916 data packets (21095873 bytes) retransmitted

········0 resends initiated by MTU discovery

········5539099 ack-only packets (2343 delayed)

········0 URG only packets

········0 window probe packets

········210727 window update packets

········74107 control packets

Первый шаг — извлечь только записи с интересной информацией и сведениями о функционировании сети. В этом заключается главная задача сценария getstats, и он решает ее, сохраняя вывод команды netstat во временном файле $temp и извлекая из него ключевые параметры, такие как общее количество отправленных и полученных пакетов. Строка , например, извлекает количество отправленных пакетов.

Команда sed удаляет любые нечисловые значения, чтобы гарантировать отсутствие любых символов пробелов и табуляции в результатах. Затем все извлеченные значения записываются в файл журнала .netstatlog , в формате var1Name=var1Value; var2Name=var2Value; и так далее. Этот формат позволит потом использовать eval для интерпретации каждой строки в .netstatlog и сохранить все прочитанные значения в переменных командной оболочки:

time=1063984800;snt=3872;re=24;rec=5065;dup=306;oo=215;creq=46;cacc=17;reto=170

Сценарий выполняет анализ содержимого файла .netstatlog , выводит последние значения параметров функционирования сети и сообщает о любых аномалиях и других значениях, неуклонно увеличивающихся с течением времени. Сценарий netperf вычисляет текущий процент повторно отправляемых пакетов, деля их количество на общее число отправленных пакетов и умножая результат на 100. Целочисленная версия процента повторно отправляемых пакетов получается делением количества повторно отправленных пакетов на общее количество отправленных пакетов, умножением на 10 000 и делением на 100 .