diff --git a/demo/lang/tcl/2_webpage_extract.tl b/demo/lang/tcl/2_webpage_extract.tl index 3677837a4b9591f4c13f24bcf5b08ea5ebfcff01..bcfdc12a3c3eaa5b0bb448110be2b5f1a5228988 100755 --- a/demo/lang/tcl/2_webpage_extract.tl +++ b/demo/lang/tcl/2_webpage_extract.tl @@ -21,7 +21,5 @@ set url https://www.apple.com set http [::http::geturl $url] set html [::http::data $http] -puts "$html" - regexp -- {(.*?)} $html match title puts "$title"