fork download 
  1. set buff "SOME TEXT o=India-SIPUA 6264 0 IN IP4 10.77.33.200"
  2. regexp {.*o=India-SIPUA.*(10\.77\.\d{2}\.200)} $buff match ip
  3. puts $match
  4. puts $ip
  5.  
Success #stdin #stdout 0s 15904KB
comments (?)
stdin 
Standard input is empty
stdout 
SOME TEXT o=India-SIPUA 6264 0 IN IP4 10.77.33.200
10.77.33.200
https://ideone.com/4KKNn5
language:
TCL (tcl 8.6)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!