Spaltenwerte rechnen (Allgemeines zu Perl)

[thread]19755[/thread]

Spaltenwerte rechnen

Tags: perl5 CGI Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+10 replies
Newbie15

2015-08-10 01:48
User since
2015-08-10
5 articles
BenutzerIn
Hallo, ich bin Anfänger und komme gerade nicht weiter. Ich habe in einem Verzeichnis eine Menge von Dateien, deren Inhalt ich einlesen kann, und zwar so:
Code (perl): (dl )

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

use List::MoreUtils qw(each_arrayref); my @content = map { open(my $fh, '<', $_) or die $!; [<$fh>] } grep {-f} glob '*.csv' ; my $iterator = each_arrayref @content; while (my @file_lines = $iterator->()){ print @file_lines; }
Das gibt mir korrekt alle Daten aus den Dateien wieder, nach Positionen geordnet. Nun möchte ich aber nicht alle Zeilen in meinem Output haben, sondern nur eine Teilmenge. Welche Zeilen ausgegeben werden, möchte ich anhand von Werten in einer bestimmten Spalte bestimmen. Es sollen also nur Zeilen aufgelistet werden, von denen der Wert in einer bestimmten Spalte X eine bestimmte Bedingung erfüllt. Die anderen Zeilen sollen nicht eingelesen werden.

Ich finde dafür keine Lösung.

(edit betterworld: code-tags gefixt.)
Last edited: 2015-08-10 10:05:40 +0200 (CEST)
- +8 replies
- betterworld
  
  2015-08-10 10:20
  
  User since
  2003-08-21
  2613 articles
  ModeratorIn
  
  Wo genau liegt das Probleme? Diesen relative komplexen Programm-Ablauf hast Du ja durchaus hübsch umgesetzt. Wenn du sowas geschafft hast, sollte es doch eigentlich kein Problem sein, das "print" noch in einen entsprechenden if-Block zu bauen.
  
  Die Bedingung von dem if-Block kann man dann entweder mit Regexes bzw. einfachen String-Operationen machen, oder, wenn das CSV komplexer ist, würde sich ein entsprechendes CPAN-Modul anbieten, um zunächst das CSV zu parsen.
  
  Also zeig mal einen Versuch, der nicht funktioniert, dann können wir den Fehler finden.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +7 replies
  - Newbie15
    
    2015-08-10 12:42
    
    User since
    2015-08-10
    5 articles
    BenutzerIn
    
    Das mit dem if-Block ist mir klar, aber ich komme mit den Spalten nicht zurecht. Ich weiß nicht, wie ich die Werte in der Spalte X einbauen kann. Wenn ich das weiß, kriege ich auch den Rest hin, denke ich.
    - +6 replies
    - Linuxer
      
      2015-08-10 13:55
      
      User since
      2006-01-27
      3834 articles
      HausmeisterIn
      
      Mit split() kannst Du Strings zerteilen; schau Dir mal perlfunc split an.
      
      Alternativ könntest Du auch Text::CSV verwenden, um die CSV-Daten zu verarbeiten...
      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!
      - +5 replies
      - Newbie15
        
        2015-08-10 23:43
        
        User since
        2015-08-10
        5 articles
        BenutzerIn
        
        Ich hab stundenlang probiert, aber immer noch keine richtige Lösung. Ich bin zu dem Code hier gekommen, aber das rechnet nicht richtig, sondern zeigt mir immer noch alle Zeilen an. Außerdem kommt mein Arbeitsspeicher hier langsam an seine Grenzen:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        while (my $line = <$FILE>) { my @columns = split(/\t/, $line); if($columns[6] <= 40) { print "$columns[0]$columns[1]$columns[2]$columns[3]$columns[4]$columns[5]$columns[6]$columns[7]"; } else {next; }
        
        In einer bestimmten Spalte stehen Zahlenwerte, und ich möchte nur die Zeilen mit print ausgeben, die gleich oder kleiner eines bestimmten Wertes sind. Funktioniert mit dem Code aber nicht.
        Last edited: 2015-08-11 15:19:49 +0200 (CEST)
        
        +4 replies
        
        charly54
        
        2015-08-11 02:06
        
        User since
        2015-04-24
        10 articles
        BenutzerIn
        
        Da keine Daten vorhanden sind, habe ich mal welche erfunden und den Code daran angepasst.
        Die beiden auskommentierten "print"-Zeilen (7 und 9), kannst Du auch aktiv schalten, um den Inhalt der Variablen anzeigen zu lassen und Dir damit die Fehlersuche erleichtern.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        #!/usr/bin/perl use strict; use warnings; while (<DATA>) { #print "$_" ; my @columns = split(/\t/, $_); #print "$columns[6]\n"; if($columns[6] <= 70){ print "$columns[0]$columns[1]$columns[2]$columns[3]$columns[4]$columns[5]$columns[6]$columns[7]"; } } __DATA__ 100 200 300 400 500 600 700 800 11 222 333 50 54 60 70 90 11 22 33 44 55 66 77 88
        
        Augenblicklich wird nur die mittlere Datenzeile ausgegeben.
        
        Viel Erfolg & Gruß,
        charly54
        
        +3 replies
        
        Newbie15
        
        2015-08-11 18:09
        
        User since
        2015-08-10
        5 articles
        BenutzerIn
        
        Vielen Dank für alle Hilfen, es meldet keinen Fehler mehr. Allerdings funktioniert es trotzdem nicht. Es gibt eine Fehlermeldung, der Speicher meines Macbooks würde nicht ausreichen. Der Datensatz ist ziemlich riesig. Von daher kann ich die Funktionsfähigkeit des Skripts nicht testen :-(
        
        Newbie15
        
        2015-08-11 18:21
        
        User since
        2015-08-10
        5 articles
        BenutzerIn
        
        Das Skript funktioniert bis
        
        Code: (dl )
        
        1 2
        
        while (<DATA>) { print "$_" ;
        
        Es wird dann der komplette Datensatz in einer out-log-Datei angezeigt (ich nutze TextWrangler). Aber sobald das split kommt, hängt es sich auf und meldet zu wenig Arbeitsspeicher.
        
        hlubenow
        
        2015-08-11 19:15
        
        User since
        2009-02-22
        857 articles
        BenutzerIn
        
        2015-08-11T16:09:29 Newbie15
        Es gibt eine Fehlermeldung, der Speicher meines Macbooks würde nicht ausreichen. Der Datensatz ist ziemlich riesig.
        
        Liest Du aus einer großen Datei, es sieht hier
        
        Code (perl): (dl )
        
        open(my $fh, '<', $_) or die $!;
        
        so aus. Dann probier' doch mal Tie::File. Das packt Dir den Inhalt einer Datei in ein Array, ohne daß es bei großen Dateien zu Speicherproblemen kommt. Frag' mich nicht, wie es das macht. :)
- GwenDragon
  
  2015-08-11 18:17
  
  User since
  2005-01-17
  14381 articles
  Admin1
  
  Verschoben von Perl/CGI nach Allgemeines zu Perl
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2015-08-10 01:48.