Question

（如果我以错误的方式提出问题，请纠正我。）

我正在制作标准/通用方法来简化我使用perl在linux上制作的所有脚本/应用程序。

我已经找到了制作标准子程序的解决方案，并从一个文件调用它来完成我想要的大多数标准作业（变量声明/检查器/等）。

现在我遇到的最后一个问题是如何调用不同的模块集（tk，dbi等），我只需要从文件中调用它们即可。不仅如此。我制作了标志，它将激活我的标准/通用子程序中的内容，现在我还希望在仅基于该标志激活模块列表时应用这些条件。

基于我声明的标志的含义，只会激活那些需要激活的模块列表。

怎么做？：）

其他细节。

不是使用.pm创建的模块，而是使用Perl模块：

use Net::Domain qw(hostname hostfqdn hostdomain);
use Time::Local;
use Time::Piece;
use Switch;
use Exporter;
#use strict;

use File::Basename;
use Data::Dumper qw(Dumper);

use Time::Local;                                      
use Time::Piece;
use Time::Seconds();                                     

use Tk;
use Tk::BrowseEntry;
use Tk::Balloon;                                 
use Tk::widgets qw(Checkbutton BrowseEntry);          
use Tk::NoteBook;                                     
use Tk::Pane;   
use Tk::Photo;

Answer 1

你可以自由地使用'require'，它只在控件在运行时到达它时进行评估 - 不同于在BEGIN {}中提取的'use'。

可以根据条件语句加载列表perl模块吗？

1 个答案: