Textdatei bearbeiten (Allgemeines zu Perl)

[thread]16894[/thread]

Textdatei bearbeiten

Tags: perl5 Similar Threads

Readers: 25

Articles: hide open all | hide show old branches

+13 replies
JoeyEJ9

2011-11-08 15:30

User since
2011-11-08
5 articles
BenutzerIn

Hi.
Ich habe ein kleines Problem. Undzwar habe ich eine Textdatei, wo nach dem Header eine Leerzeile kommt und dann der Text (der aber auch wiederrum Leerzeilen enthält). Ich will jetzt von dieser Textdatei den Header entfernen und den Rest so beibehalten. Jemand ne Ahnung wie das geht? Also den kompletten Text bis zur 1.Leerzeile abhaken und den Rest behalten.
Danke schonmal.
Last edited: 2011-11-08 15:34:28 +0100 (CET)
- +2 replies
- bianca
  
  2011-11-08 16:06
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Beim Einlesen einfach die ersten beiden Zeilen verwerfen.
  Wo genau liegt das Problem?
  10 print "Hallo"
  20 goto 10
  - JoeyEJ9
    
    2011-11-08 16:18
    
    User since
    2011-11-08
    5 articles
    BenutzerIn
    
    Naja das Problem liegt dabei dass ich das auf viele Textdatein anwenden muss, bei denen der Header immer unterschiedlich lang ist(also über unterschielich viele Zeilen geht). Das Script soll also automatisch alles vor der ersten Leerzeile entfernen.
    Last edited: 2011-11-08 16:23:58 +0100 (CET)
- +10 replies
- pq
  
  2011-11-08 16:21
  User since
  2003-08-04
  12209 articles
  Admin1
  mit einem einzeiler ginge das so:
  
  Code: (dl )
  
  perl -ni.bak -e 'if ($body) { print } else { $body = 1 if m/^$/ }' textfiles
  
  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
  - +9 replies
  - JoeyEJ9
    
    2011-11-08 16:27
    
    User since
    2011-11-08
    5 articles
    BenutzerIn
    
    Naja das bringt mir nicht viel. Die Textdatei ist nicht so direkt in Header und Body unterteilt. Mal ein Beispiel:
    
    Hallo
    Wie gehts?
    
    Super.
    
    2. Beispiel:
    
    Hallo
    Wie gehts?
    Super und dir?
    
    Super.
    
    Der "Header" ist bei beiden Beispielen vom eigentlichen Text den ich will (Super.) durch eine Leerzeile getrennt. Ich brauche jetzt ein Script, dass mir, unabhängig von der Länge des "Headers" nur Super. ausgibt.
    - +8 replies
    - pq
      
      2011-11-08 16:38
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      genau das tut mein einzeiler.
      $body wird auf true gesetzt, sobald eine leerzeile gefunden wurde. von da ab wird ausgegeben.
      das ganze landet dann in der angegebenen datei, und das original wird in .bak umbenannt.
      gabs probleme, den code auszuführen?
      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
      - JoeyEJ9
        
        2011-11-08 16:51
        
        User since
        2011-11-08
        5 articles
        BenutzerIn
        
        Also ich lese mir erstmal die Datei ein mit diesem Code:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        #!/usr/bin/perl $datei = $ARGV[0]; open(Sesam, "<$datei") or die "\n"; @datei=<Sesam>; foreach(@datei){ print $_; } close (Sesam);
        
        So wird mir jede Zeile der Textdatei angezeigt. Jetzt will ich aus der eingelesenen Textdatei alles ab der !1.Leerzeile! (auch der spätere Text enthält noch Leerzeilen,die aber bleiben sollen). Das Ergebnis soll jetzt erstmal nicht gespeichert werden, es soll nur die Ausgabe erzeugt werden.
        
        modedit Editiert von pq: code-tags hinzugefügt
        Last edited: 2011-11-08 17:01:47 +0100 (CET)
        
        +6 replies
        
        pq
        
        2011-11-08 17:05
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        wo ist denn dann das problem? du wiederholst die aufgabenstellung, sagst aber nichts zu meinem code.
        wenn nicht im einzeiler und du nur die ausgabe brauchst, dann halt so:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        open my $fh, "<", "datei" or die $!; my $body = 0; while (<$fh>) { if ($body) { print } else { $body = 1 if m/^$/; } }
        
        alternativ:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        while (<$fh>) { if (m/^$/) { # rest ausgeben. aus der schleife springen print <$fh>; last; } }
        
        Last edited: 2011-11-08 17:07:28 +0100 (CET)
        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
        
        JoeyEJ9
        
        2011-11-08 17:16
        
        User since
        2011-11-08
        5 articles
        BenutzerIn
        
        Ok vielen Dank :), genau das meinte ich. Nur noch eine kurze Sache, wie kann ich vordefinierte Wörter aus meinem Text löschen? Zum Beispiel wenn ich mir n Array anlege was verschiedene Wörter beinhaltet und ich in meinem ganzen Text genau die Wörter die in dem Array stehen löschen will.
        
        +4 replies
        
        suresh
        
        2011-11-08 22:58
        
        User since
        2010-10-12
        109 articles
        BenutzerIn
        
        Du legst deine Worte in einem vordefiniertem array und benutzt dann suchen/ersetzen, um das Wort rauszulöschen.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        ##habs nicht getestet, hoffe es tut was es soll my @woerter= ("Wort1", "Wort2"); while (<$fh>) { unless (m/^$/) { foreach my $wort (@woerter) { s/$wort//; } print; } }
        
        Last edited: 2011-11-08 23:38:21 +0100 (CET)
        
        +3 replies
        
        FIFO
        
        2011-11-09 01:59
        
        User since
        2005-06-01
        469 articles
        BenutzerIn
        
        Das ersetzt aber nur das erste Vorkommen des Wortes in jeder Zeile. Außerdem nimmt es keine Rücksicht auf Wortgrenzen. Alternative für "freistehende" und evtl. mehrfach vorkommende Wörter:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        my @woerter = qw(Wort1 Wort2); while my $line (<$fh>) { next if $line !~ m{\S}; for my $wort (@woerter) { $line =~ s{\b$wort\b}{}g; } print $line; }
        
        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"
        
        +2 replies
        
        pq
        
        2011-11-09 11:48
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        man kann das noch beliebig weitertreiben =)
        in einer schleife über die zeilen und in noch einer schleife über die worte, da ist es vermutlich effizienter, die worte einmalig in eine sammelregex zu packen.
        und dann könnte man sich noch überlegen, ob es sinnvoll ist, worte zu löschen, wenn die leerzeichen davor und danach stehenbleiben.
        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
        
        suresh
        
        2011-11-09 13:08
        
        User since
        2010-10-12
        109 articles
        BenutzerIn
        
        Der Code ist sicher nicht auf Effizient getrimmt sondern sollte vielmehr nur ein Beispiel sein wie es überhaupt funktionieren könnte.
        
        Auch die RegEx kann sicher noch optimiert werden nur liegen uns keine Input Daten vor.
        
        Grüße

View all threads created 2011-11-08 15:30.