develooper Front page | perl.beginners | Postings from April 2002

perl equivalent

Thread Next
From:
Anand, Pankaj
Date:
April 2, 2002 16:39
Subject:
perl equivalent
Message ID:
B730AD2E20774E408218D07F437012B32C2A2B@cs07mail.bestbuy.com
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



Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About