理解Perl包命名空间：如何在脚本末尾初始化包内声明的变量

你遇到的问题本质是两个Perl基础特性的共同作用：

• 词法变量作用域限制：my 声明的变量是词法变量，作用域仅局限于它所处的代码块（也就是你最开始写的 package help { ... } 大括号内部），出了这个块之后，哪怕你再写一个同名package的块，也看不到之前声明的my %HELPTEXT，二者是完全独立的作用域。
  你直接写$help::HELPTEXT 访问的是help包的全局变量，和之前my声明的私有词法变量完全是两个不同的存储，所以你给包全局变量赋值，get_help函数读的还是自己作用域里那个空的私有哈希，自然会报未初始化。
• 执行顺序问题：Perl的主程序代码是从上到下顺序执行的，你把main()的调用写在初始化代码前面，意味着初始化赋值还没执行，就先调用了get_help读变量，不管你变量声明得对不对，这时候读肯定是空值。你之前把初始化放INIT{}块没用，大概率是因为你没有把变量声明和访问逻辑对齐，两边操作的还是不同的变量。

方案1：保留私有变量封装（更推荐） #

不需要暴露内部的%HELPTEXT，只需要在help包新增一个设置接口，再把初始化逻辑放到INIT块保证执行顺序即可：

#!/usr/bin/perl
use strict;
use warnings;

package help {
    my %HELPTEXT; # 依然是私有词法变量，不对外暴露

    sub get_help( $ ) {
        print $HELPTEXT{ $_[0] };
    }

    # 新增设置帮助文本的公开接口
    sub set_help( $$ ) {
        my ($topic, $content) = @_;
        $HELPTEXT{$topic} = $content;
    }
}

package main {
    sub main() {
        help::get_help( "topic" );
    }
}

main(); # 主调用写在这里也没问题，INIT块会先执行

# 脚本末尾的初始化逻辑，INIT块会在所有编译完成后、主程序运行前执行
INIT {
    help::set_help("topic", "Some help\n");
}

方案2：使用包全局变量 #

如果你不想加额外接口，可以把原来的私有词法变量改成包全局变量，两边都操作同一个全局哈希即可：

#!/usr/bin/perl
use strict;
use warnings;

package help {
    our %HELPTEXT; # 把my改成our，声明为help包的全局变量

    sub get_help( $ ) {
        print $HELPTEXT{ $_[0] };
    }
}

package main {
    sub main() {
        help::get_help( "topic" );
    }
}

main();

# 脚本末尾初始化，用INIT块保证在main执行前运行
INIT {
    $help::HELPTEXT{"topic"} = "Some help\n";
}

如果你不想用INIT块，直接把main()的调用放到整个脚本的最末尾也可以，不需要额外调整执行顺序。

内容的提问来源于stack exchange，提问作者DevSolar