Thread Nach n-Iterationsschritten "Trennzeile" ausgeben (9 answers)
Opened by Phrosch at 2012-03-20 11:08

Phrosch
 2012-03-20 11:08
#156941 #156941
User since
2012-03-20
9 Artikel
BenutzerIn
[default_avatar]
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)

View full thread Nach n-Iterationsschritten "Trennzeile" ausgeben