Betfair登录脚本

Question

我试图使用以下tcl脚本非交互地登录到betfair：-

#!/usr/bin/env tclsh
package require TclCurl

set postData "username=xxxxxxxxx&password=yyyyyyyyy"
set postHeader [list "X-Application: curlCommandLineTest"]
set BFLogin [::curl::transfer -url https://identitysso-cert.betfair.com/api/certlogin \
-headervar loginHeader \
-sslverifypeer 0 \
-sslcert "client-2048.crt" \
-sslkey "client-2048.key" \
-post 1 \
-postfields $postData \
-httpheader $postHeader ]

但是，它没有将输出存储在BFLogin中。相反，当脚本完成时，它只输出以下内容：-

{"sessionToken":"92YN1v2Oz0lVv59nHwCryrfCnzNbInTCsssssssssssssssssss","loginStatus":"SUCCESS"}

这很好，但它没有将其存储在上面的变量BFLogin中。请问我做错什么了？

Answer 1

可能更有可读性？

#!/usr/bin/env tclsh
package require TclCurl

dict set curlOpts -url https://identitysso-cert.betfair.com/api/certlogin
dict set curlOpts -bodyvar responseBody
dict set curlOpts -sslverifypeer 0
dict set curlOpts -sslcert "client-2048.crt"
dict set curlOpts -sslkey "client-2048.key"
dict set curlOpts -post 1
dict set curlOpts -postfields "username=xxxxxxxxx&password=yyyyyyyyy"
dict set curlOpts -httpheader [list "X-Application: curlCommandLineTest"]

curl::transfer {*}$curlOpts