- 論壇徽章:
- 0
|
在vim里編輯perl代碼時(shí)，只要將光標(biāo)移到模塊名上，然后敲入':gm',就能立刻導(dǎo)航至那個(gè)模塊。
特性：
1 使用@INC變量查找模塊；
2 如果找到的模塊只有一個(gè)，就會(huì)立刻跳至那個(gè)模塊；
3 如果找到的模塊不止一個(gè)（多個(gè)版本），會(huì)顯示一個(gè)可供選擇的列表（就像命令補(bǔ)全一樣）；
4 如果沒(méi)有找到模塊，則會(huì)給出高亮提示信息"Module '$module' not found";
函數(shù)代碼如下：
let g:perl_path_to = {}
function! GotoModule(module)
let files = []
if !has_key(g:perl_path_to, a:module)
let g:perl_path_to[a:module] = []
let lib = split(system("perl -le 'print join $/ => @INC'"), "\n")
let module = substitute(a:module, '::', '/', 'g') . '.pm'
for path in lib
let path = path . '/' . module
if filereadable(path)
let g:perl_path_to[a:module] = g:perl_path_to[a:module] + [ path ]
endif
endfor
endif
let paths = g:perl_path_to[a:module]
if empty(paths)
echomsg("Module '".a:module."' not found")
else
let file = PickFromList('file', paths)
endif
execute "edit " . file
endfunction
function! PickFromList( name, list, ... )
let forcelist = a:0 && a:1 ? 1 : 0
if 1 == len(a:list) && !forcelist
let choice = 0
else
let lines = [ 'Choose a '. a:name . ':' ]
\ + map(range(1, len(a:list)), 'v:val .": ". a:list[v:val - 1]')
let choice = inputlist(lines)
if choice > 0 && choice <= len(a:list)
let choice = choice - 1
else
let choice = choice - 1
endif
end
return a:list[choice]
endfunction |
使用方法：
在.vimrc里加入：
" only works for Perl
au! FileType perl :noremap <buffer> :gm :call GotoModule(expand('<cword>'))<cr>
" make sure we pick up the colon as part of our keyword
autocmd FileType perl setlocal iskeyword+=:
" don't kill 'undo' in other buffers
set hidden
使用此方法可以提高編寫(xiě)較復(fù)雜程序時(shí)的效率，平常寫(xiě)腳本的時(shí)候也可以隨時(shí)很方便地用它查看核心模塊的代碼。
原文：http://use.perl.org/~Ovid/journal/36602
(作者Ovid是O‘relly Perl Hacks的主要作者)
[ 本帖最后由 Nosferatu 于 2008-6-9 21:59 編輯 ] |
|
免費(fèi)注冊(cè)
發(fā)表于 2008-06-09 21:58
發(fā)表于 2008-06-10 10:41
