Jakie są warunki, w których można użyć instrukcji "when" w Perlu 5?

Question

Dokumentacja wydaje się skąpa w odniesieniu do instrukcji when poza blokami given. Mówi się, że when może być używany, gdy "temat" został ustawiony, ale kiedy dokładnie temat jest uważany za zestaw? Następujące przypadki:

for (@arr) { 
    when { } 
} 

Wydaje jest to ustawienie domyślne, podstawowa sprawa, ale nie mogłem dostać nawet tej pracy na mój Perl 5.14.2 - $ perl -Mfeature=switch -e 'foreach (qw(a b c)) { when (/a/) {print 'boom'} }' nie drukuje. Co ja robię źle? Okazało się, że to był kolejny problem z cytowaniem bash.

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

Czy to działa? Czy $ elem automatycznie stanie się tematem do użycia w when?

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

Czy to działa? Czy temat można ustawić w pętli?

Czy są jakieś różnice, gdy każdy z powyższych segmentów kodu używa foreach zamiast for?

Zasadniczo jestem bardzo niejasny w temacie tematów, więc proszę mnie oświecić.

Answer 1

To błąd konstrukcyjny polecenia powłoki.

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

powinny być

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

Możemy przełączyć się cudzysłów uprościć

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

I możemy uprościć dalsze

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

Keywords for i foreach są takie same dla Perla.

Należy zauważyć, że 5.18 oznaczone given i when jako eksperymentalne. Nie zniknie, ale się zmieni. Wyjaśniam, co się dzieje here.

---

Nie, when nie używa $elem; zawsze używa $_.

---

Tak, można zmienić $_ wewnątrz for lub given jeśli sobie tego życzą. Zauważ, że pętle foreach alaskują swój temat do odwiedzanego elementu, więc zmiana jednego z nich powoduje zmianę drugiego.

my @x = qw(abc def); 
for (@x) { $_ = uc($_); } 
say @x; # ABCDEF 

Answer 2

Ikegami dostrzegł twój rzeczywisty problem. Jeśli chodzi o inne pytania:

Dwa programy tematyczne to: for/foreach i given. Inne konstrukty, które ustawiają $_ (zmienną tematu), nie są traktowane jako obiekty do sortowania (np.map lub grep).

Jeśli uruchomisz pętlę foreach z jawną zmienną pętli, pętla nie będzie traktowana jako temat. Dlatego

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

będzie pracować dla pierwszej iteracji, ale potem umrzeć (nie można „kiedy” poza topicalizer) raz na when zostanie zamknięty.

Urządzenie given różni się tym, że nie lokalizuje $_, ale podaje leksykalny $_. Oznacza to, że given (@a) { foo; } jest podobne do { my $_ = \@a; foo; } (Myślę, że to może być naprawione).