[Ilugc] Some major help with Regex and perl

  • From: natarajan_k@xxxxxxxx (Natarajan K)
  • Date: Tue, 3 Sep 2002 22:43:28 +0530

On Tuesday 03 Sep 2002 21:35, Abhilash_Shanmugham wrote:

#comments1
DNFAR1S query tli tcp /dev/tcp \x00020bb8a9f3702f0000000000000000

#comments
V1=DNFAR1S
V2=query
v3=tcp
v4=/dev/tcp
v5=0002
v6=3000 // dec of 0bb8
v7=169.43.112.47 // (a9f3702f converted to decimal )

How do I match this pattern  repeatedly so that I can create another file
like this

        awk is your friend here. It does a line by line scan and fields in each 
line 
are numbered $1, $2 etc. You can write these variables to a file in the 
desired format. 

For eg. 
The awk acript is 

BEGIN { x=0;}
{
print  "a=" $1;
print  "b=" $2;
print  "c=" $3;
print "End of record " x
x = x + 1;
}
END{}

#Input is 
1 2 3 
4 5 6 
7 8 9


#Output 
a=1
b=2
c=3
End of record 0
a=4
b=5
c=6
End of record 1
a=7
b=8
c=9
End of record 2

Invocation is 
awk -f awkscriptname input_file
--
Natarajan

Other related posts: