Datei einlesen und aufteilen (Allgemeines zu Perl)

[thread]19623[/thread]

Datei einlesen und aufteilen

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+13 replies
Kurtosis

2015-04-20 14:17

User since
2014-11-27
7 Artikel
BenutzerIn

Hallo,

ich habe schon einige Seiten zu meinem Anliegen im Internet gelesen, aber leider habe ich mein Problem noch nicht lösen können.
In meinem Programm möchte ich eine Textdatei einlesen, die aus beispielsweise 101 Zeilen und 4 Spalten besteht, wobei die Spalten jeweils durch einen Tab getrennt wurden. In der ersten Zeile steht lediglich die Bezeichnung der verschiedenen Spalten, also z.B. "x y z W". Mein Ziel ist es nun, jeweils vier Arrays zu erstellen, also @x, @y, @z und @W, wobei jeder Array die 100 Zahlen der jeweiligen Spalte unter der jeweiligen Bezeichnung enthalten, d.h. der Array @x soll das x aus der ersten Zeile nicht enthalten.
Nun, wie gehe ich da am besten vor? Ich wäre für ein paar konkrete Tipps und Hilfestellungen dankbar, da ich mittlerweile schon einige Zeit damit erfolglos verbracht habe. Wäre es besser, die Textdatei erstmal komplett in einen Array einzulesen oder sollte man die verschiedenen Arrays, die ich am Ende gefüllt haben möchte, jeweils einzeln aus der Textdatei füllen?

