Listen mit einander verbinden (Allgemeines zu Perl)

[thread]19035[/thread]

Listen mit einander verbinden

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+12 replies
jan99

2014-04-17 17:18
User since
2008-09-18
439 Artikel
BenutzerIn
Hi !

ich habe Listen mit einander zu verbinden wobei $superway die Basis-Liste ist und an die soll eine andere angehängt werden bzw. vorgestellt ($current_obj->node_list()) werden.

Es ist aber jeweils der Eintrag der anzuhängenden bzw. vorzustellenden Eintrag entfernt werden der an die Basis-Liste anschließt (es geht um ID's).

Dann kommt noch hinzu das diese anzuhängenden bzw. vorzustellenden Listen teilweise gedreht werden müssen.

Es wimmelt so von Meldung ... kann sich mal einer meine Syntax ansehen?
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

# anhängen push($superway, shift $current_obj->node_list()); # vorstellen unshift($superway, pop $current_obj->node_list()); #umgedreht anhängen push($superway, shift(reverse $current_obj->node_list())); #umgedreht vorstellen unshift($superway, pop(reverse $current_obj->node_list()));
Meine Meldungen gehen jetzt in die Richtung..(auch wenn die Nummern der Zeilen nicht zugeordnet werden können.

Quote
Type of arg 1 to shift must be array (not subroutine entry) at osmCreateGPX.pl l
ine 242, near "))"
Type of arg 1 to push must be array (not private variable) at osmCreateGPX.pl li
ne 242, near "))"
Type of arg 1 to pop must be array (not subroutine entry) at osmCreateGPX.pl lin
e 246, near "))"
Type of arg 1 to unshift must be array (not private variable) at osmCreateGPX.pl
line 246, near "))"
Type of arg 1 to shift must be array (not reverse) at osmCreateGPX.pl line 251,
near "))"
Type of arg 1 to push must be array (not private variable) at osmCreateGPX.pl li
ne 251, near "))"
Type of arg 1 to pop must be array (not reverse) at osmCreateGPX.pl line 255, ne
ar "))"
Type of arg 1 to unshift must be array (not private variable) at osmCreateGPX.pl
line 255, near "))"
Execution of osmCreateGPX.pl aborted due to compilation errors.

Kann mir einer weiterhelfen ?

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +11 replies
- Gast wer
  
  2014-04-17 18:11
  shift push unshift usw funktionieren nur mit arrays.
  
  Code (perl): (dl )
  
  push(@superway, ...
  
  oder
  
  Code (perl): (dl )
  
  push(@$superway, ...
  
  Last edited: 2014-04-17 19:38:33 +0200 (CEST)
  - +10 replies
  - Raubtier
    
    2014-04-17 20:19
    User since
    2012-05-04
    1076 Artikel
    BenutzerIn
    
    Guest wer
    shift push unshift usw funktionieren nur mit arrays.
    
    Nein, auch mit Array-Referenzen. Ich bin gerade nicht sicher, wann das eingeführt wurde, aber vor einiger Zeit hättest du noch recht gehabt.
    
    Code: (dl )
    
    1 2 3 4
    
    perl -wMData::Dumper -E'$x=[];push $x,1;say Dumper $x' $VAR1 = [ 1 ];
    - +7 replies
    - jan99
      
      2014-04-18 08:42
      
      User since
      2008-09-18
      439 Artikel
      BenutzerIn
      
      ist meine Syntax dann richtig vom Ansatz zumindest ?
      
      Gruß Jan :-)
      perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
      - +6 replies
      - Raubtier
        
        2014-04-18 10:01
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        Naja, prinzipiell funktionieren shift und pop für Arrays und Array-Referenzen. Wenn $current_obj->node_list() eine Array-Referenz zurückgibt, funktioniert dein erster Befehl (und der zweite auch):
        
        Code: (dl )
        
        1 2
        
        perl -wE'package foo;use Moose;sub foo{return [qw(d e f)]};package main;my $f=foo->new();my @x;push @x, shift $f->foo();say $x[0]' d
        
        Allerdings gibst node_list, wie der Name schon vermuten lässt, wohl bei dir eine Liste zurück. shift/unshift funktionieren aber nur auf Arrays (oder Array-Referenzen). pop und unshift geben nicht nur etwas zurück, sondern sie ändern ja auch ihr Argument. Das geht bei einer Liste aber nicht. (siehe auch perldoc -q 'difference between a list and an array')
        
        Du möchtest ja einfach nur das erste oder letzte Element der Liste haben - das geht einfach mit [0] bzw. [-1].
        
        Also:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        # anhängen push($superway, ($current_obj->node_list())[0]); # vorstellen unshift($superway, ($current_obj->node_list())[-1]); #umgedreht anhängen push($superway, (reverse $current_obj->node_list())[0]); #umgedreht vorstellen unshift($superway, (reverse $current_obj->node_list())[-1]);
        
        PS: ich persönlich bevorzuge die alte von "wer" beschriebene Schreibweise, d.h. push @$arrayref, $element, weil sie besser klarstellt, dass das erste Element für push ein Array-Ref ist.
        Last edited: 2014-04-18 10:05:03 +0200 (CEST)
        
        +5 replies
        
        jan99
        
        2014-04-18 10:49
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        danke - aber leider haben wir uns wohl etwas missverstanden an einer Stelle.
        
        Aus meinem Satz
        
        Quote
        Es ist aber jeweils der Eintrag der anzuhängenden bzw. vorzustellenden Eintrag entfernt werden der an die Basis-Liste anschließt (es geht um ID's).
        
        hast Du verstanden
        
        Quote
        Du möchtest ja einfach nur das erste oder letzte Element der Liste haben - das geht einfach mit [0] bzw. [-1].
        
        mir geht es darum das dort wo die anzuhängende / vorstellende Liste angefügt wird das erste bzw. letzte Element der anzuhängende / vorstellende Liste entfernt wird.
        
        Ansonsten sind die ID's (das war ja das Beispiel) an dieser Stelle an der Ergebnisliste doppelt !
        
        Könntest Du Dein Beispiel daran nochmal anpassen ?
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +4 replies
        
        Raubtier
        
        2014-04-18 11:43
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        2014-04-18T08:49:41 jan99
        hi !
        
        danke - aber leider haben wir uns wohl etwas missverstanden an einer Stelle.
        
        Aus meinem Satz
        
        Quote
        Es ist aber jeweils der Eintrag der anzuhängenden bzw. vorzustellenden Eintrag entfernt werden der an die Basis-Liste anschließt (es geht um ID's).
        
        hast Du verstanden
        
        Quote
        Du möchtest ja einfach nur das erste oder letzte Element der Liste haben - das geht einfach mit [0] bzw. [-1].
        
        Nein, ich habe deinen Satz überhaupt nicht verstanden, da es kein grammatikalisch korrekter Satz ist und ich auch nach mehrmaligem Lesen nicht verstehe, was du meinst. Zusätzlich kann hier niemand wissen, was du mit irgendwelchen IDs meinst.
        
        Meine Folgerung habe ich daher nicht aus dem Satz, sondern aus deinem Code gezogen:
        
        push: etwas hinten dranhängen.
        shift: gibt erstes Element eines Arrays zurück (und verkürzt das Array um dieses Element - aber dieser "Nebeneffekt" wird in deinem Code nicht benutzt)
        Folgerung: s.o.
        
        Quote
        mir geht es darum das dort wo die anzuhängende / vorstellende Liste angefügt wird das erste bzw. letzte Element der anzuhängende / vorstellende Liste entfernt wird.
        
        Aus einer Liste kannst du kein Element entfernen, das geht nur aus Arrays.
        
        Ansonsten ist mir immer noch überhaupt nicht klar, was du eigentlich erreichen willst.
        
        Kannst du nicht vielleicht ein Beispiel machen?
        
        Also z.B. sowas wie:
        $superway = [ qw(a b c d) ];
        node_list liefert qw(c d e) zurück.
        Im Ergebnis soll $superway folgendes enthalten: ...
        
        +3 replies
        
        jan99
        
        2014-04-18 21:56
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        Quote
        $superway = [ qw(a b c d) ];
        node_list liefert qw(c d e) zurück.
        Im Ergebnis soll $superway folgendes enthalten: ...
        
        für das Beispiel braucht die node_list immer etwas andere Werte, deshalb...
        
        # anhängen
        node_list = qw(d e f g);
        Ergebnis: (a b c d e f g)
        
        # vorstellen
        node_list = qw(x y z a);
        Ergebnis: (x y z a b c d)
        
        #umgedreht anhängen
        node_list = qw(g f e d);
        Ergebnis: (a b c d e f g)
        
        #umgedreht vorstellen
        node_list = qw(a z y x);
        Ergebnis: (x y z a b c d)
        
        ich hoffe das mir nun kein Fehler unterlaufen ist und Du mich verstehen konntest.
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +2 replies
        
        Gast charly54
        
        2014-04-19 18:47
        
        Hi,
        vielleicht solltest Du Dein Problem in zwei Schritten lösen?
        In etwa so:
        
        Code (perl): (dl )
        
        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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
        
        my $superway = [qw(a b c d)]; print "Superway = @$superway\n\n"; my @erg = @$superway; ############ # anhängen my $node_list = [qw(d e f g)]; print "node_list = @$node_list\n"; # erste Stelle von node_list wegwerfen shift @$node_list; # und dann nach superway einfügen push @erg, @$node_list; print "@erg\n"; ############## # vorstellen @erg = @$superway; $node_list = [qw(x y z a)]; print "node_list = @$node_list\n"; # letzte Stelle von node_list wegwerfen pop @$node_list; # und dann vor superway anfügen unshift @erg, @$node_list; print "@erg\n"; ##################### #umgedreht anhängen @erg = @$superway; $node_list = [qw(g f e d)]; print "node_list = @$node_list\n"; # letzte Stelle von node_list wegwerfen pop @$node_list; # und dann umgekehrt nach superway anhängen push @erg, reverse(@$node_list); print "@erg\n"; ####################### #umgedreht vorstellen @erg = @$superway; $node_list = [qw(a z y x)]; print "node_list = @$node_list\n"; # erste Stelle von node_list wegwerfen shift @$node_list; # und dann umgekehrt vor superway einfügen unshift @erg, reverse(@$node_list); print "@erg\n";
        
        In der Hoffnung, dass ich das Problem richtig verstanden habe ...
        viel Erfolg & Gruß,
        charly54
        Last edited: 2014-04-19 19:43:43 +0200 (CEST)
        
        jan99
        
        2014-04-21 18:05
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        danke - erst einmal nur heruntergezogen.
        
        Wenn ich das aber richtig lese, dann wandelst Du die Listen in Pseudo-Array um für die nachfolgenden Schritte etc....
        
        Danke erst einmal für das Osterei.
        
        Gruß Jan .-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - pq
      
      2014-04-22 21:28
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      vorsicht ist geboten:
      
      perl 5.19.8 liefert:
      
      Quote
      push on reference is experimental
      
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - Linuxer
      
      2014-04-22 21:48
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Wenn ich das richtig zusammenbringe, wurde es mit 5.14.0 eingeführt: http://perldoc.perl.org/5.14.0/perldelta.html#Arra...
      
      Und wenn das in 5.19.x immer noch als experimentell gekennzeichnet ist, würde ich das in Produktiv-Code nicht verwenden (in kleinen Basteleien aber vielleicht schon).
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2014-04-17 17:18.