Zeilen ab einer bestimmten länge zusammenführen (Allgemeines zu Perl)

[thread]10016[/thread]

Zeilen ab einer bestimmten länge zusammenführen

n0m

2007-08-09 17:13

User since
2007-08-09
2 Artikel
BenutzerIn
[default_avatar]

Hallo,

vielleicht hat jemand einen Tipp oder kann mich in die richtige Richtung schubsen. Ich habe eine ldif-Datei (LDAP Output). Der Server der die Datei ausgibt macht automatisch nach dem 80sten Zeichen ein CR und schreibt den Rest in eine neue Zeile, die dann mit einem Leerzeichen beginnt. Meine Frage:

Gibt es einen regulären Ausdruck mit dessen hilfe ich, wenn ich feststelle, dass die Zeile mit einer Leerstelle begint ich dieses Leerzeichen nicht nur lösche, sondern auch das vorangehende CR gleich mit?

Vielen Dank im Voraus.
Bye
n0m

Gast Gast

2007-08-09 17:21

Hi,

ein ungetester Schnellschuß:

Code (perl): (dl )

open my $fh, $filename or die "$filename: $!";

my $content = do { local $/; <$fh> };

close $fh or die "$filename: $!";

# Kombination von Zeilenumbruch+Leerzeichen durch nichts ersetzen
$content =~ s/\n //sg;

Linuxer

2007-08-09 17:25

User since
2006-01-27
3875 Artikel
HausmeisterIn

user image

Hi,

da mich das Forum (wieder) nicht wieder-erkannt hat, muss ich meinen vorigen Gast-Beitrag eben so nachkommentieren:

ein ungetester Schnellschuß:

Code (perl): (dl )

open my $fh, $filename or die "$filename: $!";

# gesamten Dateiinhalt in einen Skalar lesen
my $content = do { local $/; <$fh> };

close $fh or die "$filename: $!";

# Kombination von Zeilenumbruch+Leerzeichen durch nichts ersetzen
$content =~ s/\n //sg;

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!

n0m

2007-08-09 18:30

User since
2007-08-09
2 Artikel
BenutzerIn
[default_avatar]

Hallo Linuxer,

das ist ja richtiggehend peinlich, man sollte nie zu komplex denken. :)
Besten Dank, es klappt hervorragend. :)

Bye
n0m

View all threads created 2007-08-09 17:13.