einleseproblem (gelöst) (Allgemeines zu Perl)

[thread]15230[/thread]

einleseproblem [gelöst]

Leser: 22

Articles: hide open all | hide show old branches

+17 replies
lukastonner

2010-07-01 13:46
User since
2010-02-07
47 Artikel
BenutzerIn
Wieder mal ein Einleseproblem...
Ich versuche aus allen Ordnern (1231,1232.....) die sich darin befindenden
Dateien einzulesen.Die Dateinamen setzen sich aus den Ordnernamen und dem Datum zusammen 1231_07012010.txt. Ich möchte nun die Daten von heute und gestern (Zeitberechnung funktioniert) zusammen einlesen aber irgendwie bekomme ich die Daten nicht zu fassen.Der Pfad bei $filename ist sicherlich falsch gesetzt, sehe aber nicht wo ich den Fehler gemacht habe...hat jemand eine idee?
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

$ORDNER_DATEN=$ENV{'ORDNER_DATEN'}; # Pfad zu den Daten @STATION_NAMEN=("1231","1232","1233","1234","1235"); foreach (@STATION_NAMEN) { $stationsname=$_; @stationsdaten=(); ######## EINLESEN $filename=$ORDNER_DATEN . $stationsname ."/". $stationsname . "_$datum_heute.txt"; # $filename=$ORDNER_DATEN . $stationsname ."/". $stationsname . "_$datum_gestern.txt"; open(EINGANG,'<'.$filename ) || die "can't open $filename \n" ; @stationsdaten=<EINGANG>; close(EINGANG); }
Last edited: 2010-07-01 13:59:00 +0200 (CEST)
- +2 replies
- lukastonner
  
  2010-07-01 13:53
  
  User since
  2010-02-07
  47 Artikel
  BenutzerIn
  
  sorry, sehe gerade Zeile 15 ist doppelt....ein Fehler von mir
  - pq
    
    2010-07-01 13:54
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    dafür gibt es so einen button unter dem posting, der nennt sich "Editieren"...
    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
