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

Листинг 10.10.Сценарий getstats

··#!/bin/bash

··# getstats — каждые 'n' минут сохраняет значения, получаемые

··#·· с помощью netstat (из crontab).

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

··temp="/tmp/getstats.$$.tmp"

··trap "$(which rm) −f $temp" 0

··if [! -e $logfile]; then·· # Первый запуск?

····touch $logfile

··fi

··(netstat −s — p tcp > $temp

··# Проверьте свой файл журнала после первого запуска: некоторые версии netstat

··#·· выводят несколько строк вместо одной, именно поэтому здесь используется

··#·· последовательность "| head -1".

··sent="$(grep 'packets sent' $temp | −d— d\ −f1 | sed \

··'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;