Datei randomly blockweise splitten (gelöst) - #137813 (Allgemeines zu Perl)

alla

2010-05-31 23:23

User since
2009-10-19
21 Artikel
BenutzerIn
[default_avatar]

wenn meine DATA so aussieht:

Code: (dl )

__DATA__
Seite1:
Zeile
Seite2:
Token1:
Seite3:
Token2:
Seite4:
Text1
Seite5:
Text2

will ich folgende Ausgabe:
Seite1
Zeile

Seite3
Token2

Seite4
Text1

so dass Seite[\d] eine Art Block bildet, welcher dann geshuffled wird...