Datei einlesen - erste Zeile wird ignoriert (gelöst) (Allgemeines zu Perl)

[thread]15521[/thread]

Datei einlesen - erste Zeile wird ignoriert [gelöst]

Leser: 26

Articles: hide open all | hide show old branches

+12 replies
pernox77

2010-10-11 12:19
User since
2010-10-03
11 Artikel
BenutzerIn
Hallo zusammen,

ich möchte eine Textdatei einlesen. Ich brauche 2 bestimmte Zeilen (Nr. 10 und 11) für einen Vergleich. Das Abfragen der interessanten Zeilen habe ich nun so gemacht:
Code: (dl )

1 2 3 4 5 6 7

open(IN,"<$path")|| print "File konnte nicht geöffnet werden: $!"; while(<IN>) { @file_rows = <IN>; print $file_rows[9]; print $file_rows[10]; }
Dabei fiel mir auf, dass die Anzeige nicht wie erwartet war. Es wurden mir die Zeilen Nummer 11 und 12 ausgegeben.
Dann habe ich gemerkt, dass scheinbar die erste Zeile (also $file_rows[0]) ignoriert wird. Es wird mir nämlich die 2. Zeile ausgegeben.
Soweit ich das sehe, wird keine weitere Zeile ignoriert. Es gibt aber Zeilen, die das gleiche Muster haben wie diese erste Zeile. Ich habe auch noch mal manuell einen Zeilenumbruch gesetzt, hatte aber keine Wirkung.
Irgendwelche Ideen oder Hinweise?

Danke
Pernox
- torsten
  
  2010-10-11 12:29
  
  User since
  2010-08-16
  45 Artikel
  BenutzerIn
  
  mach die Schleife drumrum weg. Damit liest Du schon die erste Zeile.
  @file_rows = <IN>; liest dann den Rest ein. <> im List-Kontext liest bis zum EOF.
- bianca
  
  2010-10-11 12:38
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  Bessere Syntax:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl -w use strict; use warnings; use diagnostics; my $path = 'test.txt'; if (open my $file,"<$path") { my @file_rows = <$file>; if (scalar @file_rows) { print $file_rows[9]; print $file_rows[10]; } else { die "Datei ist leer\n" } } else { die $! }
  
  Last edited: 2010-10-11 12:39:44 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
