Array of Arrays (Matrix vs. Tabelle) (Allgemeines zu Perl)

[thread]17010[/thread]

Array of Arrays (Matrix vs. Tabelle)

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+5 replies
kimmy

2011-12-22 15:56
User since
2010-09-10
87 Artikel
BenutzerIn
Hallo Zusammen,

ich habe folgende diagonale Matrix.
Code: (dl )

1 2 3 4

A B 1 C 3 2 D 2 4 3
Und damit habe ich 2-dimensionale Array erstellt.
Code (perl): (dl )

1 2 3 4 5 6 7 8

my (@data_array, @begriff_array, %begriff_hash); while(<>){ chomp; my $begriff = $1, my $matrix = $2 if (/^([^\t]+)\t(.*)/); push @begriff_array, $begriff; # Push Array of Array push @data_array, [split(/\t/,$matrix)]; }
Aber ich möchte als Input statt Matrix eine Tabelle verwenden;
Code: (dl )

1 2 3 4 5 6 7

A A B A 1 C A 3 C B 2 D A 2 D B 4 D C 3
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

my (%hash, %hoa); my (@data_array,@begriff_array); while(<>){ chomp; my $bez1=$1, my $bez2=$2, my $dis=$3 if(/^(.+)\t(.*)\t(.*)$/); push @{$hash{$bez1}}, $dis; next if defined $hoa{$bez1}; push @begriff_array, $bez1; $hoa{$bez1}=1; } foreach my $key (sort keys %hoa){ push @data_array, [@{$hash{$key}}]; }
Wieso sind die Arrays "@data_array" nicht identisch? Was habe ich beim 2. Skript falsch gemacht?
- moritz
  
  2011-12-22 18:49
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Also zuerst mal benutzt mit my ... if ... ; ein sehr gefährliches Konstrukt. perlsyn sagt dazu:
  
  Quote
  NOTE: The behaviour of a "my" statement modified with a statement
  modifier conditional or loop construct (e.g. "my $x if ...") is
  undefined. The value of the "my" variable may be "undef", any
  previously assigned value, or possibly anything else. Don't rely on
  it. Future versions of perl might do something different from the
  version of perl you try it out on. Here be dragons.
  
  Also lass das lieber.
  
  Ich verstehe auch ehrlich gesagt deinen Code nicht, ich finde den zu kompliziert. Ich würde eher so etwas hier machen:
  
  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
  
  use warnings; my @data; sub numeric_idx { my $val = shift; return ord($val) - ord('A'); } while (<DATA>) { chomp; my ($x, $y, $v) = split /\t/; $data[numeric_idx($x)][numeric_idx($y)] = $v if defined $v; } __DATA__ A A B A 1 C A 3 C B 2 D A 2 D B 4 D C 3
  
  Perl 6 - Perls Zukunft
- +3 replies
- Sven_123
  
  2011-12-23 09:16
  User since
  2010-06-01
  120 Artikel
  BenutzerIn
  Moritz' Vorschlag ist wesentlich leserlicher, ich würd auch zu sowas in der Art tendieren.
  
  Falls du es unbedingt auf deine Weise machen möchtest, benutz mal Data::Dumper, oder einfach nur ein print, bei jedem Befüllen. Damit lässt sich sowas eigentlich ziemlich einfach aufdröseln.
  
  Code (perl): (dl )
  
  1 2
  
  use Data::Dumper; print Dumper(\@array,\%hash); #etc.
  
  Ein Unterschied, der mir beim bloßen Durchlesen auffällt ist, dass im ersteren Fall, in der ersten Zeile der Matrix "A\t", deine regex zwar matched, dein split am Ende aber nichts zurückgibt, der erste referenzierte Array in @data_array also leer ist.
  Im zweiten Beispiel matched es auch, du pushed aber "undef" (d.h. vielleicht auch ""...wie ist das, wenn in den Klammern nichts steht?) in den Array, hast also plötzlich ein Element drinnen.
  Keine Ahnung ob das das ist, was du gesucht hast...
  Last edited: 2011-12-23 10:59:31 +0100 (CET)
  - +2 replies
  - kimmy
    
    2011-12-23 11:12
    User since
    2010-09-10
    87 Artikel
    BenutzerIn
    
    Danke. Eigentlich habe ich danach gesucht. Ich habe mit der Hilfe
    
    Code (perl): (dl )
    
    1 2 3
    
    use Dumpvalue; my $dumper = new Dumpvalue; $dumper->dumpValue(\@data_array);
    
    das Array geprintet. Beim ersten bekomme ich
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    0 ARRAY(0x100838548) empty array 1 ARRAY(0x100838be8) 0 1 2 ARRAY(0x10083ec00) 0 3 1 2 3 ARRAY(0x10083eb58) 0 2 1 4 2 3
    
    und beim zweiten
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    0 ARRAY(0x1008703f0) 0 '' 1 ARRAY(0x100870420) 0 1 2 ARRAY(0x100870468) 0 3 1 2 3 ARRAY(0x1008704c8) 0 2 1 4 2 3
    
    übrigens habe ich wie folgt ein Trick gemacht
    
    Code (perl): (dl )
    
    1 2
    
    shift @data_array; unshift @data_array,[];
    
    Gibt es vielleicht bessere Lösung?
    - Sven_123
      
      2011-12-23 12:56
      
      User since
      2010-06-01
      120 Artikel
      BenutzerIn
      
      Naja, wenn du in Zeile 6
      
      Code (perl): (dl )
      
      if ($dis) {push @{$hash{$bez1}}, $dis}
      
      schreibst, bleibt der Array leer, wird allerdings auch nicht initialisiert. Das führt mit "use warnings" in Zeile 13 dann zu ner Warnung (vermute ich). Sofern du %hash nicht veränderst, wär da das einfachste wohl:
      
      Code (perl): (dl )
      
      push @data_array, ($hash{$key} || []);
      
      Die abwechselnde Dereferenzieung und Referenzierung willst du vermutlich eh nicht - aber bau es doch lieber ganz um...

View all threads created 2011-12-22 15:56.