Thread Zeilen auffüllen bis feste Länge (9 answers)
Opened by leo11 at 2008-11-14 19:49

leo11
 2008-11-14 19:49
#116279 #116279
User since
2008-08-14
250 Artikel
BenutzerIn
[default_avatar]
Hallo

ich habe eine Datei in der Zeilen unterschiedlicher Länge stehen. Bsp.:
123 wwwwww www www 999999www uui
2122222 2 f32fewfwv we
232
dswf432433 42 33

Die Zeilen haben bisher am Ende einen Zeilenunbruch. Ich möchte die Zeilen ab Ende des letzeten zeichens mit X ausfüllen, bis jede 100 Zeichen lang ist.

Ergebnis soll sein:
123 wwwwww www www 999999www uuiXXXXX
2122222 2 f32fewfwv weXXXXXXXXXXXXXXXXXX
232XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
dswf432433 42 33XXXXXXXXXXXXXXXXXXXXXXX

Dafür hab ich mir folgende Lösung ausgedacht:

Code (perl): (dl )
perl -wnl -e '$line = $_; $len = length($line); if( $len > 1) {for ($len..100) {$line =~ s/\r/X\r/g}; print $line }' test


Ist das eine gute Lösung?
Vor allem bei \r bin ich mir unsicher. Ich hätte lieber etwas unabhängig vom verwendeten Umbruch. Aber $ für Zeilenende geht nicht.?

Viele Grüße
leo11

View full thread Zeilen auffüllen bis feste Länge