Probleme mit Arrays (Allgemeines zu Perl)

[thread]20079[/thread]

Probleme mit Arrays

Tags: perl5 Array Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+6 replies
pecho

2016-05-23 18:21
User since
2016-05-23
2 Artikel
BenutzerIn
Ich fange mit Perl an und habe ein Problem mit einer Matrix. Ein Beispiel:
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

use strict; use warnings; use 5.024; my @zeile_1 ; my @zeile_2 ; my @zeile_3 ; my $ref_zeile_1 = \@zeile_1; my $ref_zeile_2 = \@zeile_2; my $ref_zeile_3 = \@zeile_3; my @signal_hash = ( $ref_zeile_1, $ref_zeile_2, $ref_zeile_2 ); $signal_hash[0]->[1] = 1; $signal_hash[1]->[1] = 8; $signal_hash[2]->[1] = 66; $signal_hash[0]->[2] = 4; $signal_hash[1]->[2] = 5; $signal_hash[2]->[2] = 6; $signal_hash[0]->[3] = 7; $signal_hash[1]->[3] = 8; $signal_hash[2]->[3] = 9; print (" $signal_hash[1]->[1] $signal_hash[0]->[1] $signal_hash[2]->[1] $signal_hash[0]->[2] $signal_hash[2]->[2] \n\n");
Diese Skript erzeugt folgendes:

Quote
66 1 66 4 6

eigentlich sollte: 8 1 66 4 6 ausgeben.

Ich finde mein Fehler nicht. Kann mir jemand dabei helfen? Danke im Voraus
Last edited: 2016-05-23 18:45:20 +0200 (CEST)
- +5 replies
- pq
  
  2016-05-23 18:53
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  ersetze mal das hier:
  my @signal_hash = ( $ref_zeile_1, $ref_zeile_2, $ref_zeile_2 );
  durch das:
  my @signal_hash = ( $ref_zeile_1, $ref_zeile_2, $ref_zeile_3 );
  
  =)
  
  für die ausgabe kannst du statt print auch say verwenden. dann brauchst du ggfs. kein "\n" anhängen.
  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
  - +4 replies
  - pecho
    
    2016-05-24 14:14
    
    User since
    2016-05-23
    2 Artikel
    BenutzerIn
    
    oh nee... ich bin ein Blinder...
    Danke!
    - +3 replies
    - Raubtier
      
      2016-05-24 18:48
      
      User since
      2012-05-04
      1081 Artikel
      BenutzerIn
      
      Krass, ich habe pqs Antwort gestern gelesen und nicht verstanden bzw. auch nach 10-maligem Durchlesen keinen Unterschied gesehen. Habe eben mal ein diff der beiden Zeilen gemacht und dann kam das Aha-Erlebnis!
      
      Und wieder einmal ist es der letzte Wert, der falsch ist. Scheint ein gängiges copy-paste-Problem zu sein.
      
      Ist aber auch sowas von gemein, wenn da nur ein Zeichen falsch ist!
      
      ;-)
      - Linuxer
        
        2016-05-24 19:06
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Ich habe auch drei mal drüber schauen müssen, bevor ich den Unterschied gesehen habe.
        
        Das zeigt IMHO mal wieder die Wichtigkeit von sprechenden Namen für Variablen.
        Mit \@erste_zeile, \@zweite_zeile, \@dritte_zeile wär das wahrscheinlich schnell aufgefallen ;-)
        Aber da unterscheiden sich die Geschmäcker, was als sprechend gilt und was nicht.
        
        @pecho:
        Wenn die Arrays und Referenz-Variablen nur zur Erzeugung gedacht sind und sonst nicht gebraucht werden, kannst Du sie auch einfach weglassen und arbeitest stattdessen mit anonymen Array-Referenzen:
        
        Code (perl): (dl )
        
        1 2
        
        # erzeuge Array-of-Arrays my @signal_hash = ( [], [], [] );
        
        Apropos sprechende Variablennamen: "signal_hash" für einen Array-of-Arrays scheint mir auch seltsam zu sein ;-)
        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!
      - pq
        
        2016-05-24 19:52
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        ich gebe zu, ich habe das skript auch erstmal ausführen müssen und dann durch auskommentieren recht schnell gemerkt, dass da eine referenz sein muss. erst mit dem erneuten blick auf die zeile kam dann das aha-erlebnis =)
        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

View all threads created 2016-05-23 18:21.