zum 1000 und 1x Liste... - #174888 (Allgemeines zu Perl)

jan99

2014-04-22 08:51

User since
2008-09-18
439 Artikel
BenutzerIn
[default_avatar]

Hi !

ich habe eine Baustelle in Perl - es sind immer wieder Probleme mit den Array, Listen etc..

Aktuell hänge ich an folgender Stelle. In einer Sub werden ID's ermittelt und diese Nummern sollen in einer Liste zurück gegeben werden. Dazu gibt es folgende Sub.

Code: (dl )

sub get_node_list_id {

	 #my ($object, $type)=_split_object(splice(@_,1));
	 my $object = shift;
     
	 
	 return undef if(!$object); 
	 return undef unless($object->type() eq 'way');
     print "\nhinter der pruefung\n";
	 my @result = ();
	 
	 foreach ($object->node_list()){
	   print $_->id()."\n";
	   push @result, $_->id();
	 }
	 print Dumper(@result);
	 print "hinter der schleife\n";
	 
	 @result;
}#end-get_node_list_id

Die Kontrollausgaben arbeiten richtig.

Wenn ich nun in dem aufrufenden Teil die Rückgabe anzeigen lasse...

Code: (dl )

1
2

print "--- dumper ---\n";
print Dumper(osmtree_get_node_list_id($first_obj))."\n";

Hier nun der Report in der Console mit den Logs aus der Sub

Quote
--- dumper ---

hinter der pruefung
-32
-30
-28
-26
$VAR1 = '-32';
$VAR2 = '-30';
$VAR3 = '-28';
$VAR4 = '-26';
hinter der schleife
$VAR1 = '-32';
$VAR2 = '-30';
$VAR3 = '-28';
$VAR4 = '-26';

hinter der pruefung
-32
-30
-28
-26
$VAR1 = '-32';
$VAR2 = '-30';
$VAR3 = '-28';
$VAR4 = '-26';
hinter der schleife
superway_id: 4

hinter der pruefung

Wie man sieht ist wohl der Dumper leer und ansonsten wird als Rückgabe 4 zurückgegeben.

Kann mir einer sagen was ich falsch gemacht habe und wie ich eine Liste als superway_id bekommen?

Gruß Jan :-)

perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de