问题1

Question

简而言之，我尝试使用网络中每个实例的对象为网络拓扑建模。另外，我有一个顶级经理类，负责管理这些对象并执行完整性检查。文件结构看起来像这样（我遗漏了大多数对象文件，因为它们的结构都非常相似）：

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

如何在不静态输入名称的情况下确保正确加载所有这些对象？根本问题是：如果我只是require "$_" foreach glob("./Classes/*");我得到很多“子程序新重新定义”错误。我还使用use parent qw(-norequire Object)，Module::Find以及其他一些@INC修改进行了各种组合，以简化它：它不起作用。目前我正在静态导入所有使用过的类，它们会自动导入它们的父类基本上我要问的是：（perl-）这样做的正确方法是什么？
高级：能够创建一个更复杂的文件夹结构（因为会有相当多的对象）并且仍然具有继承+“自动加载”将非常有帮助

问题2 - 已解决

我如何“分享我的进口”？我使用了几个库（我自己的，包含一些辅助函数，LibXML，Scalar::Util等），我希望在我的对象中共享它们。（其背后的原因是，我可能需要为所有对象添加另一个公共库，并且很可能会有超过100个对象 - 没有乐趣手动编辑所有这些对象并且使用正则表达式/脚本执行此操作理论上可以工作但是这似乎不是最干净的解决方案）
我尝试了什么：

导入Manager.pm中的所有内容 - ＆gt;在Manager包中工作 - 给我一些错误，例如“undefined subroutine＆amp; Switch :: trace called”
在每个对象中创建一个include.pl文件和do / 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

Answer 1

这只是对问题2的部分回答，即共享导入。

加载模块（通过use）可以做两件事：

编译模块并在命名空间层次结构（共享）中安装内容。请参阅perldoc -f require。
在每个已加载的模块上调用import子。这会将一些子或常量等加载到调用者的命名空间中。这是一个Exporter类主要隐藏在视图之外的过程。这部分对于使用没有全名的sub等很重要，例如max代替List::Util::max。请参阅perldoc -f use。

让我们看看以下三个模块：A，B和User。

{
   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定义了一个子load，它将预定义的模块和子列表加载到调用者名称空间中：

{
   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'字符串中，我们暂时切换到调用程序包，然后加载指定的模块。这意味着User包代码现在看起来像这样：

{
   package User;
   B::load();
   # can use List::Util::max
   # can use max
}

但是，您必须确保已经加载了load子。 use B如果有疑问。在编译其余模块之前，最好在B::load()阶段执行BEGIN：

{
  package User;
  BEGIN {use B; B::load()}
  # ...
}

相当于

{
  package User;
  use B;
  use List::Util qw(max);
  # ...
}

TIMTOWTDI。虽然我发现eval代码非常混乱和危险，但这是我在这种情况下追求的方式（而不是do文件，这类似但有不同的副作用）。在包命名空间中手动搞乱使用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);
    # ...
  }
}

该模块隐藏了视图中的所有脏工作（eval ing），并进行方法调用解析体操，以允许将编译指示导入其他命名空间。

Answer 2

导入::进入解决方案的附录

我在Import :: Into解决方案中发现了一个似乎需要eval（）的场景。在这种情况下，mod用户实际上是包B中的用途。对于使用Import :: Into的人来说，这可能是一种常见的情况。

细节：

我使用单独的subs创建了模块uses_exporter以进行导入不同的模块组，例如load_generic（）和 load_list_utils（）。
load_list_utils（）中的用法是公共模式，如 List :: MoreUtils，AND到我自己的模块list_utils_again。那本地模块也调用load_list_utils（）。如果调用失败 load_list_utils（）使用list_utils_again。
我的解决方案是将list_utils_again的用法放入eval中 $ target eq'list_utils_again'

Answer 3

正确的惯用Perl方法是 not 总是加载一堆模块，无论是否使用;它是直接（非间接）需要的每个文件use。

如果事实证明每个文件使用相同的模块集，那么通过使用一个专用模块来使用该公共集中的所有模块，可以使事情更简单。

Perl：动态模块加载，对象继承和“常见帮助文件”

问题1

问题2 - 已解决

3 个答案:

修改：`Import::Into`

Perl：动态模块加载，对象继承和“常见帮助文件”

问题1

问题2 - 已解决

3 个答案:

修改：Import::Into

修改：`Import::Into`