Nach n-Iterationsschritten "Trennzeile" ausgeben (gelöst) (Allgemeines zu Perl)

[thread]17250[/thread]

Nach n-Iterationsschritten "Trennzeile" ausgeben [gelöst]

Tags: perl5 Iteration Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+10 replies
Phrosch

2012-03-20 11:08
User since
2012-03-20
9 Artikel
BenutzerIn
Hallo zusammen,

gegeben ist eine Liste mit mehreren tausend Einträgen. Über diese Liste soll nun iteriert werden, indem jede Zeile ausgegeben wird, wobei nach jedem 385. Eintrag zusätzlich ein Separator (Leerzeile, Trennzeile, Bindestriche, was auch immer) ausgegeben werden soll.

Von meinem Verständnis her würde ich das so angehen:
Code: (dl )

1 2 3 4 5 6 7 8 9

my $count = 0; while (<>) { $count ++; if ($count == 385 || $count == 770 || $count == 1155 || ..) { print "-" x 40, "\n"; } print; }
Den etwas umständlichen Weg, die Schritte manuell anzugeben (385, 770, 1155, 1540, ..) möchte ich vermeiden, habe aber keine Idee mit welchem Algorithmus sich das automatisch umsetzen lässt.

Perl bietet doch hierfür bestimmt schicke Operatoren bzw. Funktionen mit denen sich das elegant lösen lässt.

Hat jemand hierfür eine Idee?

Schon mal besten Dank im voraus.

P.
Last edited: 2012-03-20 11:12:24 +0100 (CET)
- +6 replies
- Linuxer
  
  2012-03-20 11:14
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Wie wär's mit Modulo %?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  for my $i ( 1 .. 100 ) { print "$i\n"; # alle 33 Zeilen eine Trennzeile einfuegen if ( $i % 33 == 0 ) { print "---8<---\n"; } }
  
  Last edited: 2012-03-20 11:28:16 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +5 replies
  - GwenDragon
    
    2012-03-20 11:37
    
    User since
    2005-01-17
    14782 Artikel
    Admin1
    
    Zu berücksichtigen ist (für die Anfänger!), dass $i nicht 0 sein darf, da 0 % 33 auch 0 ergibt. Sonst gibt es schon am Anfang den Trenner.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +4 replies
    - Phrosch
      
      2012-03-20 13:08
      
      User since
      2012-03-20
      9 Artikel
      BenutzerIn
      
      Wenn ich das richtig verstehe, ist bei diesem Beispiel "for (1 .. 100)" der Ausgangswert bekannt. In meinem Fall aber ist dies nicht der Fall. Wie gesagt handelt es sich bei dem Input um eine Datei mit mehreren Tausend Zeilen...
      - +3 replies
      - Linuxer
        
        2012-03-20 13:15
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Ja und?
        
        Das entscheidende ist die Modulo-Operation und ihre Überprüfung $i % 33 == 0, um eben nach jeweils 33 Zeilen eine Trennzeile einzufügen.
        
        Über wie viele Elemente die originale Liste verfügt (oder wie viele Eingabezeilen es sind), ist dabei völlig egal.
        
        Mein Code ist ein lauffähiges Beispiel, dass Du selber in Deinem Code umsetzen musst.
        
        Du möchtest alle 385 Zeilen einen Trenner eingebaut haben, was musst Du also ändern?
        
        PS: Mein $i entspricht Deinem $count.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        Phrosch
        
        2012-03-20 13:37
        
        User since
        2012-03-20
        9 Artikel
        BenutzerIn
        
        @Linuxer
        
        Den Modulo-Operator kannte ich noch nicht und mein 2. Post beruht auf falschen Annahmen. Sorry, für den "Umweg".
        
        Es funktioniert so wie Du es geschrieben hast. Vielen Dank für schnelle und rasche Unterstützung!
        
        P.
        
        Linuxer
        
        2012-03-20 13:42
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Super. Wenn Du das Thema als gelöst betrachtest, könntest Du dann noch diesen Thread als gelöst markieren.
        Das sollte oben unterhalb des Thread-Titels für Dich machbar sein. Danke.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +3 replies
- GUIfreund
  
  2012-03-20 18:41
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  Wenn dir die Lösung von Linuxer mit dem Modulo nicht so recht geheuer ist, kannst du auch in deinem Originalkode nach der Ausgabe der Trennzeile den Zähler auf 0 zurücksetzen. Die if-Abfrage lässt sich dann auf
  
  Code (perl): (dl )
  
  if ($count == 385) {
  
  vereinfachen.
  Gruß
  GUIfreund
  - +2 replies
  - clms
    
    2012-03-20 21:15
    
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    2012-03-20T17:41:59 GUIfreund
    Wenn dir die Lösung von Linuxer mit dem Modulo nicht so recht geheuer ist, kannst du auch in deinem Originalkode nach der Ausgabe der Trennzeile den Zähler auf 0 zurücksetzen.
    
    Vorausgesetzt man braucht den Zähler nicht noch woanders in der Schleife...
    - Phrosch
      
      2012-03-26 12:13
      
      User since
      2012-03-20
      9 Artikel
      BenutzerIn
      
      Nönö, das passt so schon. Es wird tatsächlich nach x Iterationen eine Trennzeile eingefügt.

View all threads created 2012-03-20 11:08.