Помогите перевести это из перла в шелл. У меня роутер на CompactFlash карточке под FreeBSD. Ставить ради одной строчки перл на роутер с 40 мегами диска - не имею возможности. Спасибо.

tail -F /var/log/all.log | perl -ne 'if (/ Portscan detected from ([\d\.]+)/) { `sh /1.sh $1`;}'

• Помогите перевести код в шелл с перла,Roman Y. Bogdanov, 11:54 , 12-Янв-04

>Помогите перевести это из перла в шелл. У меня роутер на 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

Спасибо.