fork download
copy 
  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 res {}
  24. foreach item $results {
  25.     if {[llength $item] == 1} {
  26.         lappend res $item
  27.     }
  28. }
  29. puts $res
  30.  
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
bidirectional uplink
https://ideone.com/5AON99
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!