Opened by Gast at 2006-08-01 13:12
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
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.