while abbrechen - break (gelöst) (Allgemeines zu Perl)

[thread]15608[/thread]

while abbrechen - break [gelöst]

Leser: 21

Articles: hide open all | hide show old branches

+5 replies
mika

2010-11-07 14:51
User since
2010-10-02
168 Artikel
BenutzerIn
Hallo,

ich habe eine sub die Zeilenweise eine Datei auswertet und mir 0|1 liefert, je nach dem ob der gesuchte Ausdruck enthalten war.
Code (perl): (dl )

.
Die while Schleife möchte ich gerne abbrechen, nachdem der Ausdruck auf eine Zeile passte. Da der Rest danach egal ist. Wie macht man das ohne break?

MfG mika
Last edited: 2010-11-07 16:02:38 +0100 (CET)
- +4 replies
- ich
  
  2010-11-07 15:35
  
  User since
  2003-09-19
  120 Artikel
  BenutzerIn
  
  Hallo mika,
  
  du suchst denke ich mal "last"
  
  If you tell the truth you don't have to remember anything.
  -- Mark Twain
  - +3 replies
  - mika
    
    2010-11-07 16:02
    User since
    2010-10-02
    168 Artikel
    BenutzerIn
    
    Hallo,
    
    habe auch schon weiter gelesen, und eine andere Lösung gefunden. Jedenfalls funktioniert es praktisch.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    sub func(){ if (-r FILE){ open($in, "<", FILE) || die; while (<$in>){ if ($_ eq $_[0]){ return 1; } } } return 0; }
    
    So sollte der File-Deskriptor auch geschlossen werden. Trotzdem danke, last hätte es sicher auch getan.
    
    BTW: Ich habe den Code-Block im ersten Post gelöscht, der war nicht so toll. *red-face*
    Last edited: 2010-11-07 16:20:12 +0100 (CET)
    - +2 replies
    - murphy
      
      2010-11-07 18:35
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      2010-11-07T15:02:00 mika
      [...]
      
      Code (perl): (dl )
      
      open($in, "<", FILE) || die;
      
      [...]
      So sollte der File-Deskriptor auch geschlossen werden.
      [...]
      
      Im Falle der Verwendung einer Skalarvariablen als Dateideskriptor wird die Datei geschlossen, sobald der Geltungsbereich der Variablen verlassen wird.
      
      Da im vorliegenden Beispiel $in nicht als lokale Variable der Subroutine func deklariert wird, wird die Datei auch nicht beim Verlassen der Subroutine geschlossen!
      When C++ is your hammer, every problem looks like your thumb.
      - mika
        
        2010-11-07 20:14
        
        User since
        2010-10-02
        168 Artikel
        BenutzerIn
        
        Stimmt (so wurd es auf der Seite auch beschrieben). Also muss der Gültigkeitsbereich von $in hier explicit durch Verwendung von my eingeschränkt werden?
        
        Code (perl): (dl )
        
        open(my $in, "<", FILE) || die;
        
        // Zur Kontrolle:
        
        Code (perl): (dl )
        
        1 2
        
        func(""); print "datei noch offen\n" if defined($in);
        
        schreibt nix (mehr) :-)
        
        MfG mika
        Last edited: 2010-11-07 20:26:10 +0100 (CET)

View all threads created 2010-11-07 14:51.