Hi, I am trying to extract an engine from a String, which has proven my test (hold). In the example bellow, my output should be proengine2.
engine1 {status fail reason checked depth 0 } engine2 {status fail reason checked depth 0 }
proengine1 {status open reason checked depth 0 } **proengine2** {status **hold** reason checked depth 1 }
Any idea how to do that with Tcl or regular expression?
Thanks, Sasa
If you want to get the engine with status hold, try something like this:
regexp -- {([^\}[:blank:]]+?)\s*?\{status hold} $data - engine
Your engine will be in the $engine variable.
([^\}[:blank:]]+?) will match non } or blank characters (this is where the engine name is matched) and stored into the first submatch, engine, provided the next parts match, meaning any spaces \s*? and {status hold.
If you have multiple engines you might try something like that:
set engines [regexp -all -inline -- {[^\}[:blank:]]+?(?=\s*?\{status hold)} $data]
Where $engines will be a list of all engines on hold.
Here, I'm using a positive lookahead instead of capture groups because -all -inline will return a list of all matches and sub-matches. The regex is about the same, with the first pair of () removed and the second part wrapped around (?= ... ) (which is the positive lookahead).
Hi there here is a solution if the one with the **hold** always have the stars around as hold. Here is the code :
String test = "engine1 {status fail reason checked depth 0 } engine2 {status fail reason checked depth 0 } proengine1 {status open reason checked depth 0 } **proengine2** {status **hold** reason checked depth 1 }";
System.out.println(test.replaceAll(".*\\}\\s\\*{2}(.*)\\*{2}\\s\\{.*", "$1"));
output : proengine2
Your data is fortunately formatted like a Tcl dictionary, so:
set s {
engine1 {status fail reason checked depth 0 } engine2 {status fail reason checked depth 0 }
proengine1 {status open reason checked depth 0 } proengine2 {status hold reason checked depth 1 }
}
set d [dict create {*}$s]
dict for {key info} $d {
if {[dict get $info status] eq "hold"} {
puts $key
}
}
outputs
proengine2