- +14 replies
- pq
  
  2010-07-01 14:01
  User since
  2003-08-04
  12208 Artikel
  Admin1
  2010-07-01T11:46:57 lukastonner
  aber irgendwie bekomme ich die Daten nicht zu fassen.
  
  was bedeutet das?
  kriegst du eine fehlermeldung beim open?
  kannst du ein bisschen debuggen und uns erzählen, wo genau etwas schiefläuft?
  
  hast du den code irgendwo geerbt und musst ihn jetzt pflegen? sieht etwas vorsintflutlich aus.
  hier mal etwas moderner:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  use strict; use warnings; use Data::Dumper; my $order_daten = $ENV{ORDNER_DATEN}; # Pfad zu den Daten my @stations_namen = ("1231","1232","1233","1234","1235"); foreach my $name (@stations_namen) { ######## EINLESEN my $filename = "$order_daten$name/${name}_$datum_heute.txt"; open my $eingang, '<', $filename or die "can't open $filename: $!\n" ; my @stationsdaten = <$eingang>; print Dumper \@stationsdaten; }
  
  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
  - +13 replies
  - lukastonner
    
    2010-07-01 14:42
    
    User since
    2010-02-07
    47 Artikel
    BenutzerIn
    
    ich hatte komischerweise keine fehlermeldung beim open. mit deiner methode fasst er schonmal die daten.vielen dank.- aber er liest sie mehrmals ein. wenn sich z.b. 7 Zeilen (Zeitschritte,Messwerte) in einer Datei befinden liest er auch 7 mal hintereinander die gesamte Datei ein??!?
    
    (du hast recht,- der code ist vorsintflutlich geerbt)
    - +12 replies
    - renee
      
      2010-07-01 15:02
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Zeig mal Deinen Code. Mit pq's Code wird eigentlich die Datei nur einmal eingelesen...
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +11 replies
      - lukastonner
        
        2010-07-01 15:13
        
        User since
        2010-02-07
        47 Artikel
        BenutzerIn
        
        war wieder mein fehler mit dem mehrfach einlesen,- nun klappts.... ich möchte noch die Daten von "gestern" reinschiessen. habe versucht den EINGANG 2 mal zu füttern, etwa so:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        my $order_daten = $ENV{ORDNER_DATEN}; # Pfad zu den Daten my @stations_namen = ("1231","1232","1233","1234","1235"); foreach my $name (@stations_namen) { ######## EINLESEN my $filename = "$order_daten$name/${name}_$datum_heute.txt"; my $filename2 = "$order_daten$name/${name}_$datum_gestern.txt"; open my $eingang, '<', $filename, $filename2 or die "can't open $filename: $!\n" ; my @stationsdaten = <$eingang>; print Dumper \@stationsdaten;
        
        funktioniert aber nicht.......
        
        +6 replies
        
        pq
        
        2010-07-01 15:20
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        open() öffnet *eine* datei.
        
        welches buch/welche doku benutzt du, die dir sagt, dass du einfach noch weitere dateinamen als argument übergeben kannst, die dann geöffnet werden? das ist jedenfalls falsch.
        
        was soll deiner meinung nach passieren, wenn eine der dateien sich nicht öffnen lässt? soll open true zurückliefern und die eine datei einfach ignorieren? oder false zurückliefern?
        
        was soll passieren, wenn sich *beide* dateien nicht öffnen lassen? false zurückliefern? und was soll dann in der variable $! stehen? der fehlergrund von datei 1 oder der von datei 2?
        
        perl ist schon wirklich sehr ausdrucksstark, aber sich irgendwas ausdenken ist meist keine gute idee, bzw. sollte man dann mit der (richtigen) doku als referenz arbeiten.
        es ergibt hier einfach keinen sinn, dass man open() mehrere argumente übergeben kann.
        
        du musst die dateien wohl oder übel hintereinander öffnen.
        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
        
        +5 replies
        
        lukastonner
        
        2010-07-01 15:58
        
        User since
        2010-02-07
        47 Artikel
        BenutzerIn
        
        ok.hintereinander öffnen wird glaub ich nicht so einfach, da der $Eingang noch weiter in dem code verschachtelt ist. dann muss ich wohl vor dem open "heute" und "gestern" zu einer Datei zusammenzimmern, wie auch immer, und diese dann einlesen.....
        
        +4 replies
        
        murphy
        
        2010-07-01 16:25
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Es ist zwar nicht besonders schön, aber man könnte auch sowas machen:
        
        Code (perl): (dl )
        
        open my $eingang, '-|', '/bin/cat', $filename, $filename2 or die "can't open cat $filename $filename2: $!\n"
        
        Eigentlich müsste das gleiche Prinzip auch eleganter mit einem PerlIO-Layer oder einem durch tie erzeugten Dateihandle umzusetzen sein, ein existierendes Modul für diesen Zweck ist mir aber nicht bekannt.
        When C++ is your hammer, every problem looks like your thumb.
        
        +2 replies
        
        lukastonner
        
        2010-07-01 16:39
        
        User since
        2010-02-07
        47 Artikel
        BenutzerIn
        
        Super,...vielen dank. versteh zwar nicht so ganz was du gemacht hast aber es funktioniert
        
        pq
        
        2010-07-01 16:48
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich kenn den restlichen code nicht, aber ich bin sicher, wenn mir als maintainer sowas unterkäme, rutschte mir ein WTF?! raus.
        
        ist auch nicht portabel.
        also ists jetzt steinzeitcode gemischt mit obfu...
        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
        
        pq
        
        2010-07-01 16:44
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        also dann würde ich folgendes favorisieren:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        local @ARGV = ($filename, $filename2); # entweder my $eingabe = \*ARGV; my @lines = <$eingabe>; # oder my @lines = <ARGV>;
        
        das wäre dann portabel.
        
        allerdings würde ich beides selber nicht machen wollen. da es sich wohl um relativ kleine dateien handelt, würde ich die in das array einlesen und dann das array weitergeben.
        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
        
        +4 replies
        
        topeg
        
        2010-07-01 20:15
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        hüstel:
        
        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
        
        my $order_daten = $ENV{ORDNER_DATEN}; # Pfad zu den Daten my @stations_namen = ("1231","1232","1233","1234","1235"); foreach my $name (@stations_namen) { ######## EINLESEN my @stationsdaten; my $filename = "$order_daten$name/${name}_$datum_heute.txt"; push(@stationsdaten,read_file($filename)); my $filename2 = "$order_daten$name/${name}_$datum_gestern.txt"; push(@stationsdaten,read_file($filename2)); print Dumper \@stationsdaten; } # ... sub read_file{ my $filename=shift; open(my $eingang, '<', $filename) or die "can't open $filename: $!\n" ; my @lines=<$eingang>; close($eingang); return @lines; }
        
        +3 replies
        
        pq
        
        2010-07-01 20:21
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        och, dann ginge auch IO::All statt read_file:
        
        Code (perl): (dl )
        
        1 2
        
        use IO::All; my @lines = io($filename)->slurp;
        
        io() bricht automatisch ab, falls die datei nicht geöffnet werden kann.
        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
        
        +2 replies
        
        topeg
        
        2010-07-01 20:34
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Sicher, aber dann hätte lukastonner nicht erkannt wie das einlesen funktioniert und das es das selbe wie sein Code macht. Primär ging es mir darum zu zeigen wie man zwei Dateien in das selbe Array einlesen kann. Das schien ja ein Problem zu sein.
        
        pq
        
        2010-07-01 21:27
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        jo, ich wollte ja auch nur ein weiteres beispiel bringen
        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

View all threads created 2010-07-01 13:46.