Manager.pm Constants.pm Classes/ +- Machine.pm +- Node.pm +- Object.pm +- Switch.pm
在OOP中花了几年时间,我是代码重用等的粉丝所以我设置了thos对象之间的继承,继承树(在这个例子中)看起来像这样：
Switch -+-> Node -+-> Object Machine -+
所有这些对象的结构都是这样的：
package Switch;
use parent qw(Node);
sub buildFromXML {
...
}
sub new {
...
}
# additonal methods
现在有趣的部分：
问题1
如何在不静态输入名称的情况下确保正确加载所有这些对象？
根本问题是：如果我只需要“$_”foreach glob(“./ Classes / *”);我得到很多“Subroutine new redefined at”错误.我也玩过使用父qw(-norequire Object),Module :: Find以及其他一些@INC修改的各种组合,以简化它：它没有用.目前我正在静态导入所有使用过的类,它们会自动导入它们的父类.
基本上我要问的是：(perl-)这样做的正确方法是什么？
高级：能够创建更复杂的文件夹结构(因为会有相当多的对象)并且仍然具有继承“自动加载”将非常有帮助
问题2 – 已解决
我如何“分享我的进口”？我使用了几个库(我自己的,包含一些辅助函数,LibXML,Scalar :: Util等),我想在我的对象中共享它们. (其背后的原因是,我可能需要为所有对象添加另一个公共库,并且很可能会有超过100个对象 – 没有乐趣手动编辑所有这些对象并且使用正则表达式/脚本执行此操作理论上可行但是这似乎不是最干净的解决方案)
我尝试了什么：
>在Manager.pm中导入所有内容 – >在Manager包中工作 – 给我一些错误,比如“未定义的子程序& Switch :: trace called”
>创建一个include.pl文件并在每个对象中执行/ require / use – 给我相同的错误.
>遗憾的是还有一些东西我不记得了
include.pl基本上看起来像这样：
use lib_perl; use Scalar::Util qw(blessed); use XML::LibXML; use Data::Dumper; use Error::TryCatch; ...
我再次问：做正确的方法是什么？我使用正确的方法,只是在执行失败或我应该完全改变我的结构？
为什么我当前的代码不能很好地工作,为那些问题提供正确,干净的方法到目前为止就足够了:)
编辑：完全忘记perl版本-_-旁注：我无法升级perl,因为我需要使用5.8的库：/
C:\> perl -version This is perl,v5.8.8 built for MSWin32-x86-multi-thread (with 50 registered patches,see perl -V for more detail) Copyright 1987-2006,Larry Wall Binary build 820 [274739] provided by ActiveState http://www.ActiveState.com Built Jan 23 2007 15:57:46
解决方法
加载模块(通过使用)有两件事：
>编译模块并在命名空间层次结构(共享)中安装内容.请参阅perldoc -f require.
>在每个加载的模块上调用import子.这会将一些子或常量等加载到调用者的命名空间中.这是一个Exporter类很大程度上隐藏在视图中的过程.这部分对于使用没有全名的sub等很重要,例如max而不是List :: Util :: max.请参阅perldoc -f使用.
让我们看看以下三个模块：A,B和用户.
{
package A;
use List::Util qw(max);
# can use List::Util::max
# can use max
}
{
package User;
# can use List::Util::max -> it is already loaded
# cannot use max,this name is not defined in this namespace
}
包B定义了一个子加载,它将预定义的模块列表加载到调用者名称空间中：
{
package B;
sub load {
my $package = (caller())[0]; # caller is a built-in,fetches package name
eval qq{package $package;} . <<'FINIS' ;
use List::Util qw(max);
# add further modules here to load
# you can place arbitrarily complex code in this eval string
# to execute it in all modules that call this sub.
# (e.g. testing and registering)
# However,this is orthogonal to OOP.
FINIS
if ($@) {
# Do error handling
}
}
}
在eval’d字符串中,我们暂时切换到调用程序包,然后加载指定的模块.这意味着用户包代码现在看起来像这样：
{
package User;
B::load();
# can use List::Util::max
# can use max
}
但是,您必须确保已经加载了子载荷.如果有疑问,请使用B.在编译其余模块之前,最好在BEGIN阶段执行B :: load()：
{
package User;
BEGIN {use B; B::load()}
# ...
}
相当于
{
package User;
use B;
use List::Util qw(max);
# ...
}
TIMTOWTDI.虽然我发现evaling代码非常混乱和危险,但这是我在这种情况下追求的方式(而不是做文件,这类似但有不同的副作用).在包名称空间中手动搞乱使用typeglobs是比较糟糕的,复制粘贴模块名称列表就像回到没有C的预处理器的日子.
编辑：Import::Into
…是一个CPAN模块,通过一个有趣的方法接口提供此功能.使用此模块,我们将通过以下方式重新定义我们的B包：
{
package B;
use List::Util; # you have to 'use' or 'require' this first,before using 'load'.
use Import::Into; # has to be installed from CPAN first
sub load {
my $package = caller;
List::Util->import::into($package,qw(max));
# should work too: strict->import::into($package);
# ...
}
}