Interne Schleifendurchlaufszähler? (Allgemeines zu Perl)

[thread]16789[/thread]

Interne Schleifendurchlaufszähler?

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+13 replies
marky

2011-10-09 09:56
User since
2003-08-15
215 Artikel
BenutzerIn
Hallo,

eine Frage die mich schon wirklich lange beschäftigt ist, ob es in Perl einen internen Schleifenzähler gibt, ich habe das bisher nur für die Zeilennummer gefunden, so Konstruktionen wir
Code: (dl )

1 2 3 4 5 6 7 8

while ( machwas ) { last if $i==5 ; $i++ ; }
sind irgendwie nicht schön.

Gruss Marky
Mfg
Markus - http://www.perlunity.de -
- +8 replies
- bianca
  
  2011-10-09 11:49
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Ist die Frage, wofür du das brauchst.
  Es gibt auch for Schleifen mit Zähler.
  Bei while Bedingungen muss man einen eigenen Zähler "bauen", wenn man die Durchläufe zählen will.
  Normalerweise bringt dann aber das if $i==5 mit in die while Bedingung.
  10 print "Hallo"
  20 goto 10
  - +7 replies
  - marky
    
    2011-10-09 12:14
    
    User since
    2003-08-15
    215 Artikel
    BenutzerIn
    
    Hallo,
    
    ich habe das recht oft im Zusammenhang mit zb. opendir, wenn ich die letzten 10 Files auf einem Verzeichnis will. Oder ein Array durchlaufen wird, dass dann irgendwann zu Ende sein soll, weil nur ein top10 erstellt werden soll. Manchmal geht das mit einer Bedingung und manchmal halt nicht und da ist die counter-Konstruktion doch irgendwie sehr "oldschool".
    Mfg
    Markus - http://www.perlunity.de -
    - +6 replies
    - Gast wer
      
      2011-10-09 13:59
      
      Code (perl): (dl )
      
      @gesucht=(lese_liste())[-10,-1]; # die letzten 10
      
      Code (perl): (dl )
      
      @gesucht=(lese_liste())[99,-1]; # die ersten 100 nicht
      
      Code (perl): (dl )
      
      1 2
      
      my $i=0; lese() while($i++<100);#die 100 erste Aktionen verwerfen
      
      Code (perl): (dl )
      
      lese() for(1..100);#die 100 ersten Aktionen verwerfen
      
      Code (perl): (dl )
      
      @list=map{lese()}(0..100);# die ersten 100
      
      und so weiter...
      Last edited: 2011-10-09 14:12:01 +0200 (CEST)
      - +2 replies
      - pq
        
        2011-10-09 14:17
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Guest wer
        
        Code (perl): (dl )
        
        @gesucht=(lese_liste())[-10,-1]; # die letzten 10
        
        Code (perl): (dl )
        
        @gesucht=(lese_liste())[99,-1]; # die ersten 100 nicht
        
        hast du das mal getestet? =)
        erstens willst du vermutlich statt des kommas zwei punkte, um einen range zu bekommen. andernfalls bekommt man immer genau 2 elemente.
        der zweite code wird dann aber nicht funktionieren, da der range 99 .. -1 eine leere liste ist.
        
        falls lese_liste ein readdir o.ä. macht, ist es auch nicht unbedingt effizient, alles einlesen zu lassen, nur um sich einen teil der elemente zu holen.
        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
        
        GwenDragon
        
        2011-10-09 14:55
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ja, Ranges funktionieren nur aufsteigend.
        Darüber fällt man schon mal.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +3 replies
      - marky
        
        2011-10-09 16:50
        
        User since
        2003-08-15
        215 Artikel
        BenutzerIn
        
        Das wäre der Code der bei mir sehr oft vorkommt
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        opendir ( DATAL , "PFAD/logs/" ) ; foreach my $sfile ( reverse grep(/\.od$/,readdir(DATAL)) ) { open(STATS , "< PFAD/logs/$sfile") ; while ( my @t = split(/\|/,<STATS>,3) ) { $DATA{$t[0]} += $t[1] ; } close(STATS) ; last if ( $i++ == 6 ) ; } close(DATAL) ;
        
        wie könnte man das jetzt schick machen, ohne das ganze Verzeichnis einzulesen.
        Mfg
        Markus - http://www.perlunity.de -
        
        +2 replies
        
        topeg
        
        2011-10-09 22:14
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Dem Code mangelt es an Fehlermeldungen, und modern ist er auch nicht.
        Es ist nicht schwer das zu ergänzen und dann sieht der Code auch besser aus.
        
        Ich habe $i mal $file_count genannt. Damit kann man den Wert außerhalb der Schleife Definieren. Auch den Verzeichnisname habe ich in eine Variable genommen.
        Ich stehe auf dem Standpunkt das jeder Wert der mehr als einmal im Code auftaucht in eine Variable gehört. Gerade Verzeichnisnamen ändern sich mal schnell. Das dann im Code zu ändern artet womöglich in Arbeit aus.
        
        Ich weiß nicht warum du Unbedingt die letzten 6 eingelesenen Dateien mit der Endung ".od" brauchst. Wenn es dir darum geht bei alphabetischer Reihenfolge der Namen die letzten sechs zu bekommen, so ist der Code nicht sehr zuverlässig. Kein Dateisystem ist gezwungen die Daten in alphabetischer Reihenfolge auszugeben. Manche Treiber liefern die Daten in der Reihenfolge aus in der sie angelegt wurden. Oder in Reihenfolge in der sie zuletzt Modifiziert wurden. Es ist nur "Freundlichkeit" das es gerade Alphabetisch ist. Aus dem Grund würde ich nicht revrese benutzen sondern sort
        
        Es ist auch nicht möglich zu verhindern, dass das gesamte Verzeichnis eingelesen wird. Es ist bis zur letzten Datei nicht klar ob noch eine Datei mit der Endung ".od" kommt.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        my $dir="PFAD/logs/"; my $file_count=6; #... opendir ( my $dh , $dir ) or die("ERROR: Can't open $dir ($!)"); for my $sfile ( (sort {$b cmp $a}( grep {/\.od$/} readdir($dh) ))[0..$file_count-1] ){ if(open(my $fh, '<', $dir.$sfile)){ while ( my @t = split(/\|/,<$fh>,3) ){ $DATA{$t[0]} += $t[1]; } close($fh); } else { warn("WARNING: Can't open $dir$sfile ($!)"); } } close($dh);
        
        Last edited: 2011-10-09 22:30:06 +0200 (CEST)
        
        marky
        
        2011-10-10 09:20
        
        User since
        2003-08-15
        215 Artikel
        BenutzerIn
        
        Hallo,
        
        danke für die ausführliche Antwort.
        
        Fehlermeldungen sind absichtlich keine drin, da ein nichterfolg der ausführung keine Auswirkungen auf den ablauf habe soll. Und die Namen ändern sich nicht, was die Verzeichnisse angeht.
        
        Ich brauche die letzten 6 Dateien, weil das Log-Files sind, die nach jjjjmm abgelegt sind und darauf eben eine Rangfolge erstellt werden sollen, der letzten x Monate.
        
        Das mit dem reverse stimmt natürlich, das war jetzt zufall, das sollte natürlich ein sort sein.
        Mfg
        Markus - http://www.perlunity.de -
