> 112.58.26.32.32770 > 192.35.51.30.53:  64596[|domain] (DF)
> 112.58.26.32.32770 > 192.100.59.110.53:  24685 [1au][|domain] (DF)
> 112.58.26.4.2506 > 216.148.227.69.80: . ack 3280436924 win 2920 (DF)
> 112.58.26.4.2506 > 216.148.227.69.80: . ack 1759 win 1162 (DF)
> 112.58.26.4.2498 > 66.207.130.76.80: . ack 2195940947 win 7906 (DF)
> 112.58.26.4.2498 > 66.207.130.76.80: R 2576805184:2576805184(0) win 0 (DF)
>  

perl -ne '@a[/(\d+):/]++}{print "Port 53: $a[53]\t Port 80: $a[80]\n"' infile.txt
Port 53: 2       Port 80: 4

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to