[r210]: trunk / doc / if_perl.txt Maximize Restore History

Download this file

if_perl.txt    267 lines (217 with data), 10.7 kB

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
*if_perl.txt* For Vim version 7.4. 最近更新: 20138
VIM REFERENCE MANUAL by Sven Verdoolaege
and Matt Gerassimof
译者: foolstone@ustc.edu,Willis,tocer
http://vimcdoc.sf.net
Perl Vim *perl* *Perl*
1. 编辑 Perl 文档 |perl-editing|
2. 编译带 Perl 接口的 VIM |perl-compiling|
3. Perl 接口的使用 |perl-using|
4. 动态调入 |perl-dynamic|
{Vi 没有上述这些功能}
Perl 接口只有在编译 Vim 时加入 |+perl| 才能使用。
==============================================================================
1. 编辑 Perl 文件 *perl-editing*
Vim 语法高亮显示支持 Perl POD 文件。Vim 假设后缀为 .pl .pm 的文件是 Perl
文件。Vim 同时不管文件后缀而测试文件的首行来检查一个文件是否为 Perl 脚本 (参见
Vim syntax 目录下的 scripts.vim)。Vim 假设带后缀 .POD 的文件是 POD 文本。
要使用 Perl 标签,你需要 Exuberant ctags 的最新版本。在这里可以找到它:
http://ctags.sourceforge.net
当然,作为选择你还可以用一个叫 pltags.pl Perl 脚本,它和 Vim 一起发行的,位
$VIMRUNTIME/tools 目录下。这个脚本比 Exuberant ctags Perl 支持具备更多的
功能。
==============================================================================
2. 编译带 Perl 接口的 VIM *perl-compiling*
为了编译带 Perl 接口的 Vim,需要 Perl 5.004 (或者更新) 的版本。Perl 必须在你编
Vim 前安装。 Vim Perl 接口_不能_和官方发行的 Perl 5.003 一起正常工作!它
也许能和 Perl 5.003_05 或者更新版本一起正常工作。
_[译者注]到翻译的时候,这个问题已经不会是大问题了_
Vim Perl 补丁由
Sven Verdoolaege<skimo@breughel.ufsia.ac.be>
Matt Gerassimof
制作。
Perl MS-Windows 版本可以在下面这个网址找到: http://www.perl.com/
ActiveState 的版本应该可用。
==============================================================================
3. Perl 接口的使用 *perl-using*
*:perl* *:pe*
:pe[rl] {cmd} 执行 Perl 命令 {cmd}。当前包是 "main"。测试 `:perl`
否可用的简单例子: >
:perl VIM::Msg("Hello")
:pe[rl] << {endpattern}
{script}
{endpattern}
执行 Perl 脚本 {script}
{endpattern} _不能_有任何前导空格。如果忽略了
{endpattern},就会像 |:append| |:insert| 命令那样,
默认为点 '.'。在函数内使用时,最好指明 '.',因为 "$i;"
看起来像 Vim |:insert| 命令的开始。
|:perl| 命令的这种形式主要是用来在 vim 脚本里面包含
perl 代码。
备注: Perl 特性没有被编译进 vim 时这条命令不能工
作。为了避免出错,请参考 |script-here|。
vim 脚本示例: >
function! WhitePearl()
perl << EOF
VIM::Msg("pearls are nice for necklaces");
VIM::Msg("rubys for rings");
VIM::Msg("pythons for bags");
VIM::Msg("tcls????");
EOF
endfunction
<
*:perldo* *:perld*
:[range]perld[o] {cmd} [range] 中的每行执行 Perl 命令 {cmd},同时 $_ 依次
被赋值为每行的文本,但不包括行尾的 <EOL>。改变 $_ 会改
变每行的内容,但注意不能用这个命令添加或者删除行。
[range] 的缺省值是整个文件: "1,$"
可以试一下下面的代码: >
:perl $a=1
:perldo $_ = reverse($_);1
:perl VIM::Msg("hello")
:perl $line = $curbuf->Get(42)
<
*E299*
在沙盘 |sandbox| 里执行 Perl 命令是受限制的。":perldo" 根本就不能执行。如果可
能,":perl" 会在安全环境下被执行。
*perl-overview*
下面是在 Perl 下可用的函数概要: >
:perl VIM::Msg("Text") # 显示信息
:perl VIM::Msg("Error", "ErrorMsg") # 显示错误信息
:perl VIM::Msg("remark", "Comment") # 显示高亮的信息
:perl VIM::SetOption("ai") # 设定一个 vim 选项
:perl $nbuf = VIM::Buffers() # 返回缓冲区的个数
:perl @buflist = VIM::Buffers() # 返回所有缓冲区的数组
:perl $mybuf = (VIM::Buffers('qq.c'))[0] # 返回一个 'qq.c' 的缓冲区对象
:perl @winlist = VIM::Windows() # 返回所有窗口的数组
:perl $nwin = VIM::Windows() # 返回窗口的个数
:perl ($success, $v) = VIM::Eval('&path') # $v: 'path' 选项值,$success: 1
:perl ($success, $v) = VIM::Eval('&xyz') # $v: '' $success: 0
:perl $v = VIM::Eval('expand("<cfile>")') # 展开文件 <cfile>
:perl $curwin->SetHeight(10) # 设定窗口高度
:perl @pos = $curwin->Cursor() # 返回坐标 (row,col) 数组
:perl @pos = (10, 10)
:perl $curwin->Cursor(@pos) # 把光标位置设为 @pos
:perl $curwin->Cursor(10,10) # 把光标位置设为第 10 行第 10
:perl $mybuf = $curwin->Buffer() # 返回窗口的缓冲区对象
:perl $curbuf->Name() # 返回缓冲区名字
:perl $curbuf->Number() # 返回缓冲区编号
:perl $curbuf->Count() # 返回行数
:perl $l = $curbuf->Get(10) # 返回第 10
:perl @l = $curbuf->Get(1 .. 5) # 返回第 1 到第 5
:perl $curbuf->Delete(10) # 删除第 10
:perl $curbuf->Delete(10, 20) # 删除第 1020
:perl $curbuf->Append(10, "Line") # 添加一行
:perl $curbuf->Append(10, "Line1", "Line2", "Line3") # 添加三行
:perl @l = ("L1", "L2", "L3")
:perl $curbuf->Append(10, @l) # 添加 L1,L2 L3
:perl $curbuf->Set(10, "Line") # 替换第 10
:perl $curbuf->Set(10, "Line1", "Line2") # 替换第 10 行和第 11
:perl $curbuf->Set(10, @l) # 分别用 L1,L2 L3 替换 1012
<
*perl-Msg*
VIM::Msg({msg}, {group}?)
显示消息 {msg}。可选 {group} 参数指定用来显示这个消息
的高亮方式。
*perl-SetOption*
VIM::SetOption({arg})
设置一个 vim 选项。{arg} 可以是任何 ":set" 命令能接受
的参数。这就意味着参数里面不允许有空格!见 |:set|。
*perl-Buffers*
VIM::Buffers([{bn}...]) 没有参数的时候,在数组上下文里面返回所有缓冲区的列表,
在标量上下文里返回缓冲区的个数。对于一个缓冲区名字或者
编号的列表 {bn},返回匹配 {bn} 的缓冲区列表,与 Vim
部函数 |bufname()| 使用同样的规则。
警告: 使用 |:bwipe| 后,该列表就不合法了。如果要强行使
用会使 Vim 崩溃。
*perl-Windows*
VIM::Windows([{wn}...]) 没有参数的时候,在数组上下文里面返回所有窗口的列表,在
标量上下文里返回窗口的个数。对于一个窗口编号的列表
{wn},返回匹配 {wn} 的窗口列表。
警告: 窗口关闭后,该列表就不合法了。如果要强行使用会使
Vim 崩溃。
*perl-DoCommand*
VIM::DoCommand({cmd}) 执行 Ex 命令 {cmd}
*perl-Eval*
VIM::Eval({expr}) {expr} 求值并在列表上下文返回 (success,value),在
标量上下文则只返回 value。
success=1 表示 val 包含 {expr} 的值。success=0 表示表
达式求值失败。 '@x' 返回寄存器 x 的内容, '&x' 返回选
x 的值,'x' 返回内部变量 x 的值,'$x' 等价于 perl
中的 $ENV{x}。所有在命令行可以访问的函数都可用于
{expr}
列表 |List| 通过连接项目并在项目间插入换行符来转化为字
符串。
*perl-SetHeight*
Window->SetHeight({height})
把窗口的高度设定为 {height},不超过屏幕范围。
*perl-GetCursor*
Window->Cursor({row}?, {col}?)
在没有参数的情况下,返回窗口光标所处位置的坐标 (row,
col) 数组。当有参数 {row} {col} 的情况下,把窗口光
标的位置设为 {row} {col}。注意 {col} 是按 Perl 风格
0 数起的,比 Vim 的尺度小 1
Window->Buffer() *perl-Buffer*
返回给定窗口的缓冲区对象。
*perl-Name*
Buffer->Name() 返回缓冲区的文件名。
*perl-Number*
Buffer->Number() 返回缓冲区的编号。
*perl-Count*
Buffer->Count() 返回缓冲区中的行数。
*perl-Get*
Buffer->Get({lnum}, {lnum}?, ...)
对每个指定的 {lnum},返回缓冲区中第 {lnum} 行的文本字
符串。通过指定一个 {lnum} 列表可以传递一个数组。
*perl-Delete*
Buffer->Delete({lnum}, {lnum}?)
删除缓冲区的第 {lnum} 行。当有第二个参数 {lnum} 时,删
除由第一个 {lnum} 到第二个 {lnum} 指定的范围。
*perl-Append*
Buffer->Append({lnum}, {line}, {line}?, ...)
把每个 {line} 字符串添加到缓冲区的第 {lnum} 行后面。
{line} 列表可以是一个数组。
*perl-Set*
Buffer->Set({lnum}, {line}, {line}?, ...)
替代缓冲区从第 {lnum} 行开始,由 {line} 指定的一行或者
多行。 {line} 列表可以是一个数组。如果参数无效,就不作
替代。
$main::curwin
当前窗口对象。
$main::curbuf
当前缓冲区对象。
*script-here*
当使用嵌入式脚本语言时,你可能想在语言不支持时跳过这些语言的代码。但是以下机制
不能工作: >
if has('perl')
perl << EOF
this will NOT work!
EOF
endif
相反,应把 Perl / Python / Ruby 等的命令放在一个函数里面并调用它: >
if has('perl')
function DefPerl()
perl << EOF
this works
EOF
endfunction
call DefPerl()
endif
备注: "EOF" 必须在行首 (前面不能有前导空格)。
==============================================================================
4. 动态调入 *perl-dynamic*
MS-Windows Unix 上,可以动态调入 Perl 库。|:version| 输出这时应包括
|+perl/dyn|。
这意味着 Vim 只有在必要时才寻找 Perl DLL 或共享库文件。如果不使用 Perl 接口,
你就不需要它。这样,即使没有该文件,你也可使用 Vim。
MS-Windows ~
你可以从 http://www.perl.org 下载 Perl。用于编译 Vim 的是 ActiveState 提供的版
本。
要使用 Perl 接口,Perl DLL 必须在搜索路径上。
如果 Vim 报告找不到 perl512.dll,确保 $PATH 包含该文件所在的路径。Perl 安装程
序通常会做好这一点。
控制台窗口里输入 "path" 可以看到 (搜索路径) 当前使用的目录。
DLL 名必须匹配 Vim 编译时所使用的 Perl 版本。目前,该名字为 "perl512.dll",也
就是 Perl 5.12。要确信这一点,编辑 "gvim.exe" 文件并查找 "perl\d*.dll\c"。
==============================================================================
vim:tw=78:ts=8:ft=help:norl: