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

[thread]19041[/thread]

zum 1000 und 1x Liste...

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+10 replies
jan99

2014-04-22 08:51
User since
2008-09-18
439 Artikel
BenutzerIn
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 )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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
- Muffi
  
  2014-04-22 09:17
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Quote
  Wie man sieht ist wohl der Dumper leer
  
  Wo sieht man das?
  
  Quote
  ansonsten wird als Rückgabe 4 zurückgegeben.
  
  Wo sieht man das?
  
  Quote
  superway_id bekommen
  
  Wo kommt plötzlich eine superway_id her?
  
  Wenn du hier ein Problem postest musst du davon ausgehen, dass die Leute, die das lesen dein Problem, deinen Code und deine gewünschte Lösung noch nie gesehen haben. Und auch erstmal keine Ahnung haben was das soll.
  
  Also fängt man zu lesen an, stösst auf "osmtree_get_node_list_id", sucht wo die ist und findet eine sub, die so ähnlich heisst.
  Und so geht die Raterei weiter. Im log steht "--- dumper ---". Und dann alle Ausgaben, die man von der Sub (wenn es denn die ist) erwarten würde.
  Danach kommt der ganze Sums (allerdings komischerweise ohne --- dumper ---) nochmal. Und die Raterei geht weiter.
  Unten kommt dann eine superway_id ins Spiel. Die findet man allerdings garnirgends. Nicht mal so ähnlich.
  
  Ich würd das Ganze nochmal von vorn schreiben. Mit verständlicher Beschreibung, vernünftigem Code und auch Kleinigkeiten wie Perl-tags.
  Dann versteh ich vielleicht auch was das soll.
  Last edited: 2014-04-22 09:20:53 +0200 (CEST)
  1 + 1 = 10
