5 Zeilen ab jener mit bestimten Wort aus Datei löschen (Allgemeines zu Perl)

[thread]17169[/thread]

5 Zeilen ab jener mit bestimten Wort aus Datei löschen

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+7 replies
donlenardo

2012-02-20 15:47

User since
2012-01-24
16 Artikel
BenutzerIn

Hallo alle zusammen,

ich habe wieder einmal eine Frage:
Ich möchte eine Datei durchsuchen lassen und wenn nun zb. die Variable
$EMPTY = "EMPTY";
in der Datei auftritt, sollen ab dieser Zeile alle Folgenden bis zu jener, in der eine Klammer "}" auftritt, gelöscht werden. vor der Variable und der Klammer "}" sind jedoch Leerzeichen.
Danach soll die vorliegende Datei wieder gespeichert werden.
Keine Ahnung wieso,aber irgendwie bekomme ich es einfach nicht hin,dass mir Perl dies ausführt.

Vielleicht kann mir ja jemand von euch helfen.

Vielen Dank schon mal im Voraus für Eure Ideen.

Gruß,
Markus
Last edited: 2012-02-20 16:02:34 +0100 (CET)
- +3 replies
- GwenDragon
  
  2012-02-20 16:06
  
  User since
  2005-01-17
  14783 Artikel
  Admin1
  
  Zeig doch mal deinen Code, was du schon versucht hast.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - donlenardo
    
    2012-02-20 16:19
    User since
    2012-01-24
    16 Artikel
    BenutzerIn
    
    Ich wollte zunächst damit beginnen, eine Datei zu durchsuchen, und jene Zeile, in der das Wort "EMPTY" auftritt, zu entfernen. Aber irgendwie löscht er mich gar nichts. Eventuell hat das etwas mit den Leerzeichen vor dem Wort "EMPY" zu tun??Aja, und mit "eq" löscht er mir gar nichts, mit "==" löscht er mir alles. Hier mal der Code:
    
    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
    
    my $EMPTYname = "EMPTY"; my @dataEempty = (); open (Boundary, "<",boundary); @dataEempty = <Boundary>; close (Boundary); foreach $lineEmpty(@dataEempty) { if($lineEmpty eq $EMPTYname) { print "Es wird gelöscht: = $lineEmpty \n"; push @output,$lineEmpty; } else { print "Nicht gelöscht: = $lineEmpty \n"; push @outputNonEmpty,$lineEmpty; } } system("rm boundary"); open(OUT,">boundary"); foreach $line(@outputNonEmpty) { print OUT $line; }; close(OUT);
    
    Last edited: 2012-02-20 16:32:09 +0100 (CET)
    - GUIfreund
      
      2012-02-20 18:26
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      2012-02-20T15:19:00 donlenardo
      
      Code: (dl )
      
      1 2 3 4 5
      
      my $EMPTYname = "EMPTY"; ............. foreach $lineEmpty(@dataEempty) { if($lineEmpty eq $EMPTYname)
      
      Von allen anderen Unschönheiten in deinem Skript mal abgesehen: Du schreibt im OP, dass vor dem String noch Leerzeichen stehen. Außerdem steht noch ein Newline am Ende. Wenn da alles ist, könnte deine Prüfung so aussehen:
      
      Code (perl): (dl )
      
      if($lineEmpty =~ /^ *$EMPTYname$/)
      
      Ansonsten genügt vielleicht
      
      Code (perl): (dl )
      
      if($lineEmpty =~ /$EMPTYname/)
      
      Das prüft, ob die Zeile diesen String irgendwo enthält.
      Gruß
      GUIfreund
- +3 replies
- hugenyn
  
  2012-02-20 21:46
  User since
  2010-10-05
  65 Artikel
  BenutzerIn
  Mein Versuch an Deinem Code.
  Man kann die Arrays auch weglassen, direkt lesen, in eine zweite Datei schreiben und diese dann umbenennen.
  
  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 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
  
  #!/usr/bin/perl use strict; use 5.010; use warnings; my $EMPTYname = "EMPTY"; my ( @dataEempty, @output ); open BOUNDARY, "< /home/wolf/Dokumente/emty.txt"; @dataEempty = <BOUNDARY>; close BOUNDARY; foreach ( @dataEempty ) { my $lineEmpty = shift @dataEempty; unless ( $lineEmpty =~ /$EMPTYname/ ) { &schreibe ( $lineEmpty, \@output ) } else { &schreibe ( $lineEmpty, \@output ); last } } my $weiter = 0; foreach my $lineEmpty(@dataEempty) { if ( $lineEmpty =~ /\}/ ) { &schreibe ( $lineEmpty, \@output ); $weiter = 1 # Umschalter } else { &schreibe ( $lineEmpty, \@output ) if $weiter == 1 } } open OUT, "> /home/wolf/Dokumente/boundary"; foreach my $line (@output) { print OUT $line } close OUT; sub schreibe { my ($lineEmpty, $ar) = shift; print "Es wird geschrieben: = $lineEmpty \n"; push @$ar, $lineEmpty }
  
  Last edited: 2012-02-21 00:47:16 +0100 (CET)
  - +2 replies
  - pq
    
    2012-02-21 01:23
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    2012-02-20T20:46:26 hugenyn
    
    Code (perl): (dl )
    
    1 2 3
    
    foreach ( @dataEempty ) { my $lineEmpty = shift @dataEempty;
    
    auf diese weise arbeitest du nur die hälfte des arrays ab.
    wenn du mit for(each) über ein array iterierst, solltest du es währenddessen nicht verändern.
    entweder while benutzen oder das element direkt, das du über foreach bekommst, aber nicht foreach+shift.
    
    und mach doch bitte möglichst edits kenntlich, sonst weiss keiner, was du geändert hast. es gibt auch ein extra kommentarfeld dafür.
    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
    - hugenyn
      
      2012-02-21 17:20
      
      User since
      2010-10-05
      65 Artikel
      BenutzerIn
      
      Tatsächlich wollte ich den ersten foreach-Lauf nur bis zum Erreichen von
      
      Quote
      $lineEmpty =~ /$EMPTYname/
      
      ausführen und im zweiten Lauf das Schreiben beim Erreichen von
      
      Quote
      $lineEmpty =~ /\}/
      
      wieder starten und dabei das Iterieren über den bereits gelesenen Teil des Arrays einsparen.
      
      Diese Konstruktion wäre also mit einer Arraykopie richtiger gewesen (obwohl es seltsamerweise gut funktioniert hat).
      
      Danke.

View all threads created 2012-02-20 15:47.