Informationen aus Datei lesen und formatieren (gelöst) (Allgemeines zu Perl)

[thread]18422[/thread]

Informationen aus Datei lesen und formatieren [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+13 replies
korkak

2013-07-06 14:15

User since
2013-07-06
16 Artikel
BenutzerIn

Hallo zusammen,

ich bin neu in der Perl Welt und suche Hilfe :-)
Ich möchte eine Datei auslesen, bestimmte Informationen entnehmen, formatieren und in eine neu Datei ausgeben.

Der Inhalt der Datei ist immer gleich aufgebaut, Beispiel:

HANS9999123456789
DAMPF0000123456789
GASSE
HANS8888123456789
DAMPF0000123456789
GASSE
HANS7777123456789
DAMPF0000123456789
GASSE

Wie ich die Datei öffne, auslese und in eine neue Datei schreibe habe ich bereits verstanden. Auch das suchen nach bestimmten Mustern klappt jetzt.
Nun kommt die Stelle an der ich mich schwer tue, den folgendes muss ich tun:

- HANS+DAMPF ergeben immer eine Kombination.
- HANS muss entfernt werden.
- Wenn die übrig gebliebene Nummer mit 9999 anfängt, brauche ich die ersten 3 Stellen der Nummer. => Variable_1
- Wenn die übrig gebliebene Nummer mit 8888 anfängt, brauche ich die ersten 4 Stellen der Nummer. => Variable_1
- Wenn die übrig gebliebene Nummer mit 7777 anfängt, muss ich eine Fehlermeldung ausgeben. => print OUTPUT_FILE "Fehler, bitte manuell prüfen.\n";
- DAMPF0000 muss entfernt werden, den Rest der Nummer brauche ich. => Variable_2
- Nun muss ich die Infos formatiert in eine neue Datei ausgeben, Beispiel:
print OUTPUT_FILE "ZUSATZ_FORMAT_A $VARIABLE_1 ZUSATZ_FORMAT_B $VARIABLE_2 ZUSATZ_FORMAT_C\n";

In diesem Beispiel müsste die Datei dann so aussehen:

ZUSATZ_FORMAT_A 123 ZUSATZ_FORMAT_B 123456789 ZUSATZ_FORMAT_C
ZUSATZ_FORMAT_A 1234 ZUSATZ_FORMAT_B 123456789 ZUSATZ_FORMAT_C
Fehler, bitte manuell prüfen.

Kann mir jemand ein Beispiel oder Lösungsansätze geben, wie ich dies umsetzen kann?
Mein Haupt Problem ist die Zuordnung, also dass immer HANS und der nächste DAMPF zusammengehören.
Ich habe bereits ein paar Versuche hinter mir, Problem war zuletzt, dass wenn ich die "HANS7777" Nummer ausgeschlossen habe, trotzdem die zugehörige DAMPF nummer mitausgegeben habe. Kann man dies irgend wie mit HASH oder ARRAY lösen?

Danke und Gruß
Korkak
Last edited: 2013-07-06 14:35:59 +0200 (CEST)
- bianca
  
  2013-07-06 15:06
  
  User since
  2009-09-13
  6978 Artikel
  BenutzerIn
  
  Hallo Korkak,
  zeig doch mal den Versuch, der dem Ziel am nächsten kommt.
  10 print "Hallo"
  20 goto 10
