Thread Ein Array splitten (6 answers)
Opened by zeta3010 at 2017-12-19 14:16

GwenDragon
 2017-12-19 18:14
#187802 #187802
User since
2005-01-17
14759 Artikel
Admin1
[Homepage]
user image
Gleich richtig einlesen ;)

Perl 5:
=======
Siehe auch Input-Record-Separator http://perldoc.perl.org/perlvar.html#%24INPUT_RECO...

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

use strict;
use warnings;

my @in;

{
local $/ = "\n\n"; # Record-Trenner für Einlesen setzen
@in = <DATA>;      # Daten einlesen
}

for my $wert ( 0 .. $#in ) {
    print $in[ $wert ];
}

__DATA__
Zeile nummer 1
Zeile nummer 2
Zeile nummer 3


Zeile nummer 4

Zeile nummer 5 
Zeile nummer 6
Zeile nummer 7


erzeugt:
Zeile nummer 1
Zeile nummer 2
Zeile nummer 3


Zeile nummer 4

Zeile nummer 5
Zeile nummer 6
Zeile nummer 7
Last edited: 2017-12-20 09:33:12 +0100 (CET)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread Ein Array splitten