Ersatz für given (solved) (Allgemeines zu Perl)

[thread]18881[/thread]

Ersatz für given [solved]

Tags: perl5 Similar Threads

Readers: 25

Articles: hide open all | hide show old branches

+13 replies
silver345

2014-01-31 14:40
User since
2011-06-07
16 articles
BenutzerIn
Hi,

ich nutze in einem Script folgende Sequenz:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

given ($site->{FILETYP}) { when("package") { $logger->debug("no 2. run"); } when("profile") { $logger->debug("2. run required!"); my $sp_ret = 0; foreach my $cont (@contend) { $sp_ret = storeContend($cont, $site->{OS}, \$logger); if($sp_ret == 255) { unshift(@wrongs, $cont); # store file in error array } } } when("host") { $logger->debug("no 2. run"); } when("log") { $logger->debug("no 2. run"); } }
Das funktioniert ziemlich gut (für mich). Bisher habe ich mit Perl v5.16.3 (stawberry perl) programmiert und das Script auch ausgeführt. Jetzt will ich dieses Script auf einen Rechner mit Perl v5.18.1 ausführen. Es funktioniert. Nur gibt es massenweise Warnungen:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12

given is experimental at private/PSubs.pm line 133. when is experimental at private/PSubs.pm line 135. when is experimental at private/PSubs.pm line 136. when is experimental at private/PSubs.pm line 137. when is experimental at private/PSubs.pm line 138. given is experimental at private/PSubs.pm line 234. when is experimental at private/PSubs.pm line 235. when is experimental at private/PSubs.pm line 239. when is experimental at private/PSubs.pm line 246. when is experimental at private/PSubs.pm line 250. given is experimental at ./check.pl line 360. when is experimental at ./check.pl line 361.
Lt. Google soll die Zeile
Code: (dl )

no if $] >= 5.018, 'warnings', "experimental::smartmatch";
helfen. Tut sie aber nicht. Ich meine, das Script geht, es wäre nur eine Schönheitskorrektur. Meine Frage: Gibt es (außer ellenlangen if's und else's) eine Möglichkeit, dieses (quasi) select nachzubauen? Vielen Dank im Voraus. Ich habe mehrere Einträge gefunden, die explicite dieses Feature besprechen und schwärmen, daß es ab 5.10 verfügbar sein soll.
- +4 replies
- Muffi
  
  2014-01-31 15:04
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  Naja, diese if-else würd ich mal schätzen geben sich von der Länge her wohl nicht viel zum Switch. Du kannst noch for ($site->{FILETYP}) { ... drüberschreiben, dann liegts in $_ und es wird ein stück kürzer.
  
  Ansonsten ginge ein Hash
  
  Code (perl): (dl )
  
  1 2
  
  my %switch = ('package' => sub { ... }, 'profile' => sub { ... }); $switch{$site->{FILETYP}}->();
  
  1 + 1 = 10
  - +3 replies
  - silver345
    
    2014-02-03 08:46
    
    User since
    2011-06-07
    16 articles
    BenutzerIn
    
    Hi,
    
    ich probier Deinen Vorschlag mal aus. Leider bestehen die Sub's nicht bloß aus einer Zeile. Mal schauen, wie handhabbar das ganze ist.
    
    Vielen Dank für den Vorschlag.
    - Muffi
      
      2014-02-03 09:33
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Auf was bezog sich jetzt das mit der Länge?
      Auf die Hash-Lösung?
      
      Die kann man doch genauso formatieren
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      my %switch = ( 'package' => sub { ... }, 'profile' => sub { ... } );
      
      1 + 1 = 10
    - GwenDragon
      
      2014-02-03 09:39
      
      User since
      2005-01-17
      14816 articles
      Admin1
      
      Oder wenn du es übersichtlicher willst:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      my $package_sub = sub _suppen_paket { ... }; my $profile_sub = sub _prof_feile { ... }; my %switch = ( 'package' => $package_sub, 'profile' => $profile_sub, ); $switch{ $site->{ FILETYP } }->();
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- bianca
  
  2014-01-31 15:05
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Sieht aus wie das switch case in Javascript. Wollte schon fragen, ob das Perl ist :)
  Aber ein if then else wäre doch für diesen Code garnicht so lang. Ich kenne dafür keinen Ersatz in Perl.
  10 print "Hallo"
  20 goto 10
- +4 replies
- lichtkind
  
  2014-01-31 15:34
  User since
  2004-03-22
  5697 articles
  ModeratorIn + EditorIn
  gleiches thema wie in smartmatch stupid
  
  der code den du zeigst geht in jeder version. eigentlich reicht dir wenn es nur unter 5.18 laufen soll:
  
  Code (perl): (dl )
  
  no warnings "experimental::smartmatch";
  
  oder
  
  Code (perl): (dl )
  
  no warnings "experimental";
  
  wenn solche warnungen ganz abschalten willst.
  
  das ganze ist kein fehler nur eine warnung, weil sie an dem "~~", das "when" benutzt, nochmal paar ränder abschneiden (die dich wohl nicht betreffen) aber es geht drum, daß dann nicht sagen kannst es hätte dich keiner gewarnt. Das feature ist tatsächlich seit 5.10 da und wird nach meiner Einschätzung nicht abgeschafft auch wenn es von manchen gefordert wird.
  Last edited: 2014-01-31 17:33:26 +0100 (CET)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +2 replies
  - Muffi
    
    2014-01-31 15:42
    
    User since
    2012-07-18
    1465 articles
    BenutzerIn
    
    Ganz abschaffen? Wär auch schad, auch wenn ich den Operator völlig überdimensioniert finde. Und ich hätte wohl eher sowas wie ein keyword "in" eingeführt.
    Mit
    scalar in array oder regex in array.
    Dann wär z.B. auch schon optisch ersichtlich, dass mans nicht andersrum schreiben kann. Ein symmetrisch (oder besser richtungslos) aussehender Operator ist da ein wenig unglücklich (zumal er "smart" heisst).
    Last edited: 2014-01-31 15:50:38 +0100 (CET)
    1 + 1 = 10
    - lichtkind
      
      2014-01-31 17:34
      
      User since
      2004-03-22
      5697 articles
      ModeratorIn + EditorIn
      
      ~~ ist der nachfolger vom =~ und der war auch nicht kommutativ
      
      ja als ein beispiel fällt mir eine p5p entwicklerin an die auf linkedIn ein Katzenbild verwendet (Karen Etheridge) und ernsthaft Meinung vertrat, daß smartmatch verschwindet, es war halt ihre interpretation der warnung ich vermute auch ihr wunsch
      Last edited: 2014-01-31 17:59:24 +0100 (CET)
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
  - silver345
    
    2014-02-03 08:50
    
    User since
    2011-06-07
    16 articles
    BenutzerIn
    
    Hi,
    
    habe ich probiert. Irgendwie verschwinden die Warnungen nicht wirklich. Und ich bin mir nicht sicher, was die Ursache ist. Ich vermute ja einen der vielgeliebten Sonderwege von ArchLinux... Leider muß ich diese Distribution verwenden. Vielleicht klappt es ja mit dem Vorschlag von Muffi.
    
    Vielen Dank für die Bemühungen.
- +3 replies
- pq
  
  2014-02-03 10:52
  User since
  2003-08-04
  12209 articles
  Admin1
  üblich war bei sowas auch immer:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  for ($foo->{bar}) { if ($_ eq "foo") { } elsif ($_ eq "bar") { } ... }
  
  das ist besonders bei regexes praktisch, da man da nichtmal das $_ dazuschreiben muss.
  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
  - silver345
    
    2014-02-03 11:45
    
    User since
    2011-06-07
    16 articles
    BenutzerIn
    
    Noch mal herzlichen Dank für die Hinweise. Beim Überprüfen der entsprechenden Stellen habe ich ein paar Vereinfachungen im Code vornehmen können. Dabei ist given mit seinen Warnmeldungen erst mal eliminiert worden.
  - guest Tom Stein
    
    2020-01-03 14:13
    2014-02-03T09:52:29 pq
    üblich war bei sowas auch immer:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    for ($foo->{bar}) { if ($_ eq "foo") { } elsif ($_ eq "bar") { } ... }
    
    das ist besonders bei regexes praktisch, da man da nichtmal das $_ dazuschreiben muss.
    
    Wenn man keine regexes benötigt (bei C nimmt die Switch-Anweisung ja auch nur direkte Vergleiche an), dann ist diese Variante in meiner Anwendung sogar doppelt so schnell wie die Variante given-when. Und dazu braucht man wenig mehr als ein
    'Ersetze "when(" durch "elsif($_ eq " '.
    Last edited: 2020-01-03 15:03:35 +0100 (CET)

View all threads created 2014-01-31 14:40.