如何在我的Perl脚本中包含另一个文件的函数？

发布时间：2020-12-15 21:28:30 所属栏目：大数据来源：网络整理

导读：这似乎是一个很简单的问题，但不知何故我的Google-Fu失败了我。在Perl中包含其他文件的函数的语法是什么？我正在寻找像C的东西#include“blah.h” 我看到了使用Perl模块的选项，但这似乎需要一个不小的重写我目前的代码。解决方法使用模块。查看 perldoc

这似乎是一个很简单的问题，但不知何故我的Google-Fu失败了我。

在Perl中包含其他文件的函数的语法是什么？我正在寻找像C的东西#include“blah.h”

我看到了使用Perl模块的选项，但这似乎需要一个不小的重写我目前的代码。

解决方法

使用模块。查看 perldoc perlmod和 Exporter。

在文件Foo.pm

package Foo;
use strict;
use warnings;
use Exporter;

our @ISA= qw( Exporter );

# these CAN be exported.
our @EXPORT_OK = qw( export_me export_me_too );

# these are exported by default.
our @EXPORT = qw( export_me );

sub export_me {
    # stuff
}

sub export_me_too {
    # stuff
}

1;

在您的主程序中：

use strict;
use warnings;

use Foo;  # import default list of items.

export_me( 1 );

或获得两个功能：

use strict;
use warnings;

use Foo qw( export_me export_me_too );  # import listed items

export_me( 1 );
export_me_too( 1 );

您也可以导入包变量，但是强烈不建议这样做。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!