Problem mit Zeilenausgabe (Allgemeines zu Perl)

[thread]17435[/thread]

Problem mit Zeilenausgabe

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+8 replies

Trommelwirbel

2012-05-22 10:27

User since
2011-11-10
28 Artikel
BenutzerIn
[default_avatar]

Hallo an Alle,

hier erst mal die Dateien zu meinem Problem.

Das hier unten, ist ein Teil der zu bearbeitenden .txt-Datei. Im Origial, ist sie noch viel umfangreicher, aber sie besteht nur aus 'OBST'-Abschnitten und 'KALL'-Abschnitten.

Text (3.5kb)

Im Moment hab ich diesen Code, welcher aus der eingelesenen Datei jeweils die 'OBST' und 'KALL' herausfiltert und in getrennte Dateien schreibt. In der Ausgabe habe ich dann jeweils eine Datei die 'OBST' heißt und eine die 'KALL' heißt. Soweit in Ordnung. Nun würde ich gerne jeden dieser Abschnitte in eine eigene Datei schreiben, welche dann zum Beispiel dann 'OBSTBNID versiegelt' heißen soll oder 'KALLLUFTDRUCK', also jeweils wie die erste Zeile eines neuen Abschnitts.

Kam bis jetzt nicht auf eine gute Idee, bzw. meine Ideen gingen ins leere.

Kann mir jemand helfen?

Gruß Trommelwirbel

Code (perl): (dl )

use strict;
use warnings;

my ($ordner)="daten_2/";
my ($ausgabe)="result/";

my ($m,$gmd,$gmd3,$name);
my (@files)=();

opendir DIR,$ordner;
        @files = readdir(DIR);
closedir(DIR);

foreach $m (@files) {
        next if $m =~ /\.$/; 

        open FH,$ordner.$m or die "Fehler beim oeffnen von $m\n";
        print "verarbeite $m ...\n";
        
        while(<FH>) {
                chomp;

                $gmd=substr($_,0,4);            

                if ( !$gmd3 ) {
                        #am Anfang...
                        $gmd3=$gmd;     
                        open (GM,">>".$ausgabe.$gmd );  
                }
                
                if ( $gmd eq 'ENDE') {
                        #Ende Kennung muss zum letzten Block
                        $gmd=$gmd3;
                }

                if ( $gmd3 ne $gmd ) {
                        #neue Station...
                        close(GM);
                        $gmd3=$gmd;
                        open (GM,">>".$ausgabe.$gmd ); 
                }

                print GM $_."\n";

        }
        
        close(GM);
        close(FH); 

}

Gast Muffi

2012-05-22 11:07

Und wie erkennt man einen Abschnittnamen von den restlichen Daten weg?
+6 replies

topeg

2012-05-22 11:08

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Setze den InputLineSeparator $/ richtig

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use File::Spec;

my $ordner='source';
my $ausgabe='result';

opendir(my $dh,$ordner) or die("Error open $ordner ($!)\n");

while(my $file=readdir($dh))
{
  my $path=File::Spec->join($ordner,$file);
  next unless(-f $path);

  if(open(my $fh, '<', $path))
  {
    local $/="ENDE\n";
    while(my $block=<$fh>)
    {
     $block=~s/ENDE\s*$//;
     next unless($block);
     my ($name)=$block=~/^(.+?)\s+\d+/;
     next unless($name);
     my $out_path=File::Spec->join($ausgabe,$name);
     if(open(my $ofh, '>', $out_path))
     {
       print $ofh $block;
       close($ofh);
     }
     else
     { warn("Error open $out_path ($!)\n") }
    }
    close($fh);
  }
  else
  { warn("Error open $path ($!)\n"); }
}

closedir($dh);

+5 replies
Trommelwirbel

2012-05-22 11:32

User since
2011-11-10
28 Artikel
BenutzerIn

Danke. An sich funktioniert dies. Mir ist nur leider gerade aufgefallen, dass jeder Abschnitt mehrmals vorkommt, da die Messungen zu verschiedenen Tagen im Jahr durchgeführt wurde. Bedeutet, dass die Dateien überschrieben werden. Kann irgendwie 'anhängendes schreiben' realisiert werden?
- Gast Muffi
  
  2012-05-22 11:37
  
  >> statt > beim öffnen der Datei
  Last edited: 2012-05-22 12:04:03 +0200 (CEST)
- +3 replies
- topeg
  
  2012-05-22 11:39
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  Ähm. Das hat du doch schon gemacht. Übertrage das auf meinen Code:
  if(open(my $ofh, '>>', $out_path))
  - +2 replies
  - Trommelwirbel
    
    2012-05-22 11:57
    
    User since
    2011-11-10
    28 Artikel
    BenutzerIn
    
    stimmt ja. wunderbar er macht es.
    
    hättest du vielleicht auch ein hinweis, wie es vielleicht mit meinem code gehen könnte?
    - GUIfreund
      
      2012-05-22 12:16
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      2012-05-22T09:57:51 Trommelwirbel
      hättest du vielleicht auch ein hinweis, wie es vielleicht mit meinem code gehen könnte?
      
      Hier eine alternative Lösung. Längst nicht so elegant wie die von topeg, aber näher an deinem Kode.
      
      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 40 41 42 43 44 45 46 47
      
      use strict; use warnings; my ($ordner)="daten_2/"; my ($ausgabe)="result/"; my ($m,$gmd,$name); my $gmd3 = ''; my $gm; my (@files)=(); opendir DIR,$ordner; @files = readdir(DIR); closedir(DIR); -d $ausgabe or mkdir $ausgabe; foreach $m (@files) { next if -d $m; open (my $fh, '<', $ordner.$m) or die "Fehler beim oeffnen von $m\n"; print "verarbeite $m ...\n"; while(<$fh>) { $gmd=substr($_,0,4); if ( $gmd eq 'ENDE') { #Ende Kennung muss zum letzten Block $gmd=$gmd3; } if ( $gmd3 ne $gmd ) { #neue Station... $gmd3=$gmd; my ($file) = /(.+?) \d/; open ($gm,">>", $ausgabe . $file ) or die "Fehler beim oeffnen von $ausgabe.$gmd\n"; } print $gm $_; } close($gm); close($fh); }
      
      Dazu ein paar Anmerkungen:
      - Für Filehandles my-Variablen verwenden.
      - open mit 3 Parametern verwenden.
      - Kein open ohne die.
      - Doppelten Kode vermeiden.
      - Es macht keinen Sinn, das Newline abzuschneiden und beim Schreiben wieder anzuhängen.
      
      Deine Angabe
      Quote
      ... welche dann zum Beispiel dann 'OBSTBNID versiegelt' heißen soll oder 'KALLLUFTDRUCK', also jeweils wie die erste Zeile eines neuen Abschnitts.
      
      ist widersprüchlich. Ich habe mich dafür entschieden, vor dem ersten Zahlenblock abzuschneiden. Das wirst du noch anpassen müssen.
      
      Edit:Bei der Fehlermeldung muss es $ausgabe$file heißen.
      
      Editiert von GUIfreund: Fehlermeldung im Kode korrigiert.
      Last edited: 2012-05-22 12:28:08 +0200 (CEST)
      Gruß
      GUIfreund

View all threads created 2012-05-22 10:27.