10

我刚刚了解到，在 Perl 中，给定模块的符号表存储在与模块名称匹配的哈希中 - 例如，虚构模块的符号表Foo::Bar将是%Foo::Bar. 默认符号表存储在%main::. 出于好奇，我决定要查看 中的内容%main::，因此遍历哈希中的每个键/值对，边走边打印：

#! /usr/bin/perl

use v5.14;
use strict;
use warnings;

my $foo;
my $bar;
my %hash;

while( my ( $key, $value ) = each  %:: )  {
    say "Key: '$key' Value '$value'";
}

输出如下所示：

Key: 'version::' Value '*main::version::'
Key: '/' Value '*main::/'
Key: '' Value '*main::'
Key: 'stderr' Value '*main::stderr'
Key: '_<perl.c' Value '*main::_<perl.c'
Key: ',' Value '*main::,'
Key: '2' Value '*main::2'
...

我期待看到 STDOUT 和 STDERR 文件句柄，也许还有 @INC 和 %ENV ......我没想到看到的是非 ascii 字符......上面的代码块没有显示的是输出的第三行实际上有一个表示不可打印字符的字形。

我运行脚本并按如下方式通过管道传输它：

perl /tmp/asdf.pl | grep '[^[:print:]]' | while read line
do 
    echo $line
    od -c <<< $line
    echo
done

输出如下所示：

Key: '' Value '*main::'
0000000   K   e   y   :       ' 026   '       V   a   l   u   e       '
0000020   *   m   a   i   n   :   : 026   '  \n
0000032

Key: 'ARNING_BITS' Value '*main::ARNING_BITS'
0000000   K   e   y   :       ' 027   A   R   N   I   N   G   _   B   I
0000020   T   S   '       V   a   l   u   e       '   *   m   a   i   n
0000040   :   : 027   A   R   N   I   N   G   _   B   I   T   S   '  \n
0000060

Key: '' Value '*main::'
0000000   K   e   y   :       ' 022   '       V   a   l   u   e       '
0000020   *   m   a   i   n   :   : 022   '  \n
0000032

Key: 'E_TRIE_MAXBUF' Value '*main::E_TRIE_MAXBUF'
0000000   K   e   y   :       ' 022   E   _   T   R   I   E   _   M   A
0000020   X   B   U   F   '       V   a   l   u   e       '   *   m   a
0000040   i   n   :   : 022   E   _   T   R   I   E   _   M   A   X   B
0000060   U   F   '  \n
0000064

Key: ' Value '*main:'
0000000   K   e   y   :       '  \b   '       V   a   l   u   e       '
0000020   *   m   a   i   n   :   :  \b   '  \n
0000032

Key: '' Value '*main::'
0000000   K   e   y   :       ' 030   '       V   a   l   u   e       '
0000020   *   m   a   i   n   :   : 030   '  \n
0000032

那么 Perl 符号表中的不可打印字符在做什么呢？它们的符号是什么？

4

2 回答 2

10

Guru 走在正确的轨道上：具体来说，答案可以在perlvar中找到，它说：

“Perl 变量名称也可以是数字序列或单个标点符号或控制字符。这些名称都是为 Perl 的特殊用途保留的；例如，全数字名称用于保存正则表达式后的反向引用捕获的数据匹配。Perl 对单控制字符名称有一种特殊的语法：它理解^X(caret X) 表示控制 X 字符。例如，符号$^W(dollar-sign caret W) 是标量变量，其名称是单字符 control-W。这比在程序中输入文字 control-W 更好。

从 Perl 5.6 开始，Perl 变量名可以是以控制字符（或者更好的是，插入符号）开头的字母数字字符串。这些变量必须写成${^Foo}; 大括号不是可选的。${^Foo}表示标量变量，其名称为 control-F 后跟两个 o。这些变量为 Perl 将来的特殊用途保留，除了以^_(control-underscore 或 caret-underscore) 开头的变量。^_在 Perl 的任何未来版本中，任何以 因此，这些名称可以在程序中安全地使用。$^_然而，它本身是保留的。”

如果你想以一种可读的方式打印这些名称，你可以在你的代码中添加这样的一行：

$key = '^' . ($key ^ '@') if $key =~ /^[\0-\x1f]/;

如果 of 的第一个字符$key是控制字符，则将其替换为插入符号，后跟相应的字母（^A对于 control-A，^B对于 control-B，等等）。

于 2013-04-10T06:48:38.830 回答
1

Perl 有特殊的变量，例如$", $,, $/,$\等等。所有这些都是符号表的一部分，这就是您所看到的。此外，您还应该能够在符号表中看到@INC、%ENV。

于 2013-04-10T05:06:12.960 回答