perl - 将所有 Perl 的内置函数作为列表的最佳方法是什么？

Question

我正在尝试更新用于语法高亮的 xml 文件，因此我想知道获取所有 Perl 内置函数列表的最简单方法是什么。

Answer 1

这是 cnicutar 想法的快速实现：

use Pod::Find qw(pod_where);

my $perlfunc_path = pod_where({ -inc => 1 }, 'perlfunc');

open my $in, "<", $perlfunc_path or die "$perlfunc_path: $!";
while(<$in>) {
    last if /=head2 Alphabetical/;
}

while(<$in>) {
    print "$1\n" if /=item (.{2,})/;
}

为您提供包括如下参数的列表：

-X FILEHANDLE
-X EXPR
-X DIRHANDLE
-X
abs VALUE
abs
...

Answer 2

查看源码中的toke.c文件perl：

  $ perl -nE 'next unless /case KEY_(\S+):/; say $1' toke.c | sort | uniq

您会发现许多不会出现在perlfunc中的东西。但是，这取决于您要如何分割要着色的各种事物。

您还可以查看PPI、静态 Perl 解析器或现有的 Perl 语法荧光笔。

Answer 3

我会解析perldoc perlfunc（“Perl Functions by Category”部分）。

Answer 4

我刚才遇到了同样的问题，并且

egrep '^=item' /usr/lib/perl5/5.10.0/pod/perlfunc.pod | perl -anle '$F[1]=~s/\W//g; print $F[1]' | sort | uniq

为我工作（但请注意，它并不完美）