use feature "switch"; for or given. (Allgemeines zu Perl)

[thread]20094[/thread]

use feature "switch"; for or given.

Readers: 15

Articles: hide open all | hide show old branches

+2 replies
mika

2016-06-12 08:26
User since
2010-10-02
168 articles
BenutzerIn
Hallo,

http://perldoc.perl.org/perlsyn.html#Switch-Statem..., man kann statt given auch for schreiben:
Code (perl): (dl )

1 2 3 4 5 6

for ($var) { when (/^abc/) { $abc = 1 } when (/^def/) { $def = 1 } when (/^xyz/) { $xyz = 1 } default { $nothing = 1 } }
Was bevorzugt ihr, die given oder die for Variante?

Ich mag Perl ja auch wegen seiner Freiheiten, bei der Syntax gegenüber z.B. Python.

Aber gerade musste ich doch überlegen, ob mir das for gefällt. Aber eigentlich ist sogar besser als das given, auch wenns das for-Schlüsselwort vlt. etwas überlädt.

Was meint ihr? Man hat ja beide Möglichkeiten, um schönen Code zu schreiben. Und ist das überhaupt eine Geschmacksfrage, oder eine technische Entscheidung?
Last edited: 2016-06-12 13:59:23 +0200 (CEST)
- guest wer
  
  2016-06-12 22:58
  das mit dem "for" funktioniert weil $_ dabei gefüllt wird.
  
  "given", "when", "default" ist etwas in der Art:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  sub given($&) { ($_,$code) = @_; { local $match = 0; $code->(); } } sub when($&) { my ($test,$code) = @_; if(/$test/) { $code->() ; $match=1; } } sub default(&) { my ($code) = @_; $code->() unless($match): }
  
  Ein bisschen mehr steht bei "when" schon dahinter weil man nicht nur Regex benutzen kann und man es wie ein "if" oder "for" Verwenden kann. Aber das sind die Grundzüge.
  
  Wenn ich mich richtig erinnere machten die das früher durch einen Parser, der während der Parser-Zeit im Perl-Compiler "given", "when" und "default" durch etwas in der Art ersetzen:
  
  when( ... ){ ... } => when( ... , sub{ ... });
  default{ ... } => default(sub{ ... });
  given(...){ ... } => for(...){ local $match=0; ... });
  
  Dieses verändern des Code bevor er von Perl geparst wird hat in der Vergangenheit immer wieder Probleme bereitet.
  Mittlerweile wurden die Funktionen fest in Perl integriert.
  Last edited: 2016-06-13 09:29:04 +0200 (CEST)

View all threads created 2016-06-12 08:26.