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

Linuxer
 2008-11-15 21:47
#116297 #116297
User since
2006-01-27
3891 Artikel
HausmeisterIn

user image
Woher kommen denn bitte Deine Daten?
Zeig mal auf, was genau Du tust.
Wie sieht das Skript aus? Wie rufst Du es auf?

Wenn Du Textdaten zwischen WinDOS, Unix und/oder Mac austauschst, musst Du auf die Zeilenumbrüche achten.
Bevor Du die Zeile anpasst, entfernst Du den Zeilenumbruch, bearbeitest die Zeile und fügst dann den Umbruch wieder an.

Hier ein Vorschlag (ungetestet):
# Skript: modDOS.pl
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;

while (<>) {
  # see perldoc perlvar
  local $/ = local $\ = "\015\012";

  # work and modify $_

  # print $_
  print;
}


# usage:
Code: (dl )
$ perl modDOS.pl < dostext.txt > modified_dos.txt
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!

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