[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
plp626

Rank: 8Rank: 8

帖子
640 
积分
2838 
技术
101  
捐助
0  
注册时间
2008-1-17 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-6-15 21:22 | 只看该作者

[数值计算] [已更新]cmd指令执行效率简易测试工具

本帖最后由 plp626 于 2011-6-16 19:04 编辑 
  1. @ECHO off

  2. :: cmd 命令执行效率测试，保存为cff.bat于windows目录下，

  3. :: 命令行调用格式：cff 1000 "命令名" "命令名" ...

  4. :: 举例：

  5. ::         cff 300 "chcp >nul"

  6. ::         cff 10000 "set var=123" "set var=^!random^!" "shift"

  7. ::         cff 10000 "for /f %a in ("abcdef")do set str=%a"

  8. :: Version: 1.01; Code by plp; Thanks to: fastslz, batchar

  9. 

  10. setlocal EnableDelayedExpansion

  11. set/a $lp=%1 2>nul||(

  12.     echo  Parameter %%1 --- %1

  13.     echo     is invalid number.&exit/b2

  14. )

  15. if %2.==. echo Paramter %%2 is missing.&exit/b3

  16. call:getinf&rem :: 获取版本信息和CPU信息

  17. 

  18. :begin

  19. set "cmd=%~2"

  20. Set $time1=%time%

  21. for /l %%@ in (1 1 %$lp%)do %~2

  22. Set $time2=%time%

  23. call:etime $time1 $time2 $t12

  24. if !$t12!==0 echo Parameter %%1 --- %$lp%&echo    is too small.&exit/b4

  25. set/a $cff=$lp*100/$t12,$r=$lp*100%%$t12*10/$t12

  26. 

  27. echo === [!$time1! --^> !$time2!=!$t12!] ===

  28. ECHO "!cmd!" : !$cff!.!$r! (Hz)

  29. if !$t12! leq 20 (

  30.    echo.&echo ^^! Paramter %%1 --- %$lp%

  31.    echo    is smallish and maybe the result "!$cff!.!$r!" is not accurate

  32.    exit/b5

  33. )

  34. if %3. neq . shift&goto:begin

  35. goto:eof

  36. 

  37. :etime <beginTime_VarName> <endTime_VarName> <retVar>

  38. Set/a "%3=(!%2:~,2!-!%1:~,2!)*360000+(1!%2:~3,2!-1!%1:~3,2!)*6000+1!%2:~-5,2!!%2:~-2!-1!%1:~-5,2!!%1:~-2!,%3+=-8640000*(%3>>31)"&goto:eof

  39. :getinf

  40. ver&wmic cpu get name|find "CPU"

  41. set NUMBER_OF_PROCESSORS
复制代码
收藏 分享
技术娱乐 3802

fastslz

Rank: 8Rank: 8

帖子
296 
积分
1212 
技术
41  
捐助
0  
注册时间
2008-1-7 
2楼
发表于 2011-6-15 22:47 | 只看该作者
本帖最后由 fastslz 于 2011-6-17 11:33 编辑

我也来一个vbs的
cn-dos旧作
  1. 'CPU 基准测试+信息查询，好玩又防奸商，去电脑城选电脑带上一个吧！CPU信息一目了然。

  2. 'CPUtest.vbs BY: fastslz   http://bbs.cn-dos.net  http://bbs.bathome.net

  3. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

  4. Set CPUs = objWMIService.InstancesOf("Win32_Processor")

  5. Set Caches = objWMIService.InstancesOf("Win32_CacheMemory")

  6. For Each ObjCache In Caches

  7.     Select Case objCache.Level

  8.     case 3

  9.     aUsage = "一级缓存: " & objCache.MaxCacheSize & "KB    (一级数据＋L1缓存)"

  10.     case 4

  11.     aUsage = aUsage & vbCrLf & "二级缓存: " & objCache.MaxCacheSize & "KB"

  12.     case 5

  13.     aUsage = aUsage & vbCrLf & "三级缓存: " & objCache.MaxCacheSize & "KB"

  14.     End Select

  15. Next

  16. For Each ObjCPU In CPUs

  17. Usage = "CPU 名称: " & ltrim(ObjCPU.Name)               & Chr(9) & vbCrLf _

  18.       & "CPU 构架: " & ObjCPU.Description               & vbCrLf _

  19.       & "制造厂商: " & ObjCPU.Manufacturer              & vbCrLf _

  20.       & "接口规格: " & ObjCPU.SocketDesignation         & vbCrLf _

  21.       & "核心数量: " & ObjCPU.NumberOfCores             & vbCrLf _

  22.       & "地址位宽: " & ObjCPU.AddressWidth & " Bit"     & vbCrLf _

  23.       & "数据位宽: " & ObjCPU.DataWidth & " Bit"        & vbCrLf _

  24.       & "CPU 电压: " & ObjCPU.CurrentVoltage / 10 & "V" & vbCrLf _

  25.       & "主频速度: " & ObjCPU.CurrentClockSpeed & "MHZ" & vbCrLf _

  26.       & "总线速度: " & ObjCPU.ExtClock & "MHZ"          & vbCrLf & aUsage

  27. Next

  28. If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then

  29.     MsgBox Usage , vbInformation ,"CPU 基准测试"

  30.     Else

  31.     WScript.Echo Usage

  32. End If

  33. Dim I,T1,T2,Tempvalue,aRunTime,bRunTime

  34.     T1 = Timer()

  35.     For I = 1 To 2000000

  36.         Tempvalue= 2^0.5

  37.     Next

  38.     T2 = Timer()

  39.     aRunTime = FormatNumber((T2-T1)*1000,2)

  40. NumMsg = "CPU 200万次开方计算所需时间：" &aRunTime&" 毫秒" &Chr(9)

  41. 

  42.     T1 = Timer()

  43.     For I = 1 To 6000000

  44.         Tempvalue= 1 + 1

  45.     Next

  46.     T2 = Timer()

  47.     bRunTime = FormatNumber((T2-T1)*1000,2)

  48. NumMsg =  NumMsg & vbCrLf & "CPU 600万次加法计算所需时间："&bRunTime&" 毫秒" &Chr(9)

  49. If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then

  50.     MsgBox NumMsg , vbInformation ,"CPU 基准测试"

  51.     Else

  52.     WScript.Echo NumMsg

  53. End If
复制代码

TOP

plp626

Rank: 8Rank: 8

帖子
640 
积分
2838 
技术
101  
捐助
0  
注册时间
2008-1-17 
3楼
发表于 2011-6-16 12:44 | 只看该作者 
  1. Microsoft Windows XP [版本 5.1.2600]

  2. Genuine Intel(R) CPU           T1600  @ 1.66GHz

  3. NUMBER_OF_PROCESSORS=2

  4. 

  5. "rem" : 366678.1 (Hz)

  6. "shift" : 139301.5 (Hz)

  7. "if a==b 命令" : 145857.1 (Hz)

  8. "@echo off" : 116761.1 (Hz)

  9. "break" : 107383.2 (Hz)

  10. "popd" : 108809.0 (Hz)

  11. "set a=1" : 70921.9 (Hz)
复制代码
结论：
  1. rem >>  if a==b 命令 >> shift >> @echo off >> break >> set a=1
复制代码
技术娱乐 3802

TOP

fastslz

Rank: 8Rank: 8

帖子
296 
积分
1212 
技术
41  
捐助
0  
注册时间
2008-1-7 
4楼
发表于 2011-6-17 10:36 | 只看该作者
plp626 兄
在Windows7 64bit Q8300(四核CPU)环境下，经过多次测试发现cmd wscript cscript在不调用外部命令的情况下CPU占用始终保持在25%,甚至只使用一个线程(核心),之前你写的圆周率计算的代码更奇怪一个
核心CPU占用95%其它3个核心空闲中，这个情况何解？
http://bbs.bathome.net/viewthread.php?tid=3437

TOP

plp626

Rank: 8Rank: 8

帖子
640 
积分
2838 
技术
101  
捐助
0  
注册时间
2008-1-17 
5楼
发表于 2011-6-17 15:35 | 只看该作者
4# fastslz


也许是因为cmd,cscript,wscript这些脚本解释器都是单线程程序，使用内部命令时，始终是一个线程运行。
如果开多个cmd进程，就相当于多个线程，在多核系统中，系统根据任务调度的基本单位--线程，很可能根据情况分多个cpu。

（仅是猜测，勉强可以解释现象。）
技术娱乐 3802

TOP

fastslz

Rank: 8Rank: 8

帖子
296 
积分
1212 
技术
41  
捐助
0  
注册时间
2008-1-7 
6楼
发表于 2011-6-17 16:01 | 只看该作者
5# plp626


是啊、可以猜测一下
cmd+系统自带外部命令 单线程、多个线程
cmd+内部命令  只能是单线程

建议改进下代码，测试每秒能运算圆周率小数点位数

TOP

plp626

Rank: 8Rank: 8

帖子
640 
积分
2838 
技术
101  
捐助
0  
注册时间
2008-1-17 
7楼
发表于 2011-6-17 17:25 | 只看该作者
每秒运算圆周率位数这个不能说明问题，计算圆周率的算法太多，没有个统一参考；
我倒是有个想法，测试cmd的echo off指令执行频率，容易统一比较；

还有一楼的代码太繁琐了，不知不觉都40行了，准备写个精简版的，可以根据是否为外部命令智能给出合适的循环次数，不用人为指定循环次数；
技术娱乐 3802

TOP

plp626

Rank: 8Rank: 8

帖子
640 
积分
2838 
技术
101  
捐助
0  
注册时间
2008-1-17 
8楼
发表于 2011-6-17 17:42 | 只看该作者
本帖最后由 plp626 于 2011-6-17 21:36 编辑

这个无需给定命令循环次数，由程序指定。
  1. :: cff "命令名"; "命令名"; ...

  2. :: 举例：

  3. ::         cff "set var=^!random^!"

  4. ::         cff "call set a=1"; "call set/a a=1"; "set/a a=1"

  5. ::         cff "for /f %a in ("abcdef")do set str=%a"
复制代码
  1. :: cmd 命令执行效率测试，保存为cff.bat于windows目录下，

  2. :: 命令行调用格式：

  3. ::                 cff "命令名"; "命令名"; ...

  4. :: Version: 1.1; Code by plp; Thanks to: fastslz, batchar

  5. @ECHO off&setlocal EnableDelayedExpansion&call:getinf

  6. echo ------------ CMD指令测试 -------------

  7. :beg

  8. set/a $lp=random%%5+1&set "cmd=%~1"

  9. :begin

  10. Set $time1=%time%

  11. for /l %%@ in (1 1 %$lp%)do %cmd%

  12. Set $time2=%time%

  13. call:etime $time1 $time2 $t12

  14. if !$t12! leq 20 set/a $lp=$lp*2+5&goto:begin

  15. set/a $cff=$lp*100/$t12,$r=$lp*100%%$t12*10/$t12

  16. call:print

  17. if %2. neq . shift&goto:beg

  18. goto:eof

  19. 

  20. :etime <beginTime_VarName> <endTime_VarName> <retVar>

  21. Set/a "%3=(!%2:~,2!-!%1:~,2!)*360000+(1!%2:~3,2!-1!%1:~3,2!)*6000+1!%2:~-5,2!!%2:~-2!-1!%1:~-5,2!!%1:~-2!,%3+=-8640000*(%3>>31)"&goto:eof

  22. :getinf 获取版本信息和CPU信息

  23. ver&wmic cpu get name|find "CPU"

  24. set NUMBER_OF_PROCESSORS&goto:eof

  25. :print 格式化输出

  26. set "prt="!cmd!"                                  "

  27. set $cf=      !$cff!.!$r!&set $cf=!$cf:~-8! Hz

  28. if !cmd:~37!. neq . (echo "!cmd!" @ !$cf!)else (

  29.     echo !prt:~0,37! @ !$cf!

  30. )
复制代码
技术娱乐 3802

TOP

lllsoslll

Rank: 2

帖子
97 
积分
164 
技术
6  
捐助
0  
注册时间
2011-3-29 
9楼
发表于 2011-6-17 21:33 | 只看该作者
1.1版本的：
运行 —> cmd —> 粘贴代码，回车：
  1. cd.>f.t&cd.>g.t

  2. cff "set a=1" "set a=^!random:~2,1^!"; "set a=^!random:2=#^!"; "set abcd12345678901234567890=$$"; "call set a=1234567890"; "call set/a a=2" "call set f=%%a%%"; popd "setlocal&endlocal"; "if a==0 ?"; "for %a in (1)do set b=%a"; "for /f %a in ("1")do set b=%a"; "ver>nul"; "echo off>a.t" "echo.>b.t 4>a.t" "echo.>b.t" "if exist xxxx.txt ?"; "for %a in (#.txt)do set x=%a"; rem; "copy/b f.t+g.t f.t>nul"; "copy f.t+g.t f.t>nul" shift
复制代码
输出：
  1. Microsoft Windows XP [版本 5.1.2600]

  2. Genuine Intel(R) CPU           T1600  @ 1.66GHz

  3. NUMBER_OF_PROCESSORS=2

  4. ------------ CMD指令测试 -------------

  5. "set a=1"                             @  70202.8 Hz

  6. "set a=!random:~2,1!"                 @  40943.3 Hz

  7. "set a=!random:2=#!"                  @  37221.2 Hz

  8. "set abcd12345678901234567890=$$"     @  55843.1 Hz

  9. "call set a=1234567890"               @    275.7 Hz

  10. "call set/a a=2"                      @   6124.0 Hz

  11. "call set f=%%a%%"                    @    275.7 Hz

  12. "popd"                                @ 102379.1 Hz

  13. "setlocal&endlocal"                   @   2461.2 Hz

  14. "if a==0 ?"                           @ 136519.4 Hz

  15. "for %a in (1)do set b=%a"            @  43867.8 Hz

  16. "for /f %a in ("1")do set b=%a"       @  43867.8 Hz

  17. "ver>nul"                             @   6124.0 Hz

  18. "echo off>a.t"                        @   2631.0 Hz

  19. "echo.>b.t 4>a.t"                     @   1263.3 Hz

  20. "echo.>b.t"                           @   1804.7 Hz

  21. "if exist xxxx.txt ?"                 @   6959.0 Hz

  22. "for %a in (#.txt)do set x=%a"        @  39622.5 Hz

  23. "rem"                                 @ 351067.8 Hz

  24. "copy/b f.t+g.t f.t>nul"              @    748.0 Hz

  25. "copy f.t+g.t f.t>nul"                @    692.5 Hz

  26. "shift"                               @ 140420.0 Hz
复制代码
SOS --- >> lllsoslll@163.com

TOP

plp626

Rank: 8Rank: 8

帖子
640 
积分
2838 
技术
101  
捐助
0  
注册时间
2008-1-17 
10楼
发表于 2011-6-17 23:37 | 只看该作者
本帖最后由 plp626 于 2011-6-17 23:55 编辑

8楼的代码（version 1.1版本）win7下报错，具体原因下次公布答案，现在还在思考；

这次升级到1.11版，win7兼容版：
  1. :: cmd 命令执行效率测试，保存为cff.bat于windows目录下，

  2. :: 命令行调用格式：

  3. ::                 cff "命令名"; "命令名"; ...

  4. :: Version: 1.11; Code by plp; Thanks to: fastslz, batchar

  5. @ECHO off&setlocal EnableDelayedExpansion&call:getinf

  6. echo ------------ CMD指令测试 -------------

  7. :beg

  8. if "%~1"=="" goto:eof

  9. :: 比较纳闷的这句，在win7下改为 if %1.==. goto:eof 会出错！！

  10. set/a $lp=random%%5+1&set "cmd=%~1"

  11. :begin

  12. Set $time1=%time%

  13. for /l %%@ in (1 1 %$lp%)do %cmd%

  14. Set $time2=%time%

  15. call:etime $time1 $time2 $t12

  16. if !$t12! leq 20 set/a $lp=$lp*2+5&goto:begin

  17. set/a $cff=$lp*100/$t12,$r=$lp*100%%$t12*10/$t12

  18. call:print & shift& goto:beg

  19. 

  20. :etime <beginTime_VarName> <endTime_VarName> <retVar>

  21. Set/a "%3=(!%2:~,2!-!%1:~,2!)*360000+(1!%2:~3,2!-1!%1:~3,2!)*6000+1!%2:~-5,2!!%2:~-2!-1!%1:~-5,2!!%1:~-2!,%3+=-8640000*(%3>>31)"&goto:eof

  22. :getinf 获取版本信息和CPU信息

  23. ver&wmic cpu get name|find "CPU"

  24. set NUMBER_OF_PROCESSORS&goto:eof

  25. :print 格式化输出

  26. set "prt="!cmd!"                                  "

  27. set $cf=      !$cff!.!$r!&set $cf=!$cf:~-8! Hz

  28. if !cmd:~37!. neq . (echo "!cmd!" @ !$cf!)else (

  29.     echo !prt:~0,37! @ !$cf!

  30. )
复制代码
技术娱乐 3802

TOP

fastslz

Rank: 8Rank: 8

帖子
296 
积分
1212 
技术
41  
捐助
0  
注册时间
2008-1-7 
11楼
发表于 2011-6-19 12:00 | 只看该作者
不知道怎么回事，今天怎么测试8楼的也不报错了，见鬼了
  1. cff.bat "rem";"break";"popd";"set var=^!random^!";"call set a=1";"for /f %a in ("abcdef")do set str=%a";"setlocal&endlocal";"find /?>nul";"findstr /?>nul"
复制代码
Microsoft Windows [版本 6.1.7601]
Intel(R) Core(TM)2 Quad CPU    Q8300  @ 2.50GHz
NUMBER_OF_PROCESSORS=4
------------ CMD指令测试 -------------
"rem"                                 @ 531359.4 Hz
"break"                               @  25579.1 Hz
"popd"                                @  25579.1 Hz
"set var=!random!"                    @  17052.7 Hz
"call set a=1"                        @    947.5 Hz
"for /f %a in ("abcdef")do set str=%a @  17540.0 Hz
"setlocal&endlocal"                   @   5670.3 Hz
"find /?>nul"                         @    138.7 Hz
"findstr /?>nul"                      @    172.0 Hz

Microsoft Windows XP [版本 5.1.2600]
Intel(R) Core(TM)2 Quad CPU    Q8300  @ 2.50GHz
NUMBER_OF_PROCESSORS=4
------------ CMD指令测试 -------------
"rem"                                 @ 531359.4 Hz
"break"                               @ 158538.7 Hz
"popd"                                @ 158538.7 Hz
"set var=!random!"                    @  55831.8 Hz
"call set a=1"                        @   1804.7 Hz
"for /f %a in ("abcdef")do set str=%a @  63002.5 Hz
"setlocal&endlocal"                   @  18055.8 Hz
"find /?>nul"                         @     63.3 Hz
"findstr /?>nul"                      @     63.3 Hz

可见WinXP和Win7 cmd执行效率差异和大

TOP

plp626

Rank: 8Rank: 8

帖子
640 
积分
2838 
技术
101  
捐助
0  
注册时间
2008-1-17 
12楼
发表于 2011-6-19 18:35 | 只看该作者
从你的测试数据看，win7想对于xp：
仅外部命令启动所花费的时间变少了，是xp时间的一半。
cmd的内部命令执行效率反而低了！而且低了1倍以上！
像set这样实用非常频繁的指令，xp下执行的效率是win7的近4倍！
很意外，这到底是什么原因呢？
技术娱乐 3802

TOP

fastslz

Rank: 8Rank: 8

帖子
296 
积分
1212 
技术
41  
捐助
0  
注册时间
2008-1-7 
13楼
发表于 2011-6-19 19:13 | 只看该作者
本帖最后由 fastslz 于 2011-6-19 19:47 编辑

Microsoft Windows [版本 6.1.7601]
Intel(R) Core(TM) i3 CPU       M 370  @ 2.40GHz
NUMBER_OF_PROCESSORS=4
------------ CMD指令测试 -------------
"rem"                                 @ 531359.4 Hz
"break"                               @  58490.4 Hz
"popd"                                @  68252.7 Hz
"set var=!random!"                    @  22737.0 Hz
"call set a=1"                        @    692.5 Hz
"for /f %a in ("abcdef")do set str=%a @  26691.3 Hz
"setlocal&endlocal"                   @   7290.4 Hz
"find /?>nul"                         @    122.8 Hz
"findstr /?>nul"                      @    153.5 Hz


Microsoft Windows XP [版本 5.1.2600]
Intel(R) Core(TM) i3 CPU       M 370  @ 2.40GHz
NUMBER_OF_PROCESSORS=4
------------ CMD指令测试 -------------
"rem"                                 @ 634203.2 Hz
"break"                               @ 153584.3 Hz
"popd"                                @ 182025.9 Hz
"set var=!random!"                    @  66408.1 Hz
"call set a=1"                        @   3179.1 Hz
"for /f %a in ("abcdef")do set str=%a @  74457.5 Hz
"setlocal&endlocal"                   @  10223.3 Hz
"find /?>nul"                         @     29.6 Hz
"findstr /?>nul"                      @     30.4 Hz
还得改进
i3 M370是双核心4线程
NUMBER_OF_PROCESSORS其实是线程数
wmic cpu get NumberOfCores这个是核心数
再增加64bit 或32bit系统
wmic cpu get AddressWidth 或set PROCESSOR_ARCHITECTURE
从上面的数据可以看出原生4核和4线程还是有区别的，xp下外部命令效率提示很明显
  1. @echo off

  2. for /f "delims=" %%i in ('wmic cpu get name^,AddressWidth^,NumberOfCores^,NumberOfLogicalProcessors /Value') do set "%%i">nul

  3. echo %Name%

  4. echo 核芯数 %NumberOfCores%

  5. echo 线程数 %NumberOfLogicalProcessors%

  6. echo %AddressWidth% Bit

  7. ver
复制代码

TOP

qzwqzw

Rank: 8Rank: 8

帖子
508 
积分
1490 
技术
87  
捐助
0  
注册时间
2008-7-17 
14楼
发表于 2011-6-20 11:12 | 只看该作者
之前在想一个可以测试代码性能的工具
测试结果仅于代码有关
而与测试环境无关

可惜试了很多思路
没有找到足够完整的测试基准
可以抵消测试环境对测试结果的影响
天的白色影子

TOP

cjiabing

Rank: 8Rank: 8

帖子
1726 
积分
4476 
技术
95  
捐助
0  
注册时间
2008-12-21 
15楼
发表于 2011-6-20 22:39 | 只看该作者
不明白，求真相
寂寞是黑白的，但黑白不是寂寞，是永恒。BAT 需要的不是可能，而是智慧。

TOP

12
返回列表