Daten in Array mit Spalten schreiben (Allgemeines zu Perl)

[thread]17464[/thread]

Daten in Array mit Spalten schreiben

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+10 replies
Gast ElPresidente

2012-06-05 18:59

Hi.
Ich habe eine Textdatei, die x,y und z-Koordinaten enthält. Diese Koordinaten möchte ich aus der Textdatei auslesen und in ein Array schreiben. Das Array sollte jedoch spaltenweise, wie folgt aufgebaut sein:

z, x, y
z, x, y
.
.
.

Da ich später das Array nach den z-Werten noch sortieren möchte.

Mein Perl Skript liest mir die Koordinaten aus, jedoch bekomme ich das mit den Spalten im Array nicht hin.

Gruß elpresidente
- FIFO
  
  2012-06-05 19:07
  
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  
  Hi, gibt es Code?
  
  Falls Du die Werte zeilenweise in ein Array einliest (z.B. mit einem split(), kannst Du die Reihenfolge mit reverse() umdrehen.
  
  Edit Nicht so gut hingesehen, Du willst z, x, y. Dann kannst Du u.a. mit einem Array-Slice arbeiten:
  @array_zxy = @array_xyz[2,0,1]
  oder die Werte im Array Plätze tauschen lassen:
  @array[0,2] = @array[2,0]
  oder mit einem Hash arbeiten ...
  
  Editiert von FIFO: brainstorm
  Last edited: 2012-06-05 19:14:10 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- +7 replies
- rosti
  
  2012-06-05 19:17
  User since
  2011-03-19
  3194 Artikel
  BenutzerIn
  Idee: Array ja. Spaltenweise nein. Was es sein könnte ist ein sog. Slice, der sieht so aus:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  # Dumper Slice $VAR1 = [ { 'Length' => '1.78', 'Age' => '55', 'Name' => 'Rolf', 'Weigth' => '90' }, { 'Length' => '1.82', 'Age' => '53', 'Name' => 'Otto', 'Weigth' => '82' } ];
  
  ---> Ein Slice lässt sich besser verarbeiten, als ein gewöhnliches Array, o.g. Slice ist ein Array mit Hash-Referenzen, d.h., innerhalb eines jeden Array-Elements sind die Felder namentlich ansprechbar. Das gilt natürlich in erster Linie für das Sortieren. Freilich kannst Du auch einen Array-Index dazu nehmen, aber der ist nur eine Nummer und wenn Du den Code später wieder mal aufnehmen musst, gehts Grübeln los "welches Feld steht in welchem Index...".
  
  --Rosti
  
  http://rolfrost.de/map/perlbase/csv_names.html
  
  Edit/PS:
  
  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
  
  my $slice = [ { 'Length' => '1.78', 'Age' => '55', 'Name' => 'Rolf', 'Weigth' => '90' }, { 'Length' => '1.82', 'Age' => '53', 'Name' => 'Otto', 'Weigth' => '82' } ]; # Sortierte Ausgabe nach Name: foreach my $r( sort{ $a->{Name} cmp $b->{Name} }@$slice){ printf("Name => %s, Alter => %u\n", $r->{Name}, $r->{Age}); } #Name => Otto, Alter => 53 #Name => Rolf, Alter => 55
  
  Last edited: 2012-06-05 19:26:55 +0200 (CEST)
  - +4 replies
  - pq
    
    2012-06-05 20:01
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    ein slice ist ein zugriff auf mehrere elemente eines arrays oder hashes:
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my @part = @array[2, 5, 23..42]; my @values = @hash{qw/ foo bar /}; # gleichbedeutend mit my @part = ($array[2], $array[5], $array[23], usw., $array[42]); my @values = ($hash{foo}, $hash{bar});
    
    ein slice ist kein datentyp oder eine bestimmte art von datenstruktur, sondern im prinzip nur eine praktischere notation des komma-operators.
    
    dein dumper zeigt kein slice, sondern einfach eine arrayref mit hashreferenzen als elemente.
    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
    - +3 replies
    - rosti
      
      2012-06-05 20:42
      
      User since
      2011-03-19
      3194 Artikel
      BenutzerIn
      
      Der Begriff Slice für ein Array mit Hash-Referenzen ist in der Perldoc DBI zu fetchall_arrayref bzw. selectall_arrayref gebräuchlich.
      - +2 replies
      - Linuxer
        
        2012-06-05 22:23
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Bedingt; der Begriff Slice wird dort für die Angabe einer Array-Referenz mit Integer-Werten verwendet, um festzulegen, welche Spalten man eigentlich haben will, damit existiert schon mal kein fester Bezug zwischen dem Begriff Slice und einem Array-of-Hashes.
        
        Slice wird dort genau dafür verwendet, wie es pq erklärt hat. Um eben nur eine Teilmenge aus der Ergebnismenge des Statements zu holen.
        
        So wie mit @array[-2,-1] eben die letzten beiden Elemente eines Array abgreifen kann, kann man eben mit $sth->fetchall_arrayref([-2,-1]) die letzten beiden Spalten einer "Ergebniszeile" abfragen.
        Da das [-2,-1] in beiden Fällen gleich aussieht und sinngemäß ähnliches macht, hat man es wohl in der DBI-Perldoc auch Slice genannt, obwohl es, so wie es angegeben wird, eine Array-Referenz ist.
        
        perldoc DBI
        ...
        fetchall_arrayref
        ...
        For example, to fetch just the first column of every row:
        
        $tbl_ary_ref = $sth->fetchall_arrayref([0]);
        
        To fetch the second to last and last column of every row:
        
        $tbl_ary_ref = $sth->fetchall_arrayref([-2,-1]);
        
        Analog eben für benannte Spalten, wo man bei fetchall_arrayref() eine Hash-Referenz benutzen kann.
        Einen Array-of-Hashes habe ich jetzt auf die Schnelle nicht gesehen.
        
        Slice ist grundlegend jedenfalls kein anderer Begriff für eine Datenstruktur wie einen Array-of-Hashes.
        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!
        
        rosti
        
        2012-06-05 22:30
        
        User since
        2011-03-19
        3194 Artikel
        BenutzerIn
        
        Quote
        Einen Array-of-Hashes habe ich jetzt auf die Schnelle nicht gesehen.
        
        Ich arbeite täglich damit.
        
        Code: (dl )
        
        1 2
        
        selectall_arrayref($statement, {Slice => {}}); fetchall_arrayref({});
        
        --Rosti
  - +2 replies
  - Gast ElPresidente
    
    2012-06-05 20:26
    Danke schonmal für die Antworten.
    Sorry, das ich mich so schlecht am Anfang ausgedrückt habe. Hatte vorher wenig Zeit.
    
    Hier ist ein Ausschnitt aus der besagten Textdatei:
    
    Quote
    334SOL OW15814 3.426 1.939 7.248 -0.3619 -0.3902 -0.2208
    334SOL HW115815 3.502 1.899 7.293 -0.9124 0.8057 1.9164
    334SOL HW215816 3.406 1.878 7.177 1.7875 -1.4072 -0.0461
    
    Ich lese diese Textdatei zeilenweise so ein:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    #!/usr/bin/perl open (IN,"<test.gro") or die "Die Datei wurde nicht gefunden\n"; while (<IN>) { if ($_ =~ m/SOL/) $zw = substr($_,39,5); $xw = substr($_,23,5); $yw = substr($_,31,5); } close(IN);
    
    und möchte die x,y,z-Koordinaten in einem Array abspeichern nach diesem Schema:
    
    z1 x1 y1
    z2 x2 y2
    z3 x3 y3
    
    Daraufhin möchte ich die Zeile mit dem niedrigsten z-Wert an den Anfang des Arrays stellen. Also z.B. ist z3 < z1 und z1 < z2, dann soll mein Array so aussehen:
    
    z3 x3 y3
    z1 x1 y1
    z2 x2 y2
    
    Ich hoffe ihr könnt mir weiterhelfen.
    Last edited: 2012-06-05 21:05:50 +0200 (CEST)
    - topeg
      
      2012-06-05 21:25
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Deine Lösung mit substr ist nicht zuverlässig. Soweit ich sehe sind die Anzahl der Zeichen vor den gesuchten Werten nicht Konstant. Besser ist es an den Leerzeichen zu Trennen und die Werte dann auszulesen.
      Günstig ist es beim Öffnen einer Datei auszugeben warum das Öffnen fehlschlug. Das steht in $!.
      Weiterhin sei empfohlen strict und warnings zu benutzen. Damit ist es leichter Fehler zu finden.
      Außerdem sollte man das dreiparameterige open nutzen damit umgeht man ein paar Probleme.
      
      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
      
      #!/usr/bin/perl use strict; use warnings; my $file='test.gro'; my @koordinates; open(my $fh, '<', $file) or die("Die Datei $file konnte nicht geöffnet werden ($!)\n"); while($line=<$fh>) { # nächste Zeile wenn $line kein "SOL" enthält next unless($line=~/SOL/); # Zeilenumbruch am Ende entfernen chomp($line); # an den Leerzeichen splitten my @values=split(/\s+/,$line); # werte zuweisen my $xw=$values[2]; my $yw=$values[3]; my $zw=$values[4]; # zweidimensionales Array erzeugen # "[ ... ]" ist ein anonymes Array push(@koordinates,[$xw,$yw,$zw]); } close($fh); # nach Dritter Spalte Sortieren. my @sorted=sort{$a->[2] <=> $b->[2]}@koordiantes; # Ausgabe print join(',',@$_)."\n" for(@sorted); # auf einen Wert zugreifen: print "Erste Zeile Ditte Spalte: ".$koordiantes[0][2]."\n";
- topeg
  
  2012-06-05 20:01
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Ich weiß nicht wie du die Daten eingelesen hast. Davon hängt es ab wie man die Daten sortieren kann. Hier ein Beispiel, wie man es machen kann. Ich gehe davon aus, das die Koordinaten Zeilenweise als "x,y,z" in der Datei abgelegt sind.
  
  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
  
  #!/usr/bin/perl use strict; use warnings; my $file='test.txt'; my @koordinates; open(my $fh, '<', $file) or die("Error open $file ($!)\n"); while($line=<$fh>) { # angenommen die Koordinaten stehen als "x,y,z" in der Datei. my @values=split(/\s*,\s*/,$line); push(@koordinates,\@values); } close($fh); # nach Dritter Spalte Sortieren. my @sorted=sort{$a->[2] <=> $b->[2]}@koordiantes; # Ausgabe print join(',',@$_)."\n" for(@sorted);

View all threads created 2012-06-05 18:59.