Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
易企天创
zentaoatf
提交
2f2f6484
Z
zentaoatf
项目概览
易企天创
/
zentaoatf
10 个月 前同步成功
通知
11
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
3
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
Z
zentaoatf
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
3
Issue
3
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
前往新版Gitcode,体验更适合开发者的 AI 搜索 >>
提交
2f2f6484
编写于
5月 07, 2021
作者:
aaronchen2k2k
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
update demo scripts
上级
09f18ebe
变更
9
隐藏空白更改
内联
并排
Showing
9 changed file
with
46 addition
and
66 deletion
+46
-66
demo/lang/ruby/1_string_match.rb
demo/lang/ruby/1_string_match.rb
+7
-9
demo/lang/ruby/2_webpage_extract.rb
demo/lang/ruby/2_webpage_extract.rb
+9
-10
demo/lang/ruby/3_http_inteface_call.rb
demo/lang/ruby/3_http_inteface_call.rb
+6
-8
demo/lang/shell/1_string_match.sh
demo/lang/shell/1_string_match.sh
+3
-6
demo/lang/shell/2_webpage_extract.sh
demo/lang/shell/2_webpage_extract.sh
+3
-6
demo/lang/shell/3_http_inteface_call.sh
demo/lang/shell/3_http_inteface_call.sh
+2
-5
demo/lang/tcl/1_string_match.tl
demo/lang/tcl/1_string_match.tl
+4
-6
demo/lang/tcl/2_webpage_extract.tl
demo/lang/tcl/2_webpage_extract.tl
+7
-9
demo/lang/tcl/3_http_inteface_call.tl
demo/lang/tcl/3_http_inteface_call.tl
+5
-7
未找到文件。
demo/lang/ruby/1_string_match.rb
浏览文件 @
2f2f6484
#!/usr/bin/env ruby
=begin
[case]
title=check string matches pattern
cid=0
pid=0
[group]
1. exactly match >> hello
2. regular expression match >> `1\d{10}`
3. format string match >> `%s%d`
1. exactly match >> hello
2. regular expression match >> `1\d{10}`
3. format string match >> `%s%d`
[esac]
=end
print
(
">> hello
\n
"
);
print
(
">> 13905120512
\n
"
);
print
(
">> abc123
\n
"
);
\ No newline at end of file
print
(
"hello
\n
"
);
print
(
"13905120512
\n
"
);
print
(
"abc123
\n
"
);
demo/lang/ruby/2_webpage_extract.rb
浏览文件 @
2f2f6484
#!/usr/bin/env ruby
=begin
[
case
]
title=extract content from webpage
cid=0
pid=0
[
group
]
1
.
Load
web
page
from
url
http
:/
/
xxx
2
.
Retrieve
img
element
zt
-
logo
.
png
in
html
3
.
Check
img
exist
>>
`.*zt-logo.png`
1. Load web page from url http://xxx
2. Retrieve img element zt-logo.png in html
3. Check img exist >> `.*zt-logo.png`
[
esac
]
=
enddf
=end
require
"open-uri"
uri
=
'http://
pms.zentao.net/user-login
.html'
uri
=
'http://
max.demo.zentao.net/user-login-Lw==
.html'
html
=
nil
open
(
uri
)
do
|
http
|
html
=
http
.
read
end
elem
=
html
.
match
(
/<img src=
'(.*?)'
.*>/
).
captures
puts
'>> '
+
elem
[
0
]
elem
=
html
.
match
(
/<img src=
"(.*?)"
.*>/
).
captures
puts
""
+
elem
[
0
]
demo/lang/ruby/3_http_inteface_call.rb
浏览文件 @
2f2f6484
#!/usr/bin/env ruby
=begin
[case]
title=check remote interface response
cid=0
pid=0
[group]
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]{26}`
[esac]
=end
require
"open-uri"
require
"json"
uri
=
'http://
pms.zentao.net
/?mode=getconfig'
uri
=
'http://
max.demo.zentao.net/pms
/?mode=getconfig'
html
=
nil
open
(
uri
)
do
|
http
|
html
=
http
.
read
end
json
=
JSON
.
parse
(
html
)
# need json library (gem install json)
puts
'>> '
+
json
[
'sessionID'
]
\ No newline at end of file
puts
json
[
'sessionID'
]
demo/lang/shell/1_string_match.sh
浏览文件 @
2f2f6484
#!/usr/bin/env bash
:<<
!
[
case
]
title
=
check string matches pattern
cid
=
0
pid
=
0
[
group]
1. exactly match
>>
hello
2. regular expression match
>>
`
1[0-9]
{
10
}
`
3. format string match
>>
`
%s%d
`
[
esac
]
!
str
=
"abc123"
echo
"
>>
hello"
echo
"
>>
13905120512"
echo
"
>>
abc123"
echo
"hello"
echo
"13905120512"
echo
"abc123"
demo/lang/shell/2_webpage_extract.sh
浏览文件 @
2f2f6484
#!/usr/bin/env bash
:<<
!
[
case
]
title
=
extract content from webpage
cid
=
0
pid
=
0
[
group]
1. Load web page from url http://xxx
2. Retrieve img element zt-logo.png
in
html
3. Check img exist
>>
`
.
*
zt-logo.png
`
[
esac
]
!
resp
=
$(
curl
-s
http://
pms.zentao.net/user-login
.html
)
# apt-get install curl if needed
elem
=
`
echo
$resp
|
grep
-o
"<img[^>]*src='[^']*'"
|
grep
-o
"[^']*.png"
`
resp
=
$(
curl
-s
http://
max.demo.zentao.net/user-login-Lw
==
.html
)
# apt-get install curl if needed
elem
=
`
echo
$resp
|
grep
-o
'<img[^>]*src="[^"]*"'
`
echo
"
>>
$elem
"
echo
"
$elem
"
demo/lang/shell/3_http_inteface_call.sh
浏览文件 @
2f2f6484
#!/usr/bin/env bash
:<<
!
[
case
]
title
=
check remote interface response
cid
=
0
pid
=
0
[
group]
1. Send a request to interface http://xxx
2. Retrieve sessionID field from response json
3. Validate its format
>>
`
^[a-z0-9]
{
26
}
`
[
esac
]
!
resp
=
$(
curl
-s
'http://
pms.zentao.net
/?mode=getconfig'
)
# apt-get install curl if needed
resp
=
$(
curl
-s
'http://
max.demo.zentao.net/pms
/?mode=getconfig'
)
# apt-get install curl if needed
elem
=
`
echo
$resp
|
grep
-o
'"sessionID":"[^"]*"'
|
sed
's/^.*:"//g'
|
sed
's/"//g'
`
echo
"
>>
$elem
"
echo
"
$elem
"
demo/lang/tcl/1_string_match.tl
浏览文件 @
2f2f6484
#!/usr/bin/env tclsh
set case
{
[
case
]
title=check string matches pattern
cid=0
pid=0
[
group
]
1. exactly match >> hello
2. regular expression match >> `1
\d
{
10
}
`
3. format string match >> `%s%d`
[
esac
]
}
puts
">> hello"
puts
">> 13905120512"
puts
">> abc123"
\ No newline at end of file
puts
"hello"
puts
"13905120512"
puts
"abc123"
demo/lang/tcl/2_webpage_extract.tl
浏览文件 @
2f2f6484
#
!/usr/bin/env tclsh
set
case
{
[
case
]
title
=
extract
content
from
webpage
cid
=
0
pid
=
0
[
group
]
1.
Load
web
page
from
url
http
://
xxx
2.
Retrieve
img
element
zt
-
logo
.
png
in
html
3.
Check
img
exist
>>
`.*
zt
-
logo
.
png
`
1.
Load
web
page
from
url
http
://
xxx
2.
Retrieve
img
element
zt
-
logo
.
png
in
html
3.
Check
img
exist
>>
`.*
zt
-
logo
.
png
`
[
esac
]
}
package
require
http
set
url
http
://
pms
.
zentao
.
net
/
user
-
login
.
html
set
url
http
://
max
.
demo
.
zentao
.
net
/
user
-
login
-
Lw
==
.
html
set
http
[::
http
::
geturl
$
url
]
set
html
[::
http
::
data
$
http
]
regexp
--
{<
img
src
=
'(.*?)'
.*>}
$
html
match
elem
puts
">> $elem"
\ No newline at end of file
regexp
--
{<
img
src
=
"(.*?)"
.*>}
$
html
match
elem
puts
"$elem"
demo/lang/tcl/3_http_inteface_call.tl
浏览文件 @
2f2f6484
#
!/usr/bin/env tclsh
set
case
{
[
case
]
title
=
check
remote
interface
response
cid
=
0
pid
=
0
[
group
]
1.
Send
a
request
to
interface
http
://
xxx
2.
Retrieve
sessionID
field
from
response
json
1.
Send
a
request
to
interface
http
://
xxx
2.
Retrieve
sessionID
field
from
response
json
3.
Check
its
format
>>
`^[
a
-
z0
-
9
]{
26
}`
[
esac
]
}
package
require
http
package
require
json
set
url
http
://
pms
.
zentao
.
net
/?
mode
=
getconfig
set
url
http
://
max
.
demo
.
zentao
.
net
/
pms
/?
mode
=
getconfig
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]"
\ No newline at end of file
puts
"[dict get $jsonObj sessionID]"
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录