Du könntest auch leicht
YAML daraus machen:
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
26
27
28
29
30
31
32
33
34
35
36
37
38
#!/usr/bin/perl
use strict;
use warnings;
use YAML;
use Data::Dumper;
my $ref = [Load(<<'...')];
---
Kundenname: Meyer
Datensatz:
- DatensatzA 1
- DatensatzA 2
- DatensatzA 3
- DatensatzA 4
- DatensatzA 5
- DatensatzA 6
---
Kundenname: Müller
Datensatz:
- DatensatzB 1
- DatensatzB 2
- DatensatzB 3
---
Kundenname: Schulze
Datensatz:
- DatensatzC 1
- DatensatzC 2
- DatensatzC 3
- DatensatzC 4
- DatensatzC 5
- DatensatzC 6
- DatensatzC 7);
...
print Dumper($ref);
Ergebnis sähe dann so aus:
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
26
27
28
29
30
31
32
33
$VAR1 = [
{
'Datensatz' => [
'DatensatzA 1',
'DatensatzA 2',
'DatensatzA 3',
'DatensatzA 4',
'DatensatzA 5',
'DatensatzA 6'
],
'Kundenname' => 'Meyer'
},
{
'Datensatz' => [
'DatensatzB 1',
'DatensatzB 2',
'DatensatzB 3'
],
'Kundenname' => 'Müller'
},
{
'Datensatz' => [
'DatensatzC 1',
'DatensatzC 2',
'DatensatzC 3',
'DatensatzC 4',
'DatensatzC 5',
'DatensatzC 6',
'DatensatzC 7;'
],
'Kundenname' => 'Schulze'
}
];
Und man kann es auch wieder als YAML ausgeben.\n\n
<!--EDIT|Ronnie|1169898830-->