- +8 replies
- Raubtier
  
  2014-04-22 09:41
  
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  
  2014-04-22T06:51:22 jan99
  Wie man sieht ist wohl der Dumper leer und ansonsten wird als Rückgabe 4 zurückgegeben.
  
  Ich schließe mich Muffis Kommentar an.
  
  Zum Dumper noch ein Tipp: gib dem Dumper immer Referenzen auf die auszugebenden Objekte mit.
  
  Also statt print Dumper @array; besser print Dumper \@array; schreiben, dann bekommst du auch für leere Arrays eine Ausgabe - und bei gefüllten Arrays ists auch übersichtlicher.
  
  Ansonsten könnte ich noch wild herumraten, dass deine ominöse 4 vielleicht die Länge des Arrays ist.
  - +7 replies
  - jan99
    
    2014-04-22 10:47
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi !
    
    sorry, wenn das einmal etwas falsch gelaufen ist.
    
    Die Ausgabe von Dumper ist hier zu finden - gekennzeichnet durch die vielen "#".
    
    Quote
    --- dumper ---
    ###########
    hinter der pruefung
    
    Dann hatte ich den Code, der den Report erzeugt, etwas früh beendet - hier vollständig:
    
    Code: (dl )
    
    1 2 3 4 5
    
    print "--- dumper ---\n"; print Dumper(osmtree_get_node_list_id($first_obj))."\n"; my $superway_id = osmtree_get_node_list_id($first_obj); print "superway_id: ".$superway_id."\n";
    
    Quote
    Ansonsten könnte ich noch wild herumraten, dass deine ominöse 4 vielleicht die Länge des Arrays ist.
    
    das habe ich auch schon so interpretiert.
    
    Was ich nur nicht verstehe ist das die Funktion osmtree_get_node_list_id eigentlich eine Liste von ID's erstellt und diese zurückgibt. Diese Liste müßte dann doch auch in Variablen $superway_id enthalten sein.
    
    Wenn ich nun den Dumper mit dem \ erstelle:
    
    Code: (dl )
    
    print Dumper(\osmtree_get_node_list_id($first_obj))."\n";
    
    dann wird ausgegeben:
    
    Quote
    --- dumper ---
    $VAR1 = \'-32';
    $VAR2 = \'-30';
    $VAR3 = \'-28';
    $VAR4 = \'-26';
    
    Wenn ich an dieser Stelle nochmal auf das Posting Listen mit einander verbinden zurückgreife, dann hätte ich jetzt erwartet das superway_id folgendes zurückgeben müßte:
    
    Quote
    superway_id: -32 -30 -28 -26
    
    Dem ist aber nicht so - wo ist nur dieser verdammte Knoten in meinem Kopf?
    
    Gruß Jan :-)
    Last edited: 2014-04-22 21:57:45 +0200 (CEST)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +6 replies
    - Raubtier
      
      2014-04-22 12:17
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      2014-04-22T08:47:08 jan99
      my $superway_id = osmtree_get_node_list_id($first_obj);
      print "superway_id: ".$superway_id."\n";[/code]
      
      $Skalar = @Array gibt die Array-Länge zurück, da habe ich ja richtig geraten.
      
      (beachte auch: $skalar = (liste); gibt letztes Element der Liste zurück)
      
      Vergleiche:
      perl -wE'use Data::Dumper;sub x{my @arr=qw(a b c d); @arr}; my $a=x;say $a' und
      perl -wE'use Data::Dumper;sub x{my @arr=qw(a b c d); @arr}; my @a=x;say Dumper \@a'
      
      Habe ich also richtig geraten.
      
      Quote
      Wenn ich nun den Dumper mit dem \ erstelle:
      
      Code: (dl )
      
      print Dumper(\osmtree_get_node_list_id($first_obj))."\n";
      
      Das mit dem \ ist natürlich nur für Arrays und Hashes sinnvoll, nicht für Aufrufe von Funktionen.
      
      Offenbar sind die die Datentypen in Perl nicht klar. Variablen, die mit $ anfangen, sind Skalare (sind also genau ein Element). Variablen, die mit @ anfangen, sind Arrays, also eine Aufreihung von einfachen (skalaren) Variablen.
      
      Bei Arrays: Die Variable $x[1] zum Beispiel ist genau ein Element, hier genau das zweite aus dem Array @x und fängt daher auch mit $ statt @ an.
      - +5 replies
      - jan99
        
        2014-04-22 12:45
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        ok, das mit dem \ vor dem Funktionsaufruf war Mist!
        
        Das mit einfachen Wert (Skalar) und Array ist mir im Grunde klar - so habe ich immer gedacht.
        
        Aber ich verstehe nicht warum die Liste aus der Funktion osmtree_get_node_list_id nicht als Liste bei mir im aufrufenden Code-Teil ankommt!
        
        Kannst Du mich dort nochmal mit der Nase darauf stoßen was ich falsch gemacht habe ?
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +4 replies
        
        Muffi
        
        2014-04-22 13:12
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Weil du eine Liste in ein Array einlesen musst und nicht in einen Skalar
        1 + 1 = 10
        
        +3 replies
        
        jan99
        
        2014-04-22 16:06
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        soweit so gut - aber jetzt habe ich das angepaßt
        
        Code: (dl )
        
        1 2 3
        
        my @superway_id = osmtree_get_node_list_id($first_obj); print Dumper \@superway_id; print "superway_id: ".@superway_id."\n";
        
        und wenn der ich mir den Report ansehe, dann ist der Dumper ok ..
        
        Quote
        $VAR1 = [
        '-32',
        '-30',
        '-28',
        '-26'
        ];
        superway_id: 4
        
        aber warum wird superway_id immer noch als ("4") ausgegeben.
        
        Erweitere ich meine Frage nun wieder ... kann ich jetzt an den Inhalt von $VAR1 wieder eine andere Liste anhängen, vorstellen etc. wie es in der Ausgangsfrage für das Posting Listen mit einander verbinden ??
        
        Irgendwie verliere ich gerade einmal wieder die Übersicht.
        
        Gruß Jan :-)
        Last edited: 2014-04-22 21:57:00 +0200 (CEST)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +2 replies
        
        Muffi
        
        2014-04-22 16:13
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Perl und die Kontexte.
        
        Wenn du das Array per "." an einen string hängst, dann wird es nicht wie du erwartest "stringifiziert", sondern im Skalarkontext aufgerufen.
        Array im Skalarkontext ergibt die Anzahl seiner Elemente.
        
        WENN du das so machen willst, dann geht z.B.
        
        Code (perl): (dl )
        
        print "superway_id: @superway_id\n";
        
        Das stringifiziert.
        Würd ich aber nicht machen, vor allem nicht als Anfänger. Genau aus dem Grund, dass man Magie benutzt, die man nicht beherrscht.
        
        Nimm einfach ein:
        
        Code (perl): (dl )
        
        print "superway_id: ".join(' ', @superway_id)."\n";
        
        Das funktioniert immer und ist verständlich.
        1 + 1 = 10
        
        jan99
        
        2014-04-22 16:25
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        HI !
        
        danke für diesen großartigen Tipp.
        
        Hoffentlich kann ich mir das auch merken.
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2014-04-22 08:51.