- +7 replies
- FIFO
  
  2013-07-06 16:15
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Hi,
  wenn Deine Datei immer und ausschließlich aus diesen Zeilentripletts besteht, kannst Du z.B. immer 3 Zeilen einlesen:
  
  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
  
  #! perl use warnings; use strict; open my $inFH, '<', 'meineEingabedatei' or die "$!"; open my $outFH, '>', 'meineAusgabedatei' or die "$!"; while (! eof($inFH)) { my ($variable_1, $variable_2); # Erste Zeile my $hansLine = <$inFH>; last if eof($inFH) or $hansLine !~ /\A HANS (\d{4}) (\d+) /x; if ($1 eq '9999') { $variable_1 = substr($2, 0, 3); } elsif ($1 eq '8888') { $variable_1 = substr($2, 0, 4); } elsif ($1 eq '7777') { $variable_1 = "FEHLER"; } last if ! defined $variable_1; # Zweite Zeile my $dampfLine = <$inFH>; last if eof($inFH) or $dampfLine !~ /\A DAMPF0000 (\d+) /x; $variable_2 = $1; # Dritte Zeile (nicht verwendet) my $gasseLine = <$inFH>; if ($variable_1 eq 'FEHLER') { print $outFH "Fehler, bitte manuell prüfen.\n"; } else { print $outFH "ZUSATZ_FORMAT_A $variable_1 " ."ZUSATZ_FORMAT_B $variable_2 " ."ZUSATZ_FORMAT_C\n"; } } close $inFH; close $outFH;
  
  Das ist sozusagen eine Simpellösung für Deinen Spezialfall. Die Schleife bricht ab, sobald die Zeilen nicht Deiner Formatvorgabe folgen.
  HTH, FIFO
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - +6 replies
  - korkak
    
    2013-07-06 18:28
    
    User since
    2013-07-06
    16 Artikel
    BenutzerIn
    
    Hallo,
    
    ich hätte nicht gedacht, dass es so schnell Hilfe gibt, vielen Dank dafür!
    
    @FIFO
    Leider steht zwischen den 3 Konstanten Zeilern immer jede Menge Text und Newlines, Tabs und Leerzeichen, ungefähr so:
    
    HANS9999123456789
    DAMPF: 0000123456789
    TEXT
    GASSE
    TEXT
    
    Ich denke die Sonderzeichen könnte ich dann so entfernen:
    
    chomp($hansLine); # Newline-Zeichen am Ende des Strings entfernen.
    $hansLine=~ s/^\s+//g; # Alle Leerzeichen am Zeilenanfang entfernen.
    $hansLine=~ s/^\t+//g; # Alle TAB's am Zeilenanfang entfernen.
    
    Ich versuche jetzt erstmal deinen Vorschlag nachzuvollziehen und umzusetzen, für einen Anfänger ist es dann doch nicht so simpel :-)
    
    Danke und Gruß
    Korkak
    - +3 replies
    - rosti
      
      2013-07-06 18:50
      
      User since
      2011-03-19
      3206 Artikel
      BenutzerIn
      
      Wenn die eingestreuten Texte auch noch mit HANS, DAMPF oder GASSE beginnen, ist die Aufgabe überhaupt nicht mehr lösbar.
      
      --Rosti
      - +2 replies
      - korkak
        
        2013-07-06 19:01
        
        User since
        2013-07-06
        16 Artikel
        BenutzerIn
        
        Nein, HANS, DAMPF und GASSE sind gottseidank konstant und unique.
        
        An einer Zeile verzweifel ich gerade:
        last if eof($INPUT_DATEI) or $hansLine !~ /\A HANS (\d{4}) (\d+) /x;
        
        Was ich daraus verstehe:
        
        Schleife verlassen, wenn Ende der Datei erreicht oder die Zeile nicht mit HANS beginnt...was bedeutet der Rest?
        
        Linuxer
        
        2013-07-06 19:22
        
        User since
        2006-01-27
        3875 Artikel
        HausmeisterIn
        
        /\A HANS (\d{4}) (\d+) /x
        
        "HANS" am Stringanfang, gefolgt von 4 Ziffern (\d{4}), die eingefangen werden (runde Klammern), gefolgt von weiteren Ziffern (mindestens eine), die ebenfalls eingefangen werden. Die Leerzeichen werden hier ignoriert, weil es ein extended Pattern ist (/x).
        
        Siehe auch:
        
        http://perldoc.perl.org/perlretut.html
        http://perldoc.perl.org/perlre.html
        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!
    - +2 replies
    - FIFO
      
      2013-07-06 20:15
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      ok. Versuch folgendes nachzuvollziehen:
      
      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 48 49 50 51
      
      #! perl use warnings; use strict; open my $inFH, '<', 'meineEingabedatei' or die "$!"; open my $outFH, '>', 'meineAusgabedatei' or die "$!"; READ_HANS: while (my $hansLine = <$inFH>) { my ($variable_1, $variable_2); if ($hansLine =~ /\A HANS .* 9999 (\d{3}) /x) { $variable_1 = $1; } elsif ($hansLine =~ /\A HANS .* 8888 (\d{4}) /x) { $variable_1 = $1; } elsif ($hansLine =~ /\A HANS .* 7777 /x) { $variable_1 = "FEHLER"; } else { next READ_HANS; } # ab hier ist $variable_1 definiert READ_DAMPF: while (my $dampfLine = <$inFH>) { if ($dampfLine =~ /\A DAMPF .* 0000 (\d+) /x) { $variable_2 = $1; last READ_DAMPF; } else { next READ_DAMPF; } } last READ_HANS if ! defined $variable_2; # <-- ergänzt if ($variable_1 eq 'FEHLER') { print $outFH "Fehler, bitte manuell prüfen.\n"; } else { print $outFH "ZUSATZ_FORMAT_A $variable_1 " ."ZUSATZ_FORMAT_B $variable_2 " ."ZUSATZ_FORMAT_C\n"; } } # nächste HANSzeile suchen close $inFH; close $outFH;
      
      btw: \t ist auch whitespace (\s beinhaltet nicht nur spaces)
      
      Editiert von FIFO: Schleifenabbruch ergänzt, falls keine gültige DAMPFzeile bis eof.
      Last edited: 2013-07-06 20:31:05 +0200 (CEST)
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - FIFO
        
        2013-07-07 06:57
        
        User since
        2005-06-01
        469 Artikel
        BenutzerIn
        
        Wenn die Markierungen '9999' etc. immer am Anfang der Ziffernfolge stehen, musst Du die Vergleiche übrigens anders schreiben:
        
        Code (perl): (dl )
        
        1 2 3
        
        if ($hansLine =~ /\A HANS \D* 9999 (\d{3}) /x) { # ... }
        
        Also HANS, gefolgt von beliebig vielen Nicht-Digits, usw.
        Das gleiche natürlich auch bei DAMPF.
        
        Ansonsten würde z.B. 'HANS 8888999912345' beim ersten Vergleich gematcht, da es ja '9999' enthält.
        Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- renee
  
  2013-07-07 13:27
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Mein Lösungsvorschlag
  
  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
  
  use strict; use warnings; my %mapping = ( 9999 => 3, 8888 => 4, 7777 => -1, ); { local $/ = "GASSE\n"; while ( my $item = <DATA> ) { my %data; my ($steuer,$hans,$dampf) = $item =~ m{ HANS (\d{4}) (\d+) \s* DAMPF 0000 (\d+) }xms; my $length = $mapping{$steuer}; if ( $length > 0 ) { $hans = substr $hans, 0, $length; print sprintf "ZUSATZ_FORMAT_A %s ZUSATZ_FORMAT_B %s ZUSATZ_FORMAT_C\n", $hans, $dampf } elsif ( $length < 0 ) { print "Fehler, bitte manuell prüfen.\n"; } else { print "Format unbekannt\n"; } } } __DATA__ HANS9999123456789 DAMPF0000123456789 GASSE HANS8888123456789 DAMPF0000123456789 GASSE HANS7777123456789 DAMPF0000123456789 GASSE
  
  Mehr zu $/ gibt's unter http://reneeb-perlblog.blogspot.de/2007/10/ntzlich...
  Last edited: 2013-07-07 13:33:31 +0200 (CEST)
  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/
- +3 replies
- korkak
  
  2013-07-08 11:11
  User since
  2013-07-06
  16 Artikel
  BenutzerIn
  Ich danke euch für eure Vorschläge, vieles muss ich nachschlagen oder verstehe ich noch nicht, das hat mir aufgezeigt wieviel ich noch lernen muss :-)
  Ich zeige euch mal wie ich bisher, auf meine simple Vorgehensweise, versucht habe das Problem zu lösen, siehe unten. Das würde theoretisch so funktionieren und meinen Ansprüchen gerecht werden, leider gibt es ein Problem mit dem Gültigkeitsbereich der Variable: "$variable_2", die ist bei meinem Print nicht mehr gültig und ich weiß nicht wie ich das umgehen kann :-(
  
  Danke und Gruß
  Korkak
  
  Code: (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
  
  use warnings; use strict; open(my $INPUT_DATEI, "<$ARGV[0]") or die "Fehler beim oeffnen: $!"; open(my $OUTPUT_DATEI, ">meine_output.txt") or die "Fehler beim oeffnen: $!"; while (my $OUT = <$INPUT_DATEI>) { my ($variable_1, $variable_2, $variable_3); chomp($OUT); $OUT=~ s/^\t+//g; $OUT=~ s/^\s+//g; if ($OUT =~ /HANS/ ){ $OUT =~ s/HANS//; $variable_1 = $OUT; if ($variable_1 =~ /^8888/ ){ $variable_2 = substr($variable_1,0,4); } elsif ($variable_1 =~ /^7777/ ){ #$variable_2 = "FEHLER"; print $OUTPUT_DATEI "Fehler"; } elsif {($variable_1 =~ /^9999/ ){ $variable_2 = substr($variable_1,0,3); } } if ($OUT =~ /DAMPF0000/ ){ $OUT =~ s/DAMPF0000//; $variable_3 = $OUT; } if ($OUT =~ /GASSE/ ){ print $OUTPUT_DATEI "ZUSATZ_FORMAT_A $variable_2 ZUSATZ_FORMAT_B $variable_3 ZUSATZ_FORMAT_C\n"; } } close $INPUT_DATEI; close $OUTPUT_DATEI;
  - +2 replies
  - renee
    
    2013-07-08 11:42
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Du musst die Variablen außerhalb der while-Schleife deklarieren.
    
    Die $variable_1 brauchst Du nicht, sondern kannst mit $OUT arbeiten.
    
    Die substr's sind falsch. Du schneidest ab dem Anfang aus. Da stehen ja aber noch die Steuerzahlen. Du musst substr( $OUT, 4, 4 ) bzw. substr( $OUT, 4, 3 ) machen. Das heißt, Du startest erst nach dem 4. Zeichen...
    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/
    - korkak
      
      2013-07-08 12:42
      
      User since
      2013-07-06
      16 Artikel
      BenutzerIn
      
      Super das funktioniert, danke an alle!

View all threads created 2013-07-06 14:15.