Perl导入代码文件

时间:2023-01-18 17:31:02

从函数复用开始:eval和do执行perl文件

当我们定义了一个功能比较通用的子程序,比如获取数值的绝对值。想要到处使用这个子程序,就得不断复制、粘贴这段绝对值函数的定义文本。显然,这是不太理想的方式。

于是,就将包含这个子程序的代码放进一个perl文件,然后通过特殊的语法去导入这个文件。

例如,文件sum.pm包含一个sum子程序,该子程序返回参数相加之和。

#!/usr/bin/env perl
                     # 注意,这里为了测试,没加use strict
sub sum {
    my $sum;
    $sum = map { $_ + $sum } $@
    $name;
}
$name="longshuai";   # 全局变量属性

其中.pm后缀表示perl module。在perl 4的时候,使用的是.pl后缀,代表的是perl library。但现在,模块、包都使用.pm替代,而.pl主要代表perl程序。

eval语句导入文件

可以在其它perl文件中(如eval.pm)通过eval语句临时编译这个文件(sum.pm)中的语句。只不过在eval之前,需要先将sum.pm文件中的内容读取:

#!/usr/bin/env perl
#
use strict;
use warnings;
use 5.010;

open my $fh,"<","sum.pm" or die "Can't open file: $!";
undef $/;
my $sum_code=<$fh>;  # 读取代码保存到变量中
close $fh;
eval $sum_code;      # eval评估编译这段代码,并执行
die $@ if $@;

my $sum=sum(1,2,3);  # 引用来自sum.pm的函数
say $sum;

上面的代码会报错。因为eval $sum_code是将来自sum.pm中的代码放在当前文件中临时进行编译,这段来自sum.pm的代码已经属于本文件。就等价于:

eval CODE;

所以,来自sum.pm中的全局属性$name在当前文件的use strict编译指示下将引发错误。所以,得将sum.pm内容中的$name去掉,或者加上my修饰。

eval中来自sum.pm的代码将能访问它所在代码块的词法变量。

do语句导入文件

也可以通过do语句临时编译这个文件,它将在当前程序(无论do语句是否是在代码块中)引入编译的结果(但除了子程序外的其它属性,由于一般会加上use strict,而导致为未声明的变量不可使用,间接地,所导入的文件中的变量$name将失效)。

#!/usr/bin/env perl
#
use strict;
use warnings;
use 5.010;

{
    do 'sum.pm';
    die $@ if $@;
    my $sum=sum(1,2,3);
    say $sum;
    # say $name;   # 因为use strict的存在,而报错
}
say sum(2,3,4);    # 出了语句块,函数仍有效

注意,do语句是在当前文件中引入变异结果,而不是当前代码块。

do导入文件时如果使用的是相对路径(如do 'sum1.pm'),将搜索@INC,搜索到后将更新%INC保持跟踪。

require导入文件

想象一下,如果在myperl.pm中使用do一次性导入两个文件sum1.pm、sum2.pm:

do 'sum1.pm';
die $@ if $@;
do 'sum2.pm';
die $@ if $@;

假设sum2.pm中也用了do语句导入sum1.pm,这样将会在myperl.pm中多次导入sum1.pm。其实第二次导入是多余的,尽管两次导入的内容是完全一致的,而且如果开启了use warnings,将会发出警告。

使用require语句可以解决这样重定义问题。

require '/perlapp/sum1.pm';   # 要给定正确的路径
require '/perlapp/sum2.pm';

require会在hash结构%INC中跟踪已经成功导入的文件,即使sum2.pm中也有require 'sum1.pm'语句。

为了跟踪是否曾经导入成功,要求所导入的文件最后要返回一个true,一般都会使用数值1作为所导入文件代码的结尾。并非一定是1,也可以是其它值,只要能表示最后这个文件是成功的就行。

例如,sum1.pm中:

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

sub sum {
    my $sum;
    $sum = map { $_ + $sum } $@
    $name;
}
1;       # 最后一行用1表示成功

以下是require相关的几点特性:

  • require的本质上do语句,do语句的本质是eval
  • require是在程序运行时执行的
  • 所导入文件中的任何语法错误都回直接die,因此可以省略die $@ if $@
  • require还能用于要求版本号,例如:require 5.010;
  • 在使用require时,如果使用的是裸词,例如require Foo::Bar;,将搜索@INC中的Foo/Bar.pm文件
  • 如果使用的不是裸词,如下。如果是绝对路径,则按照绝对路径查找,如果是相对路径,将从@INC路径下直接搜索Foo::Bar文件,显然文件一般不会这样命名,将会发出警告
    • require "Foo::Bar";:(双引号的存在)
    • require $class;其中$class="Foo::Bar"
    • require 'myperl.pm';