- +2 replies
- pq
  
  2011-10-09 13:09
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  du kannst dir eine zeile sparen.
  last if $i++ == 5;
  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
  - marky
    
    2011-10-09 16:48
    
    User since
    2003-08-15
    215 Artikel
    BenutzerIn
    
    Hey super, die schreibweise kannte ich noch gar nicht. damit ist das ja erträglich - was ist eigentlich der Unterscheid beim hochzählen, wenn es so aussieht
    
    ++$i
    
    trifft man zwar nicht oft, aber doch hin und wieder.
    
    PS: Habs rausgefunden, wenn den ++ vorher hinschreibt, dann hat das in einer Befehlskette vorrang.
    
    $i=99 ;
    print $i++ ; #99
    print ++$i ; #100
    Last edited: 2011-10-09 17:02:21 +0200 (CEST)
    Mfg
    Markus - http://www.perlunity.de -
- +2 replies
- Gast KranX
  
  2011-10-10 20:20
  Code (perl): (dl )
  
  1 2 3 4 5
  
  for ( my $i; machwas() and ++$i <= 5; ) { print $i; } sub machwas {1 }
  
  Last edited: 2011-10-10 20:22:35 +0200 (CEST)
  - Gast KranX
    
    2011-10-10 21:15
    oderrrr ...
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    for (1..5) { last unless machwas(); ... } sub machwas {1}

View all threads created 2011-10-09 09:56.