Shell Programming and Scripting

re_em="NODE_NAME=ABCDEF;NODE_TYPE=ghijkl;CIRCLE=jkl;Serving_Circle=abcdefghthjk;DOMAIN_TYPE=1234;REGION=12345;ZONE=12334;SOURCE_TYPE=dhfkdkfjdjf"

awk -F"[;\"]" ' { print $3  } '

awk -F"[;\"]" ' { for(i=1;i<=NF;i++) { if($i ~ "NODE_NAME" ) { print $i }  } } '

#!/usr/bin/env tclsh

# @(#) s1     Demonstrate associative array.

set version [ info tclversion ]
set message " Hello, world from tclsh ($version)"
puts stdout $message

set s "NODE_NAME=ABCDEF;NODE_TYPE=ghijkl;CIRCLE=jkl;Serving_Circle=abcdefghthjk;DOMAIN_TYPE=1234;REGION=12345;ZONE=12334;SOURCE_TYPE=dhfkdkfjdjf"

# split the line into strings separated by ";"
set pairs [split $s ";"]
puts "sample pair at index 1 = [lindex $pairs 1]"
puts ""

# break apart key=value pairs into associative array a
for {set x 0} {$x < [llength $pairs]} {incr x} {
  set p [ split [lindex $pairs $x] "=" ]
  puts $p
  set a([lindex $p 0]) "[lindex $p 1]"
}
puts ""

puts "sample associative array a of key SOURCE_TYPE = value $a(SOURCE_TYPE)"

exit 0

% ./s1
 Hello, world from tclsh (8.4)
sample pair at index 1 = NODE_TYPE=ghijkl

NODE_NAME ABCDEF
NODE_TYPE ghijkl
CIRCLE jkl
Serving_Circle abcdefghthjk
DOMAIN_TYPE 1234
REGION 12345
ZONE 12334
SOURCE_TYPE dhfkdkfjdjf

sample associative array a of key SOURCE_TYPE = value dhfkdkfjdjf