Opened by rk-ger at 2006-08-08 00:04
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Wenn du lieber mit Hashes arbeitest, wäre auch das hier eine Möglichkeit:
Wie soll den die .csv-Datei die du ausgeben möchtest aussehen, da csv ja keine Schlüssel/Wert-Paare hat. Sollen die Schlüssel als erste Zeile mit ausgegeben werden?!
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my @lines;
{
local $/ = '/////XYZ/////'; #/
while (<DATA>) {
s/^\\+\w+\\+//g;
s/\/+\w+\/+$//g;
push @lines, {map {split /:/, $_} split /\|/, $_};
}
}
print Dumper \@lines;
Wie soll den die .csv-Datei die du ausgeben möchtest aussehen, da csv ja keine Schlüssel/Wert-Paare hat. Sollen die Schlüssel als erste Zeile mit ausgegeben werden?!