Opened by jan99 at 2014-04-17 09:45
User since
2008-09-18
439 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-09-18
439 Artikel
BenutzerIn
Moin !
es geht darum das ich Daten in einer verschachtelten Liste hinterlegen möchte. Der erste Code-Teil arbeitet richtigt.
Nun möchte ich die erste Liste auslesen und am liebsten mit vorne abspalten. Irgendwie komme ich nicht weiter um dann auch auf die Daten der Liste zugreifen zu können.
Hier mein bisheriger Gehversuch:
Kann mir einer weiterhelfen? Auch bzgl. der Frage, wie ich das erste Element aus der Liste absplitten kann.
Gruß Jan .-)
es geht darum das ich Daten in einer verschachtelten Liste hinterlegen möchte. Der erste Code-Teil arbeitet richtigt.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
my @ways4track = ();
for my $ele_way (@data){
....
my @element_data = ($ele_way, $way_firstnode, $way_lastnode);
....
push(@ways4track,\@element_data);
}
....
}#end-for - ele_way
# warum sei es darum...
my @ways4track2analyze = @ways4track;
# das mal so zum anzeigen - ist ok!
foreach my $way_data (@ways4track2analyze){
print "0-ID... ".$way_data->[0]->id()."\n";
print "1... ".$way_data->[1]."\n";
print "2... ".$way_data->[2]."\n";
#foreach my $way_parameter (@$way_data){
# print $way_parameter."\n";
#}
}
Nun möchte ich die erste Liste auslesen und am liebsten mit vorne abspalten. Irgendwie komme ich nicht weiter um dann auch auf die Daten der Liste zugreifen zu können.
Hier mein bisheriger Gehversuch:
Code: (dl
)
1
2
3
4
5
6
7
8
my $first_way = @{$ways4track2analyze[0]};
print "--- Dumper:\n";
print Dumper($first_way);
my $first_obj = $first_way->[0];
my $first_start = $first_way->[1];
my $first_end = $first_way->[2];Kann mir einer weiterhelfen? Auch bzgl. der Frage, wie ich das erste Element aus der Liste absplitten kann.
Gruß Jan .-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de