Schrift
Start · Board · Weitere Sprachen · sonstige Sprachen, auch PHP
[thread]1061[/thread]

Mehrere Zeilenumbrüche/Newlines löschen

Leser: 2


<< >> 2 Einträge, 1 Seite
Gast Gast
 2006-08-01 13:12
#10753 #10753
Guten Tag!

Ich möchte mit Perl in einem Text alle "überflüssigen" Zeilenumbrüche löschen.

Sprich aus

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
Hallo, 



wie geht es dir? 






Mir geht es gut.

soll

Code: (dl )
1
2
3
4
5
Hallo, 

wie geht es dir? 

Mir geht es gut.

werden.

Ich habe es mit s/\n{2,}/\n/g; versucht. Leider ohne Erfolg.

Kann jemand helfen?
Ronnie
 2006-08-01 13:25
#10754 #10754
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
Die multiline-option hilft weiter!
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl

use strict;
use warnings;

my $text = join '', <DATA>;
$text =~ s/\n{2,}/\n\n/gm; # m - multiline
print $text;

__DATA__
Hallo,



wie geht es dir?






Mir geht es gut.
<< >> 2 Einträge, 1 Seite



View all threads created 2006-08-01 13:12.