Vielen Dank schon mal!
- +12 replies
- GwenDragon
  
  2015-04-20 14:47
  User since
  2005-01-17
  14787 Artikel
  Admin1
  Die Daten sehen so aus?
  
  Code: (dl )
  
  1 2 3
  
  x y z W 1 22 19 ABC 9 1 22 XYZ
  
  Dann so:
  
  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
  
  use strict; use warnings; use 5.010; my (@x, @y, @z, @W); # Arrays für Daten my $file_name = 'test.dat'; # Dateiname der Datendatei # Datei öffnen open my $fh, '<', $filename or die "Datei $file_name: $!"; # erste Zeile wegwerfen, da Header my $line = <$fh>; # weitere Zeilen einlesen while ( $line = <$fh> ) { chomp $line; # unwichtiges Zeilenende entfernen my ($x, $y, $z, $W) = split /\t/,$line; # In einzelne Daten aufsplitten # einzelne Daten in Arrays speichern push @x,$x//''; push @y,$y//''; push @z,$z//''; push @W,$W//''; } # Datei schließen close $fh;
  
  Editiert von GwenDragon: chomp hinzu
  Last edited: 2015-04-20 15:19:41 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +11 replies
  - Kurtosis
    
    2015-04-20 15:07
    
    User since
    2014-11-27
    7 Artikel
    BenutzerIn
    
    @GwenDragon: Hey, vielen Dank!! Ich habe gerade mal testweise den Array @x ausgeben lassen. Leider hat enthält er das x aus der ersten Zeile auch noch. Nach deinen Beispieldaten hätte ich es gerne so, dass @x nur 1 und 9 enthält. Wie muss ich das denn nun noch anpassen?
    - +10 replies
    - Raubtier
      
      2015-04-20 15:14
      
      User since
      2012-05-04
      1077 Artikel
      BenutzerIn
      
      Gwen überspringt doch mit
      
      Code (perl): (dl )
      
      my $line = <$fh>;
      
      die erste Zeile. Kann also nicht sein.
      
      Ich hätte noch einen Kommentar zu @W: ich würde ein chomp auf die $line machen, damit die Zeilenenden weg sind.
      - +8 replies
      - Kurtosis
        
        2015-04-20 15:20
        
        User since
        2014-11-27
        7 Artikel
        BenutzerIn
        
        Ich habe jetzt mit
        
        @x = splice(@x,1);
        
        die Bezeichnung aus der ersten Zeile entfernen können. Ich weiß jetzt nicht, wie "elegant" das ist, aber es klappt.
        
        +6 replies
        
        GwenDragon
        
        2015-04-20 15:26
        
        User since
        2005-01-17
        14787 Artikel
        Admin1
        
        So ganz verstanden habe ich nicht, welche Daten aus welchen Datenzeilen in welchem Array nicht vorhanden sein dürfen.
        Das mit der Headerzeile ist ja klar.
        Aber wieso darf denn $x[0] nicht den Wert 1 aus Datenzeile 2 haben? Und wo werden dann andere Werte noch weggelassen?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        Kurtosis
        
        2015-04-20 15:31
        
        User since
        2014-11-27
        7 Artikel
        BenutzerIn
        
        Ich möchte, dass die Arrays nach deinen Beispieldaten letztlich folgendermaßen aussehen:
        @x = (1, 9)
        @y = (22, 1)
        @z = (19, 22)
        @W = (ABC, XYZ)
        
        Linuxer
        
        2015-04-20 15:48
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Also hier sehen die Arrays so aus, wenn ich GwenDragons Code verwende.
        Welchen Code führst Du denn aus, dass da andere Ergebnisse rauskommen?
        
        Meine Kontrollausgabe schaut so aus:
        
        Code: (dl )
        
        1 2 3 4
        
        x: 1,9 y: 22,1 z: 19,22 W: ABC,XYZ
        
        Last edited: 2015-04-20 16:25:48 +0200 (CEST)
        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!
        
        +3 replies
        
        GwenDragon
        
        2015-04-20 15:51
        
        User since
        2005-01-17
        14787 Artikel
        Admin1
        
        Tun sie doch.
        
        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
        
        use feature qw(say); my $fh = *DATA; my (@x, @y, @z, @W); my $line = <$fh>; while ( $line = <$fh> ) { chomp $line; my ($x, $y, $z, $W) = split /\t/,$line; # einzelne Daten in Arrays speichern push @x,$x//''; push @y,$y//''; push @z,$z//''; push @W,$W//''; } say $_ for (@x); say $_ for (@y); say $_ for (@z); say $_ for (@W); __DATA__ x y z W 1 22 19 ABC 9 1 22 XYZ
        
        ergibt:
        1 9 22 1 19 22 ABC XYZ
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Gast Jörn
        
        2015-04-21 12:44
        
        Ich würde das /\t/ durch /\s+/ im Split-Befehl ersetzen, da das sowohl bei Leerzeichen als auch bei Tabulatoren funktioniert.
        
        Was macht denn das //'' im push-Befehl?
        Last edited: 2015-04-21 12:51:48 +0200 (CEST)
        
        Raubtier
        
        2015-04-21 12:56
        
        User since
        2012-05-04
        1077 Artikel
        BenutzerIn
        
        Guest Jörn
        Ich würde das /\t/ durch /\s+/ im Split-Befehl ersetzen, da das sowohl bei Leerzeichen als auch bei Tabulatoren funktioniert.
        
        Aber die Datei ist laut Beschreibung eine tabulatorgetrennte Datei. Ergo wäre es falsch, \s+ zu verwenden. Was ist, wenn Leerzeichen in einem Feld vorkommen oder wenn ein Feld leer ist?
        
        Quote
        Was macht denn das //'' im push-Befehl?
        
        Das ist logisches denfiniert-oder: http://perldoc.perl.org/perlop.html#Logical-Define...
        
        hlubenow
        
        2015-04-20 16:55
        
        User since
        2009-02-22
        876 Artikel
        BenutzerIn
        
        2015-04-20T13:20:15 Kurtosis
        Ich habe jetzt mit
        
        @x = splice(@x,1);
        
        die Bezeichnung aus der ersten Zeile entfernen können.
        
        Um am Ende eines Arrays ein Element hinzuzufügen und zu entfernen, benutzt man am besten push() und pop().
        Um am Anfang eines Arrays ein Element hinzuzufügen und zu entfernen, entsprechend unshift() und shift().
        In Deinem Fall also
        
        Code (perl): (dl )
        
        shift(@x);
        
        splice() ist auch nicht falsch, wird aber meist nur für Manipulationen in der Mitte verwendet.
      - GwenDragon
        
        2015-04-20 15:20
        
        User since
        2005-01-17
        14787 Artikel
        Admin1
        
        Ja, chomp oben eingesetzt.
        Das hatte ich in der Tippschnelle vergessen ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2015-04-20 14:17.