print "--------------------------\n"; #print Dumper(osmtree_get_way_id_first($ele_way)); #print Dumper(osmtree_get_way_id_first($ele_way,1)); print "\FIRSTpoint: \n"; my $way_firstnode = osmtree_get_way_id_first($ele_way,1); print "Dumper: "; print Dumper($way_firstnode); #$log->doublewrite("Error find first node in way: ".$ele_way->id()) if (undef $way_firstnode); if (undef $way_firstnode){ print "-- UNdefiniert\n"; }else{ print "-- definiert\n"; } print $way_firstnode; print "erster Way-Punkt: ".$way_firstnode."\n"; print "LASTpoint: \n"; # letzter Punkt my $way_lastnode = osmtree_get_way_id_last($ele_way,1); print "letzter Way-Punkt: ".$way_lastnode."\n"; # erstellen einer Liste für das Objekt my @element_data = ($ele_way, $way_firstnode, $way_lastnode);