Perl 5で 'when'文を使用できる条件は何ですか？

Question

givenブロックの外側にあるwhenの文については、ドキュメントが疎であるようです。 whenは 'トピック'が設定されているときに使用できますが、正確にトピックが設定されていると判断されたときは使用できますか？これらのケースを考えてみます。

for (@arr) { 
    when { } 
} 

が、これはデフォルト、基本ケース、ですが、私は5.14.2私のperlの上でも、この作業を取得できなかったようだ - $ perl -Mfeature=switch -e 'foreach (qw(a b c)) { when (/a/) {print 'boom'} }'は何も出力しません。私は間違って何をしていますか？これは単なるバッシュ引用問題であることが判明しました。

for my $elem (@arr) { 
    when { } 
} 

これは機能しますか？ whenが自動的に$ elemを使用してトピックになりますか？

for (@arr) { 
    $_ = some_expression($_); 
    when { } 
} 

これは機能しますか？ループ内でトピックを設定できますか？

また、上記の各コードセグメントでforの代わりにforeachを使用すると、違いはありますか？

基本的にはトピックのトピックが非常に不明なので、教えてください。

Answer 1

これはシェルコマンドの構築エラーです。

perl -Mfeature=switch -e 'foreach (qw(a b c)) { when (/a/) {print 'boom'} }' 

でなければなりません

perl -Mfeature=switch -e 'foreach (qw(a b c)) { when (/a/) {print '\''boom'\''} }' 

我々は

perl -Mfeature=switch -le'foreach (qw(a b c)) { when (/a/) {print "boom"} }' 

を簡素化するために二重引用符に切り替えることができ、我々はさらに

perl -E'for (qw(a b c)) { when (/a/) { say "boom" } }' 

キーワードforとを簡素化することができますはPerlと同じものです。

5.18がgivenとwhenを実験として示していることに注意してください。それは消えませんが、変わります。私は何が起こっているのかをhereについて説明します。

---

いいえ、whenは$elemを使用していません。常に$_を使用します。

---

あなたがそう望む場合は、[はい、あなたはforまたはgivenの内側$_を変更することができます。 foreachループは訪問している要素にトピックのエイリアスを付けるので、一方を変更すると他方が変更されます。

Answer 2

池上はあなたの実際の問題を発見しました。

2つの局所化剤は、for/foreachおよびgivenである。 $_（トピック変数）を設定する他の構文は、トピック化ツールとはみなされません（例：mapまたはgrep）。

ループ変数を明示的に指定してforeach-loopを実行すると、そのループはトピック化ツールとはみなされません。したがって、

for my $x (1..3) { 
    local $_ = $x; 
    say when 2; 
} 

は、最初の反復のために働くだろうが、その後死ぬ（できない「とき」のtopicalizer外）whenいったん終了します。

givenは、$_をローカライズしていない点が異なりますが、字句は$_です。つまり、given (@a) { foo; }は{ my $_ = \@a; foo; }と似ています（これは修正されている可能性があります）。