CODEWITHSUNDEEP
sedtcl
Lefeofan
Lefeofan

Reputation: 21

Sed command inside TCL script

Help me understand the syntax sed.I removed single quotes, but the code still does not work. 

set id [open file.txt]
# send the request, get a lot of data
set tok [::http::geturl "http://example.com"-channel $id] 
# cut out the necessary data between two words
exec sed s/{"data1":\(.*\)/data2\1/ $id 
close $id
set ir [open file.txt]
set phone [read $ir]
close $ir
puts $phone

The problem is that I get data from a query of the following kind

 {"id":3876,"form":"index","time":21,"data":"2529423","service":"Atere","response":"WAIT"}

The brace is an element of the syntax of the language, and I need to cut exactly the value between the word and the brace. How to implement this in a script.

Upvotes: 0

Views: 951

Answers (1)

Brad Lanam
Brad Lanam

Reputation: 5723

Your code is rather confused, as (a) you are passing a file handle to the sed command. That's not going to work. (b) you are passing an input channel to http rather than an output channel (try opening the file for writing).

About the underlying problem. If you are receiving basic JSON data back as shown.

a) You can use a JSON parser: tcllib's json module

b) Convert it to a form that Tcl can parse as a dictionary

# Assuming the JSON data is in the $data variable, and there's no
# other data present.  This also assumes the data is very basic 
# there are no embedded commas.  Many assumptions means this
# code is likely to break in the future.  A JSON parser would
# be a better choice.
set data "\{"
append data {"id":3876,"form":"index","time":21,"data":"2529423","service":"Atere","response":"WAIT"}
append data "\}"
regsub -all {[{}:",]} $data { } data
set mydatadict $data 
puts [dict get $mydatadict id]

Edit:

For http processing:

set tok [::http::geturl "http://example.com"]
set data [::http::data $tok]
::http::cleanup $tok

Upvotes: 1

Related Questions