如何在两个不同的 perl 脚本之间共享/导出全局变量？

Question

我们如何在两个不同的 Perl 脚本之间共享或导出全局变量。

情况如下：

first.pl

#!/usr/bin/perl
use strict;
our (@a, @b);
.........

second.pl

#!/usr/bin/perl
use strict;
require first.pl;

我想使用全局变量 (@a, @b) 在 first.pl 中声明

另外，假设第二个 perl 文件中有一个与第一个 perl 文件相同的变量。但我想使用第一个文件的变量。如何实现这一目标？

Answer 1

一般来说，当您处理多个文件并在它们之间导入变量或子例程时，您会发现随着项目的增长，所需的文件最终会变得有点复杂。这是因为所有内容都共享一个公共名称空间，但某些变量在某些文件中声明，而在其他文件中则没有声明。

在 Perl 中解决这个问题的通常方法是创建模块，然后从这些模块中导入。在这种情况下：

#!/usr/bin/perl

package My::Module;  # saved as My/Module.pm
use strict;
use warnings;

use Exporter;
our @ISA = 'Exporter';
our @EXPORT = qw(@a @b);

our (@a, @b);

@a = 1..3;
@b = "a".."c";

然后使用该模块：

#!/usr/bin/perl

use strict;
use warnings;

use My::Module;  # imports / declares the two variables

print @a;
print @b;

use 行实际上意味着：

BEGIN {
    require "My/Module.pm";
    My::Module->import();
}

import 方法来自 Exporter。当它被调用时，它会将@EXPORT数组中的变量导出到调用代码中。

查看 Exporter 和 perlmod 应该给你一个起点。

Answer 2

是的，他们将共享全局变量。你觉得这有什么问题吗？

示例：

first.pl：

#!/usr/bin/perl

use strict;
use warnings;

our (@a, @b);

@a = 1..3;
@b = "a".."c";

second.pl：

#!/usr/bin/perl

use strict;
use warnings;

require "first.pl";

our (@a,@b);
print @a;
print @b;

给予：

$ perl second.pl
123abc

Answer 3

不能使用 package 并导出变量吗？