如何从另一个 perl 文件添加库？

Question

我想将一个库导入到我的 perl 脚本中。以下是我的尝试：

function.pl

#!/usr/bin/perl
package main; 
use strict;
use warnings;
use 5.005;
use Term::ANSIColor qw(:constants); 
use LWP::Simple;    
use diagnostics;
use File::Spec;
use Getopt::Long;
use File::Basename;
use Cwd 'abs_path';

sub myfunction {
    print RED, " Deleting...", RESET;
    system("rm –f /file_location/*.");
    print "deleted.\n";      
}

我想在这个新的 perl 脚本中导入 function.pl。

#!/usr/bin/perl    
package main; 

myfunction;
myfunciton2;

Answer 1

删除 package main; - 不需要。

最佳实践方法（但不是最简单的方法）：

创建一个新目录 MyApp（用您的应用程序的某个唯一名称替换）并将文件 Global.pm 放入此目录：

package MyApp::Global; # Same name as Directory/File.pm!
use strict;
use warnings;

use Exporter;
use Term::ANSIColor qw(:constants);

our @ISA       = ('Exporter');
our @EXPORT_OK = qw(myfunction);

sub myfunction {
    print RED, " Deleting...", RESET;
    system("rm –f /file_location/*.");
    print "deleted.\n";  
}

1; # Important!

在使用行之后插入两个文件（function.pl 和 newone.pl）：

use MyApp::Global qw(myfunction);

基本方法（类似 PHP：更简单，但不是“最佳实践”）：

创建一个文件global.pl（或任何其他名称）：

use strict;
use warnings;

use Term::ANSIColor qw(:constants);

sub myfunction {
    print RED, " Deleting...", RESET;
    system("rm –f /file_location/*.");
    print "deleted.\n";  
}

1; # Important!

在use 行之后插入两个文件（function.pl 和 newone.pl）：

require 'global.pl';

另见：

• http://search.cpan.org/perldoc?Exporter
• http://www.perlmonks.org/?node_id=102347（感谢@Arunesh Singh）
• http://perldoc.perl.org/perlmod.html

Answer 2

如果您只想要一个容器来存放许多实用程序子例程，那么您应该使用Exporter

创建一个库模块

将您的包和模块文件命名为 main 以外的名称，这是您的主程序使用的默认包。在下面的代码中，我编写了模块文件Functions.pm，其中包含package Functions。名称​​必须匹配

函数.pm

package Functions;

use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = qw/ my_function /;

use Term::ANSIColor qw(:constants); 


sub my_function {
    print RED, " Deleting...", RESET;
    system("rm –f /file_location/*.");
    print "deleted.\n";      
}

1;

program.pl

#!/usr/bin/perl    

use strict;
use warnings 'all';

use Functions qw/ my_function /;

my_function();