Switch Syntax Fehler? (Allgemeines zu Perl)

[thread]13592[/thread]

Switch Syntax Fehler?

Leser: 21

Articles: hide open all | hide show old branches

+7 replies
jgeier

2009-05-30 21:13
User since
2009-05-10
22 Artikel
BenutzerIn
Hallo zusammen,

ich möchte eine Switch Struktur verwenden.

Jedoch gibt mir mein Compiler folgenden Fehler aus.

String found were operator expectet line 5, near " case "hier""
(Missing operator before "hier"?)

Ich bin jedoch der Meinung das ich SWITCH richtig verwendet habe.

Kann mir hier jemand weiter helfen?
Code (perl): (dl )

1 2 3 4 5 6

my $ftest = "hier"; my $ferg = ""; switch ($ftest) { case "hier" {$ferg = "hier und heute";} }
Mit freundlichen Grüßen
Jens Geier

=====================================
Server : NOVELL NetWare 6.5 SP7
Perl : V5.8.4
=====================================
- +3 replies
- sid burn
  
  2009-05-30 22:02
  User since
  2006-03-29
  1520 Artikel
  BenutzerIn
  Perl hat kein eingebautes "switch" Statement. Wenn du die Syntax nutzen möchtest so wie du es geschrieben hast, dann musst du "use Switch" schreiben damit das geht.
  
  Allerdiengs rate ich davon eher ab, weil dieses Switch ein SourceFilter ist. Und SourceFilter neigen dazu in Situationen nicht zu funktionieren und komische Fehler zu melden.
  
  Perl hat erst seit Perl 5.10 ein aquivalent zum switch Statement. Da dieses aber mächtiger verglichen zu anderen Sprachen ist, heißt es hier given/when. http://perldoc.perl.org/perlsyn.html#Switch-statem...
  
  Das ist allerdiengs erst ab Perl 5.10 verwendbar.
  
  Ansonsten in deinem Fall würde ich hingehen und lieber eine if..elsif..elsif..else Struktur aufbauen oder noch besser eine Dispatch Tabelle.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $ftest = "hier"; my %switch = ( hier => sub { return "hier und heute" }, dort => sub { return "dort und morgen" }, ); my $ferg = $switch{$ftest}->()
  
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - +2 replies
  - jgeier
    
    2009-05-30 22:23
    User since
    2009-05-10
    22 Artikel
    BenutzerIn
    
    Hallo sid burn,
    
    das mit mit dem SWITCH hash ist echt tricky und funktioniert auch.
    
    Aber ich habe da doch eine Verständnis Frage.
    
    Was bedeutet in folgendem Ausdruck:
    
    my $ferg = $switch{$ftest}->()
    
    das ->() ?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    my $ftest = "hier"; my %switch = ( hier => sub { return "hier und heute" }, dort => sub { return "dort und morgen" }, ); my $ferg = $switch{$ftest}->()
    
    Mit freundlichen Grüßen
    Jens Geier
    
    =====================================
    Server : NOVELL NetWare 6.5 SP7
    Perl : V5.8.4
    =====================================
    - sid burn
      
      2009-05-30 23:09
      
      User since
      2006-03-29
      1520 Artikel
      BenutzerIn
      
      2009-05-30T20:23:43 jgeier
      Hallo sid burn,
      das mit mit dem SWITCH hash ist echt tricky und funktioniert auch.
      
      Klar funktioniert es. ;)
      
      Quote
      Aber ich habe da doch eine Verständnis Frage.
      Was bedeutet in folgendem Ausdruck:
      my $ferg = $switch{$ftest}->()
      das ->() ?
      
      In dem hash werden Subroutinen gespeichert. Mit $switch{$ftest} holst du die entsprechende subroutine heraus. Da es aber letztendlich nur eine Referenz auf eine Subroutine ist, muss du mit dem pfeil "->" dereferenzieren. Und um die Funktion aufzurufen musst du dann leere Klammern hinten anhängen ()"
      
      Ist das gleiche wie bei einen normalen Funktionsaufruf wie print("hallo")
      
      Nur da du dereferenzieren musst kannst du die klammern halt nicht weg lassen.
      
      Der einzige hacken ist wenn du ein Default wert anbieten musst. Dann musst du praktisch vorher prüfen ob der key überhaupt existiert und wenn nicht etwas anderes ausführen. Also z.B. so.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      if ( exists $switch{$key} ) { $switch{$key}->() } else { # hier der code für default }
      
      Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
- murphy
  
  2009-05-30 22:52
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Perl 5 kennt kein switch-Statement, in Perl 6 heißt das vergleichbare Konstrukt given und hat eine ganz andere Syntax als das, was Du hingeschrieben hast.
  When C++ is your hammer, every problem looks like your thumb.
- +2 replies
- pq
  
  2009-05-30 23:38
  User since
  2003-08-04
  12208 Artikel
  Admin1
  das mit use Switch und warum man das nicht verwenden sollte, wurde ja schon erklärt.
  in perl macht man das klassischerweise so:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  for ($switch) { m/hier/ and do { something... }, last; m/da/ and do_something_else(), last; }
  
  oder halt per dispatch, wie auch schon gezeigt.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - sid burn
    
    2009-05-30 23:44
    User since
    2006-03-29
    1520 Artikel
    BenutzerIn
    
    Da muss man nur aufpassen das man nicht den Fehler macht und z.B.
    
    Code: (dl )
    
    m/hier/
    
    schreibt anstatt
    
    Code: (dl )
    
    m/\Ahier\z/
    
    ;)
    Last edited: 2009-05-30 23:45:48 +0200 (CEST)
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2009-05-30 21:13.