my（）が条件付きで何が起こっていますか？

Question

はperl -w -Mstrictを使用して比較します、両方のグローバルシンボルは、明示的なパッケージ名を持っていない文句を言う

# case Alpha 
print $c; 

...

# case Bravo 
if (0) { 
    my $c = 1; 
} 

print $c; 

...

# case Charlie 
my $c = 1 if 0; 
print $c; 

AlphaとBravo期待される。しかしCharlieは、値のような多くの匂いれ、初期化されていないことだけを、同じ警告を与えるものではありません：

# case Delta 
my $c; 
print $c; 

正確にフードの下で何が起こっていますか？ （たとえこのようなものが生産コードのために書かれてはいけないのですが）

Answer 1

my宣言は、コンパイル時と実行時に動作すると考えることができます。コンパイル時には、my宣言は、シンボルが存在し、現在のレキシカルスコープの終わりまで使用可能になることに注意するようにコンパイラに指示します。その宣言におけるシンボルの割り当てまたはその他の使用は、実行時に行われます。

だからあなたの例

my $c = 1 if 0; 

あるよう

my $c;   # compile-time declaration, initialized to undef 
$c = 1 if 0; # runtime -- as written has no effect 

---

（注）このコンパイル時/実行時その区別は、あなたがこのようなコードを書くことができます。

my $DEBUG; # lexical scope variable declared at compile-time 
BEGIN { 
    $DEBUG = $ENV{MY_DEBUG}; # statement executed at compile-time 
}; 

ここで、このプログラムの出力を推測できますか？

my $c = 3; 
BEGIN { 
    print "\$c is $c\n"; 
    $c = 4; 
} 
print "\$c is $c\n"; 

Answer 2

mob's answer現在（と理由）が起こるが、perldoc perlsynを教えてくれることを忘れてはいけないものの偉大な説明です：

注：myの行動、state、またはourステートメント修飾子条件付きまたはループ構成（たとえば、my $x if ...）で変更された場合、は未定義です。 my変数の値は、 undef、以前に割り当てられた値、またはその他の値でもかまいません。 それに頼らないでください。 perlの将来のバージョンは、あなたがそれを試してみるperlのバージョンとは異なる何かをしているかもしれません（ ）。ここは龍です。

今後のバージョンのPerlでは、結果や説明がまだ真実であるとは考えていません。 （それはおそらくなりますが。）

Answer 3

「私の$ fooの= ヴァル指揮場合」を構築し、その未定義の動作が長年にわたって私に何度もかましています。私はコンパイラが単純にそれを拒否できればいいのですが（なぜ、未定義の動作をしている言語で何かを保つのですか？）、おそらくこれは下位互換性やその他の理由ではできません。私が見つけた最良の解決策はperlcriticでそれを防ぐためです：

http://search.cpan.org/perldoc?Perl::Critic::Policy::Variables::ProhibitConditionalDeclarations