You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
413 B
26 lines
413 B
2 years ago
|
if !has('perl')
|
||
|
|
finish
|
||
|
|
endif
|
||
|
|
|
||
|
|
function! PerlFunc()
|
||
|
|
if has('perl')
|
||
|
|
perl << EOF
|
||
|
|
print $^V; # 打印版本号
|
||
|
|
print "$_\n" for @INC; # 打印所有模块搜索路径
|
||
|
|
print "$_ = $ENV{$_}" for sort keys %ENV; # 打印所有环境变量
|
||
|
|
EOF
|
||
|
|
endif
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
if has('perl')
|
||
|
|
|
||
|
|
function! PerlFunc1()
|
||
|
|
" todo
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function! PerlFunc2()
|
||
|
|
" todo
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
endif
|