Cのファイルスコープ変数と同等のPerlは何ですか？また、サブファイルで使用する方法は？

Question

パッケージを理解しようとすると、local、my、およびperlのリファレンス。私はq()の呼び出しの各数を返すことを期待するが、私は、彼らが返すべきかわからないんだけど...

package z; 
$x = 5; 

sub q() { return $z::x }; 

printf "q() .. %d\n", q(); 

my $xr = \$x; 

my $x = 7; 

printf "xr .. %d\n",$$xr; 

$$xr = 9; 

printf "x .. %d\n", $x; 

$$xr = 11; 

printf "q() .. %d\n", q(); 

を次のスクリプトを考えてみましょう。代わりに、私は次の出力を得る...

q() .. 0 
Argument "" isn't numeric in printf at src/demo/multi_my.pl line 8. 
xr .. 5 
x .. 7 
q() .. 0 
Argument "" isn't numeric in printf at src/demo/multi_my.pl line 22. 

Answer 1

q()は''を書くの別の方法です。そのため、q()は空の文字列を返します。あなたのサブとは異なる名前を使用してください。

---

myは、レキシカルスコープの変数を宣言します。これらは通常、カールによって作成されますが、ファイルはレキシカルスコープでもあります。したがって、ファイルにスコープを設定する変数を使用する場合は、角括弧の外側にmy $x;を使用してください。

---

あなたがアクセスする最初の$xはグローバルスコープです。プログラム全体で$z::xと表示されます。