Perl模块是否知道它的安装位置？

发布时间：2020-12-15 21:51:02 所属栏目：大数据来源：网络整理

导读：我已经开始创建一个包含默认电子邮件模板的Perl包. MANIFEST看起来像： SendMyEmail.pmSendMyEmail/defualt_email.tt 目前我知道模块(和模板)的位置 – 但模块本身是否知道它在磁盘上的位置？那么模块可以在没有我帮助的情况下找到默认模板吗？ # This is wh

我已经开始创建一个包含默认电子邮件模板的Perl包.

MANIFEST看起来像：

SendMyEmail.pm
SendMyEmail/defualt_email.tt

目前我知道模块(和模板)的位置 – 但模块本身是否知道它在磁盘上的位置？那么模块可以在没有我帮助的情况下找到默认模板吗？

# This is what I would like to do.
package SendMyEmail;
sub new {
    my ($self,$template) = @_;
    $template ||= $dir_of_SendMyEmail .'/SendMyEmail/default_email.tt'; # ??
}

是否有更好的方法来包含模板文本或更好的放置模板的地方？

任何类似CPAN模块的引用都是受欢迎的.

提前致谢.

解决方法

每个perl文件都可以访问变量__FILE__,它告诉它的完整路径.像这样的东西应该做的伎俩：

my $DEFAULT_TEMPLATE;
BEGIN {
    $DEFAULT_TEMPLATE = __FILE__;
    $DEFAULT_TEMPLATE =~ s,.pm$,/default_email.tt,;
}

尽管如此,如果您只想将“数据”文件与模块捆绑在一起,那么请查看File::ShareDir,它提供了一种方法.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!