zum 1000 und 2x Liste... (solved) (Allgemeines zu Perl)

[thread]19046[/thread]

zum 1000 und 2x Liste... [solved]

Tags: perl5 Similar Threads

Readers: 11

Articles: hide open all | hide show old branches

+7 replies
jan99

2014-04-24 08:55
User since
2008-09-18
439 articles
BenutzerIn
Moin !

ich muss nochmal mit den Listen kommen.

Ich habe mehrere Listen (@superway_id) wie

Quote
$VAR1 = [
'-14',
'-16',
'-18'
];

(Werte sind zweitrangig!)

Davon will ich jetzt welche zusammenfassen (in @superway_id_result) in eine neue Liste und das habe ich mit
Code: (dl )

push @superway_id_result, \@superway_id;
Wenn ich @superway_id_result jetzt mit Dumper ausgeben lasse bekomme ich

Quote
$VAR1 = [
[
'-99',
'-100',
'-102'
],
[
'-14',
'-16',
'-18',
'-28'
]
];

Ich hätte eigentlich etwas wie

Quote
$VAR1 = [
'-99',
'-100',
'-102'
]
$VAR2 = [
'-14',
'-16',
'-18',
'-28'
]

erwartet.

Weil wenn ich
Code (perl): (dl )

1 2 3

foreach my $data (@superway_id_result){ print "Node: ".join(" ", @superway_id_result)."\n"; }
ausführe bekomme ich

Quote
Node: ARRAY(0x398d284) ARRAY(0x39a9084)
Node: ARRAY(0x398d284) ARRAY(0x39a9084)

Eigentlich sollten die Wert der ehemalig inneren Liste mit dem JOIN verbunden werden.

Kann mir einer nochmal etwas Licht machen?

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- bianca
  
  2014-04-24 09:08
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Willst du die beiden Array mergen? http://stackoverflow.com/a/13106889
  10 print "Hallo"
  20 goto 10
- +3 replies
- Raubtier
  
  2014-04-24 09:38
  
  User since
  2012-05-04
  1075 articles
  BenutzerIn
  
  Du solltest dringend mal folgende perldocs lesen, vielleicht klären sich dann schon all deine Probleme von selbst:
  perllol
  perldsc
  - +2 replies
  - jan99
    
    2014-04-24 10:15
    User since
    2008-09-18
    439 articles
    BenutzerIn
    
    hi !
    
    im Grunde möchte ich aus perllol die Basisdaten nach
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    use 5.010; # so we can use say() # assign to our array, an array of array references @AoA = ( [ "fred", "barney", "pebbles", "bambam", "dino", ], [ "george", "jane", "elroy", "judy", ], [ "homer", "bart", "marge", "maggie", ], );
    
    erstellen.
    
    Aber hier wird das Array schon vorgegeben - wie baue ich das aber aus z.b. 3 Variablen auf?
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - bianca
      
      2014-04-24 10:28
      
      User since
      2009-09-13
      7016 articles
      BenutzerIn
      
      Versuche mal (ungetestet):
      
      Code (perl): (dl )
      
      1 2
      
      $superway_id_result[0] = [@superway_id_result]; $superway_id_result[1] = [@superway_id]
      
      10 print "Hallo"
      20 goto 10
- +2 replies
- pq
  
  2014-04-24 10:45
  User since
  2003-08-04
  12208 articles
  Admin1
  2014-04-24T06:55:40 jan99
  
  Weil wenn ich
  
  Code (perl): (dl )
  
  1 2 3
  
  foreach my $data (@superway_id_result){ print "Node: ".join(" ", @superway_id_result)."\n"; }
  
  ausführe bekomme ich
  
  Quote
  Node: ARRAY(0x398d284) ARRAY(0x39a9084)
  Node: ARRAY(0x398d284) ARRAY(0x39a9084)
  
  dein array ist schon richtig.
  auch die ausgabe von Data::Dumper sieht ok aus.
  lediglich deine ausgabe ist falsch.
  schau mal genau hin, was du in zeile 2 ausgibst, und ob du dort nicht besser @$data verwenden willst statt @superway_id_result
  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
  - jan99
    
    2014-04-24 10:55
    
    User since
    2008-09-18
    439 articles
    BenutzerIn
    
    bingo !
    
    Thema wohl vorerst erledigt !
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2014-04-24 08:55.