Hi , I need a small help . I have one script with these commands.But I think perl can do it efficiently.
What will be the perl equivalent for this -
grep UNBIND $file|tr "=" " "|awk '{print $4}' > /tmp/con
for i in `cat /tmp/con`
do
ip=`grep $i $file |grep from |awk '{print $8}'`
op=`grep $i $file |grep UNBIND |tr "=" " "|awk '{print $6}'`
echo "$ip $op" >> /tmp/ipop
Thanx
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
