我刚刚了解到,在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符号表中,不可打印字符是用来做什么的?它们代表什么符号?
*main::
。 - Dondi Michael Stroma