我已经开始创建一个包含默认电子邮件模板的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,它提供了一种方法.
原文地址:https://www.jb51.cc/Perl/172142.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。