- +9 replies
- pq
  
  2010-10-11 13:21
  User since
  2003-08-04
  12208 Artikel
  Admin1
  warum bei dir die erste zeile "ignoriert" wird, wurde dir ja schon gesagt.
  hier der code in modernem perl:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  use strict; use warnings; open my $fh, "<", $path or die "Konnte $path nicht öffnen: $!"; my @lines = <$fh>; # liest alle zeilen auf einmal print @lines[9, 10]; # array slice der elemente 9 und 10
  
  zu dem my $fh: WasIsteinLexikalischerFileHandle
  http://reneeb-perlblog.blogspot.com/2009/09/versch...
  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
  - +7 replies
  - pernox77
    
    2010-10-11 17:47
    User since
    2010-10-03
    11 Artikel
    BenutzerIn
    
    2010-10-11T11:21:52 pq
    warum bei dir die erste zeile "ignoriert" wird, wurde dir ja schon gesagt.
    
    Vielen Dank für die wertvollen Hinweise.
    
    Code (perl): (dl )
    
    my @lines = <$fh>; # liest alle zeilen auf einmal
    
    Kann bzw. sollte ich das noch optimieren? Ich brauche wirklich nur diese beiden Zeilen und die Dateien werden jeweils immer ca. 20.000 Zeilen haben.
    Danke.
    Pernox
    - +4 replies
    - Gast wer
      
      2010-10-11 18:01
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      use strict; use warnings; open my $fh, "<", $path or die "Konnte $path nicht öffnen: $!"; while(my $line=<$fh>) { print $line if($.==9); print $line if($.==10); last if($.>10); }
      
      Last edited: 2010-10-11 18:12:25 +0200 (CEST)
      - +3 replies
      - pernox77
        
        2010-10-11 20:44
        
        User since
        2010-10-03
        11 Artikel
        BenutzerIn
        
        Guest wer
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        while(my $line=<$fh>) { print $line if($.==9); print $line if($.==10); last if($.>10); }
        
        Hab ich ausprobiert, offensichtlich ist die Zählweise hierbei nicht array-like!? Also müsste ich es so angeben, wenn ich die Zeilen 10 und 11 haben will:
        
        Code (perl): (dl )
        
        1 2
        
        print $line if($.==10); print $line if($.==11);
        
        Stimmt das?
        
        Linuxer
        
        2010-10-11 22:10
        
        User since
        2006-01-27
        3872 Artikel
        HausmeisterIn
        
        $. ist gemäß perldoc perlvar ein Alias auf den Zähler der gelesenen Zeilen eines Filehandles.
        Deine Vermutung ist korrekt.
        
        edit: s/daher //;
        Last edited: 2010-10-11 22:29:12 +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!
        
        Gast wer
        
        2010-10-12 00:48
        
        $. zeigt an wie viele Zeilen gelesen wurden und nicht den "Platz" in der Datei. Wenn keine Zeile gelesen wurde 0. Eine Zeile gelesen 1 usw.
        Last edited: 2010-10-12 09:02:44 +0200 (CEST)
    - +2 replies
    - bianca
      
      2010-10-11 19:55
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      2010-10-11T15:47:15 pernox77
      Kann bzw. sollte ich das noch optimieren? Ich brauche wirklich nur diese beiden Zeilen und die Dateien werden jeweils immer ca. 20.000 Zeilen haben.
      
      Kommt ein bisschen auf den Dateiaufbau und das OS an. Man kann mittels seek() auch den Zeiger einer geöffneten Datei setzen und so quasi die Nadel auf einen bestimmten Punkt der Platte festlegen, um ab dort zu lesen.
      
      Edit: Und mit sysread() kann man obendrein auch eine bestimmte Anzahl Zeichen einlesen. Je nach dem ist das vielleicht auch sinnvoll für Deine Anwendung. Weiß ja nicht, ob der Zeilentrenner unbedingt das nonplusultra in Deiner Anwendung ist. Damit könnte man vlt. das Abfragespiel wie von Gast wer vorgeschlagen umgehen.
      Last edited: 2010-10-11 19:58:19 +0200 (CEST)
      10 print "Hallo"
      20 goto 10
      - pernox77
        
        2010-10-11 21:30
        
        User since
        2010-10-03
        11 Artikel
        BenutzerIn
        
        2010-10-11T17:55:13 bianca
        Man kann mittels seek() auch den Zeiger einer geöffneten Datei setzen ......
        Und mit sysread() kann man obendrein auch eine bestimmte Anzahl Zeichen einlesen. Je nach dem ist das vielleicht auch sinnvoll für Deine Anwendung. Weiß ja nicht, ob der Zeilentrenner unbedingt das nonplusultra in Deiner Anwendung ist.
        
        Danke, interessante Alternativen. Aber ich kann wohl nicht zu 100% sicherstellen, dass die gesuchten Daten nicht doch mal weiter vorn oder hinten stehen. Ich glaube, die zeilenweise Suche passt auf meinen Fall besser. Dass die Daten in den richtigen Zeilen stehen, ist jedenfalls etwas sicherer.
  - moritz
    
    2010-10-11 22:18
    User since
    2007-05-11
    923 Artikel
    HausmeisterIn
    
    In Perl 6 kann man sowas machen, weil Listen "lazy" sein können, d.h. beim Zugriff auf das Element 10 werden die ersten 11 Zeilen gelesen (wenn sie noch nicht eingelesen wurden), und nicht mehr.
    
    Code: (dl )
    
    1 2 3 4
    
    use v6; my ($tenth, $eleventh) = open('README').lines.[9, 10]; say $tenth; say $eleventh;
    
    (Funktioniert mit Rakudo, und ist auch so "lazy", wie es sein sollte).
    Perl 6 - Perls Zukunft

View all threads created 2010-10-11 12:19.