Wie Multi-Dimensionales Array erstellen (Allgemeines zu Perl)

[thread]15801[/thread]

Wie Multi-Dimensionales Array erstellen

Leser: 20

Articles: hide open all | hide show old branches

+11 replies
kimmy

2011-01-05 10:54

User since
2010-09-10
87 Artikel
BenutzerIn

Hallo allerseits!

ich habe z.B. folgende Datei.

A B C D
1 a 3 abc
4 b 4.5 xyz
3 2c 9 df

Die Anzahl von Zeilen und Spalten sind beliebig. Alle Spalten wurden durch TAB aufgeteilt.
Und ich hätte gern wie folgt machen:
@A = (1, 4, 3);
@B = ('a', 'b', '2c');
@C = (3, '4.5', 9);
@D = ('abc', 'xyz', 'df');

Damit hätte ich gern wissen, das längste Element von jeden Arrays(Spalten) und die Typen von jeden Arrays(Spalten), wie z.B. int, double, text, usw.
Könnt jemand mir helfen und sagen, wie man das macht?

Vielen Dank im voraus.
Last edited: 2011-01-05 11:39:44 +0100 (CET)
- +10 replies
- bianca
  
  2011-01-05 11:37
  
  User since
  2009-09-13
  6978 Artikel
  BenutzerIn
  
  Die Anzahl Elemente eines Arrays bekommt man mit scalar(@array) raus.
  Den Typ musst Du nach eigenen Regeln selbst ermitteln, da Perl diese Unterscheidung nicht kennt.
  In Perl gibt es nur Nummerisch und String.
  10 print "Hallo"
  20 goto 10
  - +9 replies
  - kimmy
    
    2011-01-05 11:42
    
    User since
    2010-09-10
    87 Artikel
    BenutzerIn
    
    Danke, aber wie kann ich von der Datei solche Arrays erstellen?
    @A = (1, 4, 3);
    @B = ('a', 'b', '2c');
    @C = (3, '4.5', 9);
    @D = ('abc', 'xyz', 'df');
    - bianca
      
      2011-01-05 11:46
      
      User since
      2009-09-13
      6978 Artikel
      BenutzerIn
      
      Indem Du sie einliest und die Werte mittels split() in das Array holst.
      Mit diesen Stichworten wirst Du über Google haufenweise Beispiele für soetwas finden.
      10 print "Hallo"
      20 goto 10
    - +7 replies
    - topeg
      
      2011-01-05 11:50
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      so wie du es dir vorstellst sollte man es nicht machen. Erzeuge ein multideimeninales Array:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $file='tst.csv'; my @data; open(my $fh, '<', $file) or die("error open $file ($!)\n"); while(my $line=<$fh>) { chomp($line); my @elements=split(/\s+/,$line); push(@data,\@elements); } close($fh); print Dumper(\@data);
      
      über die Forensuche findest du eine Menge anderer Beispiele und Lösungen. Dein problem taucht alle paar Wochen einmal auf.
      
      EDIT:
      Schau mal hier die Suche:
      http://www.perl-community.de/bat/poard/search?wher...
      Last edited: 2011-01-05 12:05:42 +0100 (CET)
      - +6 replies
      - kimmy
        
        2011-01-05 12:08
        
        User since
        2010-09-10
        87 Artikel
        BenutzerIn
        
        Hallo, danke für Antwort. Ich habe mir auch ähnlich gedacht.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        my (@header, @inhalt); while(<>){ chomp; if(1..1){ @header = split(/\t/,$_); } else{ @inhalt = split(/\t/,$_); } }
        
        Aber meine Frage ist wie kann ich @header und @inhalt verbinden?
        Ist es vielleicht möglich, wie z. B.
        
        Code: (dl )
        
        1 2 3
        
        for(my $i=0; $i<=$#header; $i++){ @header[$i] = $inhalt[$i]; }
        
        +5 replies
        
        topeg
        
        2011-01-05 12:16
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        2011-01-05T11:08:37 kimmy
        Aber meine Frage ist wie kann ich @header und @inhalt verbinden?
        
        Nein deine Frage war:
        
        2011-01-05T10:42:43 kimmy
        wie kann ich von der Datei solche Arrays erstellen?
        @A = (1, 4, 3);
        @B = ('a', 'b', '2c');
        @C = (3, '4.5', 9);
        @D = ('abc', 'xyz', 'df');
        
        Deine jetzige Frage ist eine neue, und ich habe keine Ahnung was der "Header" sein soll, oder wie er in der Datei steht. Ich habe auch kein Ahnung was du eigentlich genau machen willst.
        Versuch mal dein Problem im ganzen zu formulieren und es in Teilprobleme zu zerlegen, die wir dann gemeinsam lösen können.
        
        +4 replies
        
        kimmy
        
        2011-01-05 12:36
        
        User since
        2010-09-10
        87 Artikel
        BenutzerIn
        
        Sorry für Verwirrung,
        
        meine Input-Datei sieht so aus:
        A B C D
        1 a 3 abc
        4 b 4.5 xyz
        3 2c 9 df
        
        mit "HEADER" habe ich gemeint, der Titel(-zeile) von Spalten, und zwar,
        @header = ('A', 'B', 'C', 'D');
        Und ich möchte jeden Spalt in einem einzelnen Array speichern.
        @A = (1, 4, 3);
        @B = ('a', 'b', '2c');
        @C = (3, '4.5', 9);
        @D = ('abc', 'xyz', 'df');
        Deswegen habe ich gefragt, ob ich die zwei Arrays @header und @inhalt verbinden kann.
        
        +2 replies
        
        topeg
        
        2011-01-05 13:04
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $file='test.txt'; open(my $fh, '<', $file) or die("error open $file ($!)\n"); my $first=<$fh>; chomp($first); my @header=split(/\t/,$first); my @inhalt; while(my $line=<$fh>) { chomp($line); my @elements=split(/\t/,$line); push(@{$inhalt[$_]},shift(@elements)) for(0..$#header) } close($fh); print Dumper(\@inhalt);
        
        Das sortiert die Daten nach den Spalten, die Anzahl der Spalten gibt die Länge des Arrays @header vor.
        
        kimmy
        
        2011-01-05 13:34
        
        User since
        2010-09-10
        87 Artikel
        BenutzerIn
        
        vielen Dank.
        
        Taulmarill
        
        2011-01-05 13:16
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Ich würde nicht für jede Spalte einen Array anlegen, sondern das in einem HoA (Hash of Arrays) ablegen.
        
        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
        
        use strict; use warnings; use Data::Dumper; my %table; my @header = split /\s+/, scalar( <DATA> ); chomp $header[-1]; while ( my $line = <DATA> ) { chomp $line; my @fields = split /\s+/, $line; for my $col ( $[ .. $#header ) { push @{ $table{$header[$col]} }, $fields[$col]; } } print Dumper \%table; __DATA__ A B C D 1 a 3 abc 4 b 4.5 xyz 3 2c 9 df
        
        Die Datenstruktur sieht dann so aus:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
        
        $VAR1 = { 'A' => [ '1', '4', '3' ], 'D' => [ 'abc', 'xyz', 'df' ], 'C' => [ '3', '4.5', '9' ], 'B' => [ 'a', 'b', '2c' ] };
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View all threads created 2011-01-05 10:54.