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
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);
Quote--------------------------
FIRSTpoint:
--- return_id: 1
Dumper: $VAR1 = '-42';
-- definiert
Use of uninitialized value $way_firstnode in print at osmCreateGPX.pl line 184,
<> line 1.
Use of uninitialized value $way_firstnode in concatenation (.) or string at osmC
reateGPX.pl line 185, <> line 1.
erster Way-Punkt:
LASTpoint:
letzter Way-Punkt: -42
CLOSE?: 1
QuoteUse of uninitialized value $way_firstnode
Quoteif (undef $way_firstnode){