Project

General

Profile

Download (702 Bytes) Statistics
| Branch: | Tag: | Revision:
1
BEGIN {
2
	FS		= " "
3
	numlist = 0
4
	nblines = 15
5
}
6
{
7
	if ( numlist == 1 && $1 == "--------------------------------------------------------------------------------------------" ) {
8
		exit
9
	}
10

    
11
	if ( numlist == 0 && $1 == "--------------------------------------------------------------------------------------------" ) {
12
		numlist = 1
13
		next
14
	}
15

    
16
	if ( numlist == 1 ) {
17
		if ( $0 ~ "=>" && nblines > 0 ) {
18
			SENDER = $2
19
			STX = pfFormat($4)
20
			getline
21
			RECEIVER = $1
22
			RTX = pfFormat($3)
23
			printf "%s;%s;%s\n", SENDER, RTX, STX
24
			printf "%s;%s;%s\n", RECEIVER, STX, RTX
25
			nblines--
26
			if ( nblines < 1 ) {
27
				exit
28
			}
29
		}
30
		next
31
	}
32
}
33
END {
34
}
35

    
36
function pfFormat(str) {
37
 	sub("b","",str)
38
	return str
39
}
(7-7/17)