fork download 
  1. set args { packet-filter 0
  2.    identifier      0
  3.    direction       bidirectional
  4.    network-ip      10.7.98.231/32
  5.    ue-port-start   0
  6.    ue-port-end     0
  7.    nw-port-start   0
  8.    nw-port-end     0
  9.    protocol        1
  10.    precedence      0
  11.  packet-filter 1
  12.    identifier      1
  13.    direction       uplink
  14.    network-ip      10.7.98.231/32
  15.    ue-port-start   0
  16.    ue-port-end     0
  17.    nw-port-start   0
  18.    nw-port-end     0
  19.    protocol        1
  20.    precedence      0 }
  21.  
  22. set results [regexp -all -inline {direction\s+(\S+)} $args]
  23. #set numMatches [expr {[llength $results] / 2}]
  24. set res {}
  25. foreach {whole capture1} $results {
  26.    lappend res $capture1
  27. }
  28. puts $res
  29.  
Success #stdin #stdout 0s 5252KB
comments (?)
stdin 
Standard input is empty
stdout 
bidirectional uplink
https://ideone.com/kalGsq
language:
TCL (tcl 8.6)
created:
6 years ago
visibility:
secret

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!