Thread Zeilen auffüllen bis feste Länge
(9 answers)
Opened by leo11 at 2008-11-14 19:49
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 |