tcl脚本能处理html吗,cURL用tcl填充HTML表单

如果您知道management_ipaddr和management_mask的值应该是什么，那么您可以将它们作为额外的-d参数提供。将它包装在一个过程中可能是有意义的

proc UpdateBridgeConfiguration {management_ipaddr management_mask upstr_addr_type} {

global MIP params

eval exec curl $params \

-d management_ipaddr=$management_ipaddr \

-d management_mask=$management_mask \

-d upstr_addr_type=$upstr_addr_type \

"https://$MIP/goform/FormUpdateBridgeConfiguration" \

-o /dev/null 2> /dev/null

# You ought to replace the first line of the above call with:

# exec curl {*}$params \

# Provided you're not on Tcl 8.4 or before...

}

就像那样，你会发现通话更容易。 (您不需要为此指定-X POST;它是提供-d时的默认行为。)

要获取现有值，您需要从正确的URL(我无法猜到的)中获取它们，并从生成的HTML中提取它们。这可能涉及对检索到的文档使用正则表达式。这非常糟糕，但有时候你会遇到这种情况。 (您可以使用tDOM正确解析HTML - 只要它不是太错误 - 然后使用其XPath支持来正确查询值，但这相当复杂并且引入了对外部包的依赖。)知道什么使用正确的RE可能很棘手，但它可能涉及抓取表单的副本并模糊地执行某些事情：

regexp -nocase {]*)"} $formSource -> management_ipaddr

regexp -nocase {]*)"} $formSource -> management_mask

虽然一般来说它可以用各种方式编码，但这对IP地址或掩码来说是不太可能的！另一方面，属性的顺序可以变化;你必须根据你真正处理的内容来定制你的RE，而不仅仅是它可能是什么......

卷曲调用将类似于

set formSource [exec curl "http://$MIP/the/right/url/here" {*}$params 2>/dev/null]

当您不必发送数据并且想要使用结果时，这会更简单。