Arrayübergabe (Allgemeines zu Perl)

[thread]16909[/thread]

Arrayübergabe

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+12 replies
Pasta

2011-11-12 16:43
User since
2011-11-12
5 Artikel
BenutzerIn
Hallo,

ich habe nicht so ganz die Perl-Erfahrung, dennoch habe ich mich im Forum etwas über die Arrayübergabe informiert und auf vielen anderen Seiten auch.

Ich bekomme die Übergabe weder mit Referenzierung / Dereferenzerung noch mit normaler Übergabe hin. Es wäre echt hilfreich wenn mir jemand zeigen könnte, wo die Fehler liegen.
Zum Programm: Es geht um Primzahlenzerlegung. Ich habe einen vorher gefüllten Array (mit den Primzahlen der Zahl, die Zerlegt wurde), der dann an meine Methode Output übergeben wird:
Code: (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

... @primfaktoren = (2,2,2,3,17,17); #Bei der Zahl 6936 sieht der Array dann so aus ausgabe (@primfaktoren); sub ausgabe { @primfaktoren = $_[0]; my $counter2 = 0; my $counter1 = 0; $counter1 = $#primfaktoren; #Arraylänge while ($counter2 < $counter1) { print ($primeFactors[$counter2] . "*"); $counter2++; } print ($primfaktoren[-1]); #Ausgabe der letzen Stelle des Arrays, damit das Malzeichen am Ende nicht nocheinmal steht. }
Die Ausgabe soll dann so aussehen:
2*2*2*3*17*17
Last edited: 2011-11-12 16:52:22 +0100 (CET)
- +7 replies
- pq
  
  2011-11-12 16:59
  User since
  2003-08-04
  12208 Artikel
  Admin1
  du hast in perl die wahl, ob du eine arrayreferenz übergibst oder das array selbst als liste.
  im ersten fall bekommt die subroutine nur ein argument, und diese referenz musst du dann in der subroutine anders ansprechen. empfohlen, wenn das array sehr gross ist (spart das kopieren des arrays), oder wenn du noch mehrere andere parameter übergeben möchtest.
  
  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
  
  # referenz ausgabe(\@array); sub ausgabe { my ($primfaktoren) = @_; # oder my $primfaktoren = $_[0]; my $counter1 = $#$primfaktoren; #Arraylänge ... # ansprechen eines elements mittels pfeil ("dereferenzierung") # $primeFactors->[$counter2] } # als liste ausgabe(@array); sub ausgabe { my @primfaktoren = @_; # wie gehabt weitermachen...
  
  perlsub
  perlreftut
  
  eine liste von guten tutorials: http://perl-tutorial.org/
  Last edited: 2011-11-12 19:22:41 +0100 (CET)
  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
  - +5 replies
  - Pasta
    
    2011-11-12 17:26
    User since
    2011-11-12
    5 Artikel
    BenutzerIn
    
    So siehts nun aus:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
    
    ausgabe (\@primfaktoren); sub ausgabe { my ($primfaktoren) = @_; my $counter2 = 0; my $counter1 = 0; $counter1 = $#primfaktoren; while ($counter2 < $counter1) { print ($primfaktoren->[$counter2] . "*"); $counter2++; } print ($primfaktoren->[-1]); #Ausgabe der letzen Stelle des Arrays, damit das Malzeichen am Ende nicht nocheinmal steht. }
    
    Und beim Ausführen:
    "Global symbol "@primeFactors" requires explicit package name at C:\x.pl line 92."
    
    Zeile 92 ist
    
    Code: (dl )
    
    $counter1 = $#primfaktoren;
    - Linuxer
      
      2011-11-12 18:00
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Du hast nur $primfaktoren in der Subroutine definiert.
      
      $#primfaktoren liefert den letzten Index des Array @primfaktoren, das existiert aber nicht.
      
      Wenn Du den letzten Index des per Referenz übergebenen Array haben willst, musst Du dereferenzieren.
      
      Code (perl): (dl )
      
      1 2
      
      # dereferenziere die Array Referenz und liefer den letzten Index des Array my last_index = $#{$array_ref};
      
      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!
    - +3 replies
    - pq
      
      2011-11-12 18:00
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      schau dir mal zeile 9 in meinem beispiel genauer an: $#$primfaktoren
      
      wenn es eine referenz ist, musst du es anders ansprechen!
      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
      - +2 replies
      - Pasta
        
        2011-11-12 18:42
        
        User since
        2011-11-12
        5 Artikel
        BenutzerIn
        
        Okay, da war also ein $ zu wenig. Wenn ich mir aber mal zum debugging $counter1 ausgeben lasse, ist darin der Wert -1 gespeichert.
        Wieso nicht 5?
        Im Array sind doch nämlich 6 Elemente gespeichert (2,2,2,3,17,17).
        
        Das erklärt nämlich auch, wieso er mir rein gar nichts ausgibt.
        Last edited: 2011-11-12 18:44:23 +0100 (CET)
        
        pq
        
        2011-11-12 19:24
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        dann hast du irgendwo einen anderen fehler.
        kurze überprüfung:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        $ perl -wE' my @primfaktoren = (2,2,2,3,17,17); ausgabe(\@primfaktoren); sub ausgabe { my ($primfaktoren) = @_; my $counter1 = $#$primfaktoren; say $counter1; }' 5
        
        schaut gut aus hier.
        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
  - bianca
    
    2011-11-12 18:18
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Da stimmt was nicht: ausgabe <=> primfaktoren
    
    Entweder der Aufruf oder der sub Name.
    10 print "Hallo"
    20 goto 10
- Pasta
  
  2011-11-13 18:10
  
  User since
  2011-11-12
  5 Artikel
  BenutzerIn
  
  pq hast du meine PM bekommen?
- +2 replies
- pq
  
  2011-11-13 18:42
  User since
  2003-08-04
  12208 Artikel
  Admin1
  um noch einen anderen aspekt des skripts anzusprechen:
  ich weiss nicht, inwieweit du dich mit for-schleifen und nützlichen perl-funktionen auskennst, jedenfalls gibt es viel einfachere und gleichzeitig lesbarere methoden, um ein array auszugeben.
  du möchtest alle elemente eines arrays mit einem '*' dazwischen ausgeben.
  ein erster ansatz wäre statt der umständlichen while-schleife eine for-schleife:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  for my $i (0 .. $#array -1) { print "$array[$i]*"; } print $array[-1];
  
  in perl gibt es jedoch auch noch eine praktische funktion namens join():
  
  Code (perl): (dl )
  
  print join '*', @array;
  
  da erkennt man auf den ersten blick, was gemacht wird: verbinde alle elemente von array mit einem * und gib das ergebnis aus.
  
  edit: und der vollständigkeit halber, hier noch eine weitere möglichkeit:
  
  Code (perl): (dl )
  
  1 2
  
  local $" = '*'; print "@array";
  
  die spezialvariable $" (der defaultwert ist ") wird bei "@array" zwischen die elemente eingesetzt.
  Last edited: 2011-11-13 19:25:03 +0100 (CET)
  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
  - Pasta
    
    2011-11-13 20:52
    User since
    2011-11-12
    5 Artikel
    BenutzerIn
    
    Ja, das mag sein.
    Vorher habe ich Java gemacht, daher kenn ich so die Grundlagen.
    
    Ich glaube ich habe meinen Fehler gefunden:
    Durch meine Rekursion, habe ich vergessen den Array wieder an die Primfaktorzerlegung zu übergeben:
    
    Code: (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
    
    sub primeFactorization { my $divisor = $_[0]; my $z1 = $_[1]; my $z1tmp = $z1; my $remainder = 0; my @primeFactors; $divisor++; if ($divisor <= $z1) { $remainder = $z1tmp % $divisor; if ($remainder == 0) { @primeFactors = (@primeFactors, $divisor); $z1tmp = $z1tmp /= $divisor; $divisor = 1; print ("@primeFactors\n"); #Testausgabe nach jedem Durchlauf } primeFactorization ($divisor, $z1tmp); } else { output (\@primeFactors); } }
    
    Wie übergebe ich nun meinen Array mit Primfaktoren mit Rekursion an die Funktion?
- rosti
  
  2011-11-13 19:21
  User since
  2011-03-19
  3194 Artikel
  BenutzerIn
  Quote
  @primfaktoren = $_[0];
  
  Du weist einem Array _genau_ ein Wert zu. Btw., wenn Du eine Liste nurmalso zum angucken ausgeben willst, quote es:
  
  Code (perl): (dl )
  
  print "@liste";
  
  und Du siehst die Werte schön nebeneinander.

View all threads created 2011-11-12 16:43.