Aus IF-Block aussteigen (gelöst) (Allgemeines zu Perl)

[thread]15656[/thread]

Aus IF-Block aussteigen [gelöst]

Leser: 19

Articles: hide open all | hide show old branches

+9 replies
bianca

2010-11-21 15:43
User since
2009-09-13
7016 Artikel
BenutzerIn
Hi @All!
Habe hier einen elend langen Quelltext innerhalb eines IF-Blockes.
Nun kommt eine neue Bedingung hinzu, die ich im vorhandenen IF noch nicht wissen kann, weil ich dafür eine sub anspringe.
Nun suche ich eine Möglichkeit, quasi in diesem IF-Block einen Ausbruch zu finden, damit ich den Quelltext nicht komplett neu einrücken muss. Das wäre echt extrem großer Aufwand weil haufenweise Blöcke enthalten sind, die nicht eingerückt werden dürften.

Mein Versuch scheitert natürlich.
Gibt es da was elegantes?

Danke Euch
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl -w use strict; use warnings; if (1==1) { if (2==2) { # will ausbrechen aus dem if-Block last; } print "In if\n"; } print "Nach if\n";
Edit: Mir geht es darum zu verindern, aus einem
Code (perl): (dl )

1 2

if (1==1) { }
ein
Code (perl): (dl )

1 2 3 4

if (1==1) { if (2==2) { } }
machen zu müssen, da die Einrückung sehr schlecht wäre.
Last edited: 2010-11-21 15:45:40 +0100 (CET)
10 print "Hallo"
20 goto 10
- +3 replies
- clms
  
  2010-11-21 16:16
  
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  
  2010-11-21T14:43:51 bianca
  Nun suche ich eine Möglichkeit, quasi in diesem IF-Block einen Ausbruch zu finden, damit ich den Quelltext nicht komplett neu einrücken muss. Das wäre echt extrem großer Aufwand weil haufenweise Blöcke enthalten sind, die nicht eingerückt werden dürften.
  
  Gibt es da was elegantes?
  
  Es gibt goto. Aber ob das unter "elegantes" fällt?
  
  Eleganter ist sicherlich ein Editor, der den Code für Dich einrückt.
  Warum ist das Einrücken des Quelltextes bei Dir ein so großer Aufwand?
  
  Welche Blöcke dürfen denn nicht eingerückt werden? Und warum?
  Mir fallen spontan nur POD und Here-Docs ein.
  Die rückt mein Editor (XEmacs) ohnehin nicht ein.
  - +2 replies
  - bianca
    
    2010-11-21 16:30
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2010-11-21T15:16:08 clms
    Welche Blöcke dürfen denn nicht eingerückt werden? Und warum?
    
    Sind so Blöcke mit
    $string = <<HTML_TEIL_CODE;
    HTML_TEIL_CODE
    
    Kann man das im Notepad++ einstellen?
    10 print "Hallo"
    20 goto 10
    - clms
      
      2010-11-21 18:40
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      2010-11-21T15:30:50 bianca
      2010-11-21T15:16:08 clms
      Welche Blöcke dürfen denn nicht eingerückt werden?
      Sind so Blöcke mit
      $string = <<HTML_TEIL_CODE;
      HTML_TEIL_CODE
      
      Kann man das im Notepad++ einstellen?
      Keine Ahnung.
      Notepad++ kenne ich nicht. (Arbeite unter Linux oder Solaris)
      
      Der Perl-Mode des Emacs erkennt diese Blöcke und rückt sie nicht ein.
- ich
  
  2010-11-21 16:18
  User since
  2003-09-19
  120 Artikel
  BenutzerIn
  boese...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  print "vorher"; if(1==1) { if(2==2) { goto LABEL; } print "1==1\n"; } LABEL: print "danach\n";
  
  Dazu ein auszug aus ,,Programmieren mit Perl'':
  
  Quote
  Perl stellt einen goto-Operator zur Verfügung (obwohol dieser weder von den Kleinmütigen noch von denen, die reinen Herzens sind, verwendet wird).
  
  edit:
  code=perl
  
  Gruss
  Last edited: 2010-11-21 16:20:42 +0100 (CET)
  If you tell the truth you don't have to remember anything.
  -- Mark Twain
- bianca
  
  2010-11-21 16:30
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  OK, ich habe verstanden :)
  Danke Euch trotzdem für die Tipps.
  Ein goto wäre hier natürlich perfekt aber damit werde ich nicht anfangen.
  Habe es nun duch ein paar Umstellungen doch geschafft, die zusätzliche neue Bedingung in das vorhande if zu packen.
  10 print "Hallo"
  20 goto 10
- +3 replies
- pq
  
  2010-11-21 16:45
  User since
  2003-08-04
  12209 Artikel
  Admin1
  das ist einer der gründe, warum Perl Best Practices empfiehlt, möglichst alle subs so kurz zu halten, dass sie in ein standard-terminalfenster passen. ist natürlich nicht immer möglich, aber ich refakturiere öfter selber solchen langen code, und je mehr ich in kleine subs auslagere, desto eher habe ich auch einen überblick, was passiert und die verschachtelungen werden automatisch weniger. bei subs geht dann auch oft ein "return if $foo" statt "if/else", was auch eine einrückung erspart.
  
  eine notlösung könnte aber auch sein:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  LABEL: { .... last LABEL if $foo; }
  
  das ist weniger böse als ein goto, da es im prinzip wie ein verlassen einer schleife funktioniert.
  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
  - bianca
    
    2010-11-21 16:50
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2010-11-21T15:45:44 pq
    eine notlösung könnte aber auch sein:
    
    Das sieht schön aus. Danke Dir.
    Werde das beim nächsten mal in Erwägung ziehen. In diesem Fall bin ich ja doch nochmal davon gekommen :)
    10 print "Hallo"
    20 goto 10
  - Crian
    
    2010-11-22 09:39
    
    User since
    2003-08-04
    5873 Artikel
    ModeratorIn
    
    Das hätte ich auch vorgeschlagen, in kleinere Einheiten zu refakturieren.
    s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
    
    use strict; use warnings; Link zu meiner Perlseite

View all threads created 2010-11-21 15:43.