hashes of hashes (gelöst) (Allgemeines zu Perl)

[thread]15496[/thread]

hashes of hashes [gelöst]

Leser: 24

Articles: hide open all | hide show old branches

+7 replies
hannesPR

2010-10-01 03:55
User since
2010-10-01
3 Artikel
BenutzerIn
hi ich fange gerade erst an mit perl hab aber schon programmier Erfahrung (vor allen C). Mein Ziel ist es ein 2D Matrix von 20 mal 40 Felder auszugeben und das möglichst ohne diese Matrix im den Quell Code eins zu eins abzubilden (das soll skalierbar sein). In C hätte ich so was mit nem 2D array gemacht, Da es das aber in Perl nicht gibt und die Lösungen mit "Array auf Referenzen von Array" nicht infrage kommt weil das erzeugen von dynamischen Array Namen unschön ist. Dachte ich mir ich mach das mit Hashes of Hashes. Im kleinen ausprobiert klappte :D im großen ausprobiert klappte nicht mehr :(. eine halbe Stunde lang den Kopf zerbrochen und mich dann entschlossen das mal der Allgemeinheit zu präsentieren denn ich finde den Fehler nicht.
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 47 48

#!/usr/bin/perl -w # ___40 # | | # 20|___| use strict; my ($i, $ii, %matrix, %asd); #test $i=0; %asd=($i => {$i => " "}); print $asd{0}{0}; #klappt wunderbar #test #initialisierung %matrix for ($i=0;$i<20;$i++) { for ($ii=0;$ii<40;$ii++) { %matrix=($i => { $ii => "X"}); } } print $matrix{0}{1}; #klappt nicht main(); sub main { for (;;) #main { print (" Matrix\n"); print ("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n"); for ($i=0;$i < 20;$i++ ) { print ("x"); for ($ii=0;$ii < 40;$ii++) { print $asd{0}{0}; #klappt auch wunderbar #print $matrix{1}{1}; klappte auch nicht } print ("x\n"); } print ("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n"); sleep(1); } }
Fehlermeldung:
Use of uninitialized value in print at ./cursor.pl line 24.
(wer die selber sehen will sollte main() auskommentieren sonst verschwindet die gleich wieder)
perl -v:
This is perl, v5.10.0 built for i486-linux-gnu-thread-multi

Das ganze dient für mich dazu Perl zu lernen bzw. nen Einblick zu bekommen also bitte keine fragen nach dem warum.
Ich vermute das sich da irgend welche Speicher Bereiche überschreiben da das ganze klappt wenn die beiden for schleifen jeweils nur einmal durchlaufen. Das kommt mir aber recht unwahrscheinlich vor, das so nen Fehler unentdeckt geblieben wäre deswegen ist es wohl doch mein Unvermögen :D.
Hoffe auf hilfreiche Antworten.
Last edited: 2010-10-01 09:00:27 +0200 (CEST)
- +3 replies
- renee
  
  2010-10-01 09:21
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Der Fehler liegt in dieser Zeile:
  
  Code (perl): (dl )
  
  %matrix=($i => { $ii => "X"});
  
  (Zeile 21 in Deinem Code)
  
  Hier erzeugst Du den Hash immer komplett neu. Das heißt, in dem Hash gibt es immer nur einen Wert.
  
  Ein super Modul zum debuggen solcher Probleme ist Data::Dumper. Damit kann man Datenstrukturen ausgeben. Mach mal:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  use Data::Dumper; #initialisierung %matrix for ($i=0;$i<20;$i++) { for ($ii=0;$ii<40;$ii++) { %matrix=($i => { $ii => "X"}); print Dumper \%matrix; } } print $matrix{0}{1}; #klappt nicht
  
  Die Zeile 21 in Deinem Code müsste so aussehen:
  
  Code (perl): (dl )
  
  $matrix{$i} = { $ii => "X" };
  
  Die for-Schleifen würde ich anpassen, weil der C-style in Perl eher selten benutzt wird.
  
  Übrigens kann man auch mit Arrayreferenzen arbeiten, wie Du es hier mit Hashreferenzen machst:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #initialisierung @matrix my @matrix; for my $first_dim ( 0 .. 19 ) { for my $second_dim ( 0 .. 39 ) { $matrix[$first_dim]->[$second_dim] = "X"; } } print $matrix[0]->[1];
  
  Referenzen sind in Perl extrem wichtig. Man brauchst sie eigentlich täglich. Schau Dir auch mal perlreftut an.
  Last edited: 2010-10-01 09:22:56 +0200 (CEST)
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +2 replies
  - hannesPR
    
    2010-10-01 13:37
    User since
    2010-10-01
    3 Artikel
    BenutzerIn
    
    hi ich hab heute früh gleich nach dem ich das hier rein geschrieben hab ne Lösung gefunden
    
    Code (perl): (dl )
    
    $matrix{$i}{$ii} = " ";
    
    Danke für die anderen Lösungsvorschläge speziell das mit den Arrayreferenzen sieht sexy aus (seh ich das richtig ich kann mir da die for schleifen bei der Ausgabe Sparren) .
    achso und das mit den For schleifen, das ist echt tief bei mir ein geschliffen aber ich versuch immer dran zu denken. :D
    - Taulmarill
      
      2010-10-01 13:42
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Genau genommen kann man sich hier die for-Schleife sparen, ja. Aber das verwendete map ist auch nur eine Schleife die über eine Liste iteriert, allerdings mit der Besonderheit, dass map wieder eine Liste zurück gibt.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- Gast wer
  
  2010-10-01 09:38
  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
  
  #!/usr/bin/perl use strict; use warnings; my $x=7; my $y=10; # kurze variante: #my @array=map{[map{'W'}(1..$y)]}(1..$x); # auführlicher: my @array; for my $px (0..$x-1) { for my $py (0..$y-1) { $array[$px][$py]='W'; } } # hüpsche Ausgabe printf(" %s\n +-%s\n", join('',map{sprintf("%02u ",$_)}(1..$y)),'---'x$y); printf("%02u | %s\n |\n", $_+1, join('',map{sprintf("% 2s ",$_)}@{$array[$_]}) ) for(0..$#array);
  
  Tut mir Leid ich sehe das Problem nicht, warum muss man irgendwelche ArrayNamen dynamisch erzeugen?
  Last edited: 2010-10-01 09:39:47 +0200 (CEST)
- +2 replies
- torsten
  
  2010-10-01 09:53
  User since
  2010-08-16
  45 Artikel
  BenutzerIn
  Also, das geht natürlich auch mit Arrays. Und ich würde Dir dringend raten es mit Arrays zu machen, denn diese sind in Perl deutlich schneller als Hashes, obwohl das natürlich auch geht.
  
  2010-10-01T01:55:40 hannesPR
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  ... for ($i=0;$i<20;$i++) { for ($ii=0;$ii<40;$ii++) { %matrix=($i => { $ii => "X"}); } } ...
  
  Hier überschreibst Du das Hash jedes mal komplett neu. Am Schluß hast Du ein Hash mit nur einem Element:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  $ perl -MData::Dumper -e 'for ($i=0;$i<20;$i++) > { > for ($ii=0;$ii<40;$ii++) > { > %matrix=($i => { $ii => "X"}); > } > } > print Dumper \%matrix' $VAR1 = { '19' => { '39' => 'X' } };
  
  Mit Arrays könntest Du z.B. wie folgt arbeiten:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  @arr=map {[$_ .. $_+39]} (0..19); for( $i=0; $i<@arr; $i++ ) { for( $j=0; $j<@{$arr[$i]}; $j++ ) { printf "%02d, ", $arr[$i]->[$j]; } print "\n"; }
  
  Bis auf die Initialisierung ist das aber nicht sehr perlig.
  
  Code (perl): (dl )
  
  1 2
  
  @arr=map {[$_ .. $_+39]} (0..19); print join("\n", map { my $l=$_; join(", ", map { sprintf "%02d", $_ } @$l) } @arr), "\n";
  
  Führt (fast (siehe Zeilenenden)) zum selben Resultat.
  
  Oder auch
  
  Code (perl): (dl )
  
  1 2
  
  @arr=map {[$_ .. $_+39]} (0..19); printf +("%02d, " x @$_)."\n", @$_ for @arr
  - hannesPR
    
    2010-10-01 13:40
    
    User since
    2010-10-01
    3 Artikel
    BenutzerIn
    
    irgend wie hab ich vergessen wie ich darauf gekommen bin das das mit Arrays nicht geht. naja war ja auch gegen 4 uhr morgens
    danke nochmal für die hilfe

View all threads created 2010-10-01 03:55.