perl - require？を使用してグローバル変数の値にアクセスします。

Question

requireを使用して別のperlスクリプトで宣言されたグローバル変数の値にアクセスすることは可能ですか？

例えば。

Config.pl

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

our $test = "stackoverflow"

Main.pl

#!/usr/bin/perl
use warnings;
use stricts;

require "Config.pl"

print "$test\n";
print "$config::test\n";

Answer 1

もちろん。あなたが提案した方法はほとんど機能します。試す：

Config.pl：

use warnings;
use strict;

our $test = "stackoverflow";

およびメインプログラム：

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

require "Config.pl";

our $test;

print "$test\n";

を呼び出すrequireと、ファイルは呼び出し元と同じ名前空間で実行されます。したがって、名前空間やmy宣言がないと、割り当てられた変数はグローバルになり、スクリプトに表示されます。

Answer 2

あなたは書くことによって変数$testを宣言する必要がありますMain.pl

our $test;

あなたがするようにConfig.pl。その後、すべてが期待どおりに機能します。

Answer 3

モジュールを使用することをお勧めします。

MyConfig.pm：(「Config」と呼ばれるコアパッケージがすでにあります。）

package MyConfig;

use strict;
use warnings;
use Exporter qw( import );

our @EXPORT_OK   = qw( $test );
our %EXPORT_TAGS = ( ALL => \@EXPORT_OK );

our $test = "stackoverflow";

1;

main.pl：

use strict;
use warnings;
use MyConfig qw( :ALL );
print "$test\n";