程嶏清单13-2.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 28 行

TXT
28
字号
程序清单13-2:access_symtable.pl
#!/usr/bin/perl
#Dumping All Symbols in a Package
package DUMPVAR;
sub dumpvar {
        my ($packageName) = @_;
        local (*alias);             # a local typeglob
    # We want to get access to the stash corresponding to the package
    # name
        *stash = *{"${packageName}::"};  # Now %stash is the symbol table
    $, = " ";                        # Output separator for print
        # Iterate through the symbol table, which contains glob values
    # indexed by symbol names.
    while (($varName, $globValue) = each %stash) {
           print "$varName ============================= \n";
          *alias = $globValue;
          if (defined ($alias)) {
            print "\t \$$varName $alias \n";
          }
          if (defined (@alias)) {
            print "\t \@$varName @alias \n";
          } 
          if (defined (%alias)) {
            print "\t \%$varName ",%alias," \n";
            }
       }
}

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?