[20120117-1530]test1.vim/置換速度チェック

test1.vim

let g:loop_cnt = 2000000

func! s:test_func1()
  let target_str = '@octopress\source'
  let str = '\\machine\Dropbox\octopress'
  let i = 0
  let ie = g:loop_cnt
  while ( i < ie )
    let ret_str = substitute(target_str,'@octopress', str, '')
    let i += 1
  endwhile
endfunc

func! s:test_func2()
  let target_str = '@octopress\source'
  let str = '\\machine\Dropbox\octopress'
  let i = 0
  let ie = g:loop_cnt
  while ( i < ie )
    let a_str = substitute(str,'\\', '\\\\', 'g')
    let ret_str = substitute(target_str,'@octopress', a_str, '')
    let i += 1
  endwhile
endfunc

func! s:test_func3()
  let target_str = '@octopress\source'
  let str = '\\machine\Dropbox\octopress'
  let i = 0
  let ie = g:loop_cnt
  let ptn = '@octopress'
  let ptn_len = len(ptn)
  while ( i < ie )
    let idx = stridx(target_str, ptn)
    let ret_str = strpart(target_str, 0, idx) . str . strpart(target_str, idx+ptn_len)
    let i += 1
  endwhile
endfunc

func! s:test_func4()
  let target_str = '@octopress\source'
  let str = '\\machine\Dropbox\octopress'
  let i = 0
  let ie = g:loop_cnt
  while ( i < ie )
    let ret_str = substitute(target_str,'@octopress', '\=str', '')
    let i += 1
  endwhile
endfunc

func! TestFunction()
  let st_time = reltime()
  call s:test_func1()
  echo "s:test_func1->" . split(reltimestr(reltime(st_time)))[0]

  let st_time = reltime()
  call s:test_func2()
  echo "s:test_func2->" . split(reltimestr(reltime(st_time)))[0]

  let st_time = reltime()
  call s:test_func3()
  echo "s:test_func3->" . split(reltimestr(reltime(st_time)))[0]

  let st_time = reltime()
  call s:test_func4()
  echo "s:test_func4->" . split(reltimestr(reltime(st_time)))[0]
endfunc