Perl符号表中的不可打印字符代表什么？

我刚刚知道,在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符号表中做什么是不可打印的字符呢？他们的符号是什么？

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