>Помогите перевести это из перла в шелл. У меня роутер на CompactFlash
>карточке под FreeBSD. Ставить ради одной строчки перл на роутер с
>40 мегами диска - не имею возможности. Спасибо.
>
>tail -F /var/log/all.log | perl -ne 'if (/ Portscan detected from ([\d\.]+)/)
>{ `sh /1.sh $1`;}'

Подсказали:

while read a ; do echo "$a" |grep "whatineed" ; done

Спасибо.