Opened by Dakarus at 2013-12-18 12:09
User since
2013-12-17
3 Artikel
BenutzerIn
2013-12-17
3 Artikel
BenutzerIn
Guten Tag,
Meine ersten Monate mit Perl und langer Programmierpause.
Folgende Situation
Für einen Importer der mit CSV dateien Arbeiten müste ich folgende eingaben erhalten.
Das realisiere ich kurzerhand per:
Das geht schon, ist nur Chaotische Aufzählung. Ein Hash-Tree Struktur existiert ebenfalls.
Kann mir vielleicht jemand einen Gedankenanstoß geben wie ich beide Bedingungen, CSV Style und Gliederung nach Tree, Vereine:
Last edited: 2013-12-18 12:18:42 +0100 (CET)
Meine ersten Monate mit Perl und langer Programmierpause.
Folgende Situation
Für einen Importer der mit CSV dateien Arbeiten müste ich folgende eingaben erhalten.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
CLASS_UE;CLASS_UN;
"";"CAD/Blue/Two/B/RMI151LNR";"
"CAD";"/Blue/Two/B/RMI151LNR";"
"CAD/Blue";"/Two/B/RMI151LNR";"
"CAD/Blue/Two";"/B/RMI151LNR";"
"CAD/Blue/Two/B";"/RMI151LNR";"
"unsortiert";"/Green/Three/V/WGZ117WWN";"
"unsortiert/Green";"/Three/V/WGZ117WWN";"
"unsortiert/Green/Three";"/V/WGZ117WWN";"
"unsortiert/Green/Three/V";"/WGZ117WWN";"
Das realisiere ich kurzerhand per:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
sub array_tree {
my @vars = @_;
my $peon = scalar @vars;
my $perent = shift @vars;
while ( $peon > 0 ) {
foreach my $sequence (@vars) {
print "\"$perent\";";
print '"';
foreach (@vars) {
print "/$_";
}
print '";"' . "\n";
$perent = "$perent" . "/" . shift(@vars);
$peon = scalar @vars;
}
}
return 1;
}Das geht schon, ist nur Chaotische Aufzählung. Ein Hash-Tree Struktur existiert ebenfalls.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
$VAR1 = {
'CAD' => {
'Blue' => {
'Two' => {
'K' => {
'XFW485YKT' => 1
},
'B' => {
'RMI151LNR' => 1
}
}
},
'Green' => {
'One' => {
'N' => {
'NTN181AVN' => 1
}
}
}
},Kann mir vielleicht jemand einen Gedankenanstoß geben wie ich beide Bedingungen, CSV Style und Gliederung nach Tree, Vereine:
Last edited: 2013-12-18 12:18:42 +0100 (CET)