diff --git a/demo/lang/javascript/2_webpage_extract.js b/demo/lang/javascript/2_webpage_extract.js index 4300ad02866d675934a7b94266731519838aee34..a47c74d0fb97d8ad3bc8ffdbc9ef688f112dface 100755 --- a/demo/lang/javascript/2_webpage_extract.js +++ b/demo/lang/javascript/2_webpage_extract.js @@ -6,23 +6,22 @@ pid=0 1. Load web page from url http://xxx 2. Retrieve img element zt-logo.png in html -3. Check img exist >> `.*.png` +3. Check img exist >> `必应` */ -var http = require('http'); +const https = require('https'); -http.get('http://max.demo.zentao.net/user-login-Lw==.html', function(req) { - let html = '', image = ''; +https.get('https://cn.bing.com', function(req) { + let html = '' req.on('data', function(data) { html += data; }); req.on('end', () => { - var res = html.match(/(.*?) 1) { - image = res[1] - console.log(image) + console.log(res[1]) } }); }); diff --git a/demo/lang/javascript/3_http_inteface_call.js b/demo/lang/javascript/3_http_inteface_call.js index 1d8f6d6f4afd3c9a2b5dbbaef57e4273704175f6..2e6b64714248f200babbc3bb830d4590f653adbc 100755 --- a/demo/lang/javascript/3_http_inteface_call.js +++ b/demo/lang/javascript/3_http_inteface_call.js @@ -6,13 +6,13 @@ pid=0 1. Send a request to interface http://xxx 2. Retrieve sessionID field from response json -3. Validate its format >> `^[a-z0-9]{26}` +3. Validate its format >> `^[a-z0-9]{8}` */ -var http = require('http'); +const https = require('https'); -http.get('http://max.demo.zentao.net/pms/?mode=getconfig', function(req) { +https.get('https://cn.bing.com/HPImageArchive.aspx?format=js&idx=0&n=1', function(req) { let jsonStr = ''; req.on('data', function(data) { @@ -21,8 +21,8 @@ http.get('http://max.demo.zentao.net/pms/?mode=getconfig', function(req) { req.on('end', () => { if(req.statusCode === 200){ try{ - var json = JSON.parse(jsonStr); - console.log(json.sessionID) + const json = JSON.parse(jsonStr); + console.log(json.images[0].startdate) } catch(err){ console.log('ERR: ' + err); } diff --git a/demo/lang/perl/2_webpage_extract.pl b/demo/lang/perl/2_webpage_extract.pl index 52ce51abfe00cc73a3674ebec1f4f8fc26501085..c1d01b2ab1f70145c757d56dd7443fccab3c43d0 100755 --- a/demo/lang/perl/2_webpage_extract.pl +++ b/demo/lang/perl/2_webpage_extract.pl @@ -6,13 +6,13 @@ pid=0 1. Load web page from url http://xxx 2. Retrieve img element zt-logo.png in html -3. Check img exist >> `.*zt-logo.png` +3. Check img exist >> `必应` =cut use LWP::Simple; # need LWP::Simple module -$html = get('http://max.demo.zentao.net/user-login-Lw==.html'); +$html = get('https://cn.bing.com'); -if ( $html =~ // ) { +if ( $html =~ /(.*?)</ ) { print "$1\n"; } diff --git a/demo/lang/perl/3_http_interface_call.pl b/demo/lang/perl/3_http_interface_call.pl index f4fbc2b058d253665cdd948bd2c72cf7ffc54f26..bb7dfab6db40f444a9a93f00c63586afe3902839 100755 --- a/demo/lang/perl/3_http_interface_call.pl +++ b/demo/lang/perl/3_http_interface_call.pl @@ -7,13 +7,13 @@ pid=0 1. Send a request to interface http://xxx 2. Retrieve sessionID field from response json -3. Check its format >> `^[a-z0-9]{26}` +3. Check its format >> `^[a-z0-9]{8}` =cut use LWP::Simple; # need LWP::Simple module -$json = get('http://max.demo.zentao.net/pms/?mode=getconfig'); +$json = get('https://cn.bing.com/HPImageArchive.aspx?format=js&idx=0&n=1'); -if ( $json =~ /"sessionID":"([^"]*)"/ ) { +if ( $json =~ /"startdate":"([^"]*)"/ ) { print "$1\n"; } diff --git a/demo/lang/php/2_webpage_extract.php b/demo/lang/php/2_webpage_extract.php index 7d2a352b3d9e1d67d04f2bb1d138408e5356f241..440c9e8c1ca5efa8d82048e7d3084d2aa13896cf 100755 --- a/demo/lang/php/2_webpage_extract.php +++ b/demo/lang/php/2_webpage_extract.php @@ -8,10 +8,10 @@ pid=0 1. Load web page from url http://xxx 2. Retrieve img element zt-logo.png in html -3. Check img exist >> `.*zt-logo.png` +3. Check img exist >> `必应` */ -$resp = file_get_contents('http://max.demo.zentao.net/user-login-Lw==.html'); -preg_match_all("/<img src=\"(.*)\" .*>/U", $resp, $matches); +$resp = file_get_contents('https://cn.bing.com'); +preg_match_all("/<title>(.*)</U", $resp, $matches); echo $matches[1][0] . "\n"; diff --git a/demo/lang/php/3_http_interface_call.php b/demo/lang/php/3_http_interface_call.php index eca9c3ed559972c5c192cbb0298daa7891539bd1..224ee2d4067bf6eae9ba0c72e42f61045875739c 100755 --- a/demo/lang/php/3_http_interface_call.php +++ b/demo/lang/php/3_http_interface_call.php @@ -8,10 +8,10 @@ pid=0 1. Send a request to interface http://xxx 2. Retrieve sessionID field from response json -3. Check its format >> `^[a-z0-9]{26}` +3. Check its format >> `^[a-z0-9]{8}` */ -$resp = file_get_contents('http://max.demo.zentao.net/pms/?mode=getconfig'); +$resp = file_get_contents('https://cn.bing.com/HPImageArchive.aspx?format=js&idx=0&n=1'); $json = json_decode($resp); -echo $json->sessionID . "\n"; +echo $json->images[0]->startdate . "\n"; diff --git a/demo/lang/python/2_webpage_extract.py b/demo/lang/python/2_webpage_extract.py index af96622be6e938c2202587cfc8661349912291f0..64e8d9bb440d35c560453e6ebad5ce65a52666e3 100755 --- a/demo/lang/python/2_webpage_extract.py +++ b/demo/lang/python/2_webpage_extract.py @@ -8,13 +8,13 @@ pid=0 1. Load web page from url http://xxx 2. Retrieve img element zt-logo.png in html -3. Check img exist >> `.*zt-logo.png` +3. Check img exist >> `必应` ''' import requests import re -html = requests.get('http://max.demo.zentao.net/user-login-Lw==.html').content #need requests library (pip/pip3 install requests) -elem = re.search(r"<img src=\"(.*?)\" .*>", html.decode("utf-8")).group(1) +html = requests.get('https://cn.bing.com').content #need requests library (pip/pip3 install requests) +elem = re.search(r"<title>(.*?)<", html.decode("utf-8")).group(1) print(elem) diff --git a/demo/lang/python/3_http_interface_call.py b/demo/lang/python/3_http_interface_call.py index c1eb4aa8ea96f2a99470b958c1546a49ce9d7d60..52caea408cc6ccc99274483bc8c4c57a9f1bbc91 100755 --- a/demo/lang/python/3_http_interface_call.py +++ b/demo/lang/python/3_http_interface_call.py @@ -8,13 +8,13 @@ pid=0 1. Send a request to interface http://xxx 2. Retrieve sessionID field from response json -3. Check its format >> `^[a-z0-9]{26}` +3. Check its format >> `^[a-z0-9]{8}` ''' import requests import json -jsonStr = requests.get('http://max.demo.zentao.net/pms/?mode=getconfig').content #need requests library (pip/pip3 install requests) +jsonStr = requests.get('https://cn.bing.com/HPImageArchive.aspx?format=js&idx=0&n=1').content jsonObj = json.loads(jsonStr) -print(jsonObj['sessionID']) +print(jsonObj['images'][0]['startdate']) diff --git a/demo/lang/tcl/2_webpage_extract.tl b/demo/lang/tcl/2_webpage_extract.tl index 9bdc26e668c8f36cadf0abe60cea0143786dea68..31138a9e3ddfb05d9c94aba9351efa02ba5c87ee 100755 --- a/demo/lang/tcl/2_webpage_extract.tl +++ b/demo/lang/tcl/2_webpage_extract.tl @@ -7,16 +7,19 @@ pid=0 1. Load web page from url http://xxx 2. Retrieve img element zt-logo.png in html -3. Check img exist >> `.*zt-logo.png` +3. Check img exist >> `必应` } package require http +package require tls -set url http://max.demo.zentao.net/user-login-Lw==.html +http::register https 443 tls::socket + +set url https://cn.bing.com set http [::http::geturl $url] set html [::http::data $http] -regexp -- {<img src="(.*?)" .*>} $html match elem +regexp -- {<title>(.*?)<} $html match elem puts "$elem" diff --git a/demo/lang/tcl/3_http_interface_call.tl b/demo/lang/tcl/3_http_interface_call.tl index dfb9abe2bd12d7685297d98c2738fa6b2633aaaa..4160c15ff6dd4e526dd5a4f6b7990b662dd927d0 100755 --- a/demo/lang/tcl/3_http_interface_call.tl +++ b/demo/lang/tcl/3_http_interface_call.tl @@ -5,20 +5,26 @@ title=check remote interface response cid=0 pid=0 - 1. Send a request to interface http://xxx - 2. Retrieve sessionID field from response json - 3. Check its format >> `^[a-z0-9]{26}` +1. Send a request to interface http://xxx +2. Retrieve sessionID field from response json +3. Check its format >> `^[a-z0-9]{8}` } package require http +package require tls package require json -set url http://max.demo.zentao.net/pms/?mode=getconfig +http::register https 443 tls::socket + +set url https://cn.bing.com/HPImageArchive.aspx?format=js&idx=0&n=1 set http [::http::geturl $url] set jsonStr [::http::data $http] -# need json library, you may use ActiveTcl -set jsonObj [json::json2dict $jsonStr] -puts "[dict get $jsonObj sessionID]" +regexp -- {"startdate":"(.*?)"} $jsonStr match date +puts "$date" + +# set jsonObj [json::json2dict $jsonStr] +# set images [dict get $jsonObj images] +# puts [dict get $images startdate]