Skip to content

Z
zentaoatf

易企天创 / zentaoatf
大约 1 年 前同步成功

通知 11
Star 0
Fork 0
Z
zentaoatf

体验新版 GitCode，发现更多精彩内容 >>

提交 9b6af340 编写于 作者: aaronchen2k2k's avatar aaronchen2k2k
浏览文件
操作

update test scripts

上级 57a53f43
显示空白变更内容
内联 并排
Showing with 3 addition and 1 deletion
demo/lang/tcl/2_webpage_extract.tl
浏览文件 @ 9b6af340
...@@ -16,10 +16,12 @@ package require tls ...@@ -16,10 +16,12 @@ package require tls
http::register https 443 tls::socket http::register https 443 tls::socket
set url https://cn.bing.com set url https://us.bing.com
set http [::http::geturl $url] set http [::http::geturl $url]
set html [::http::data $http] set html [::http::data $http]
puts "$html"
regexp -- {<title>(.*?)<} $html match elem regexp -- {<title>(.*?)<} $html match elem
puts "$elem" puts "$elem"
Markdown is supported
0% 或 .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑！
想要评论请 注册 或