Ersetzen von mehreren Zeilen in einer Textdatei (Allgemeines zu Perl)

[thread]16142[/thread]

Ersetzen von mehreren Zeilen in einer Textdatei

Leser: 22

Articles: hide open all | hide show old branches

+5 replies
Gast ritzel

2011-04-01 14:30
Hallo,
ich frage mich gerade wie ich mehrere Zeilen in einem Textfile automatisiert ersetzen kann?

Bsp: Textinhalt
Code: (dl )

1 2 3 4 5 6 7 8

## ---------------------- ## maa ## ---------------------- ## muu ## ---------------------- ## mee ## ---------------------- ...
Das wollte ich mit folgendem in etwa replacen lassen, was allerdings nicht funktioniert.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

my $orig = "## ---------------------- ## muu ## ----------------------" my $replace = "## Fisch ## Fleisch" while( <> ){ s/$orig/$replace/; print; }
Oder liegt das Problem hier mehr im "richtigen" escapen, sprich ich muss statt '-' eben ein '\-' setzen, bzw. gleich '\\-', weil ich in s/// wieder ein '\' brauchen werde?? Um mir das rumprobieren zu sparen, wollte ich hier mal in die Runde fragen, wie man soetwas angeht?
Last edited: 2011-04-01 14:33:49 +0200 (CEST)
- +4 replies
- renee
  
  2011-04-01 14:38
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Du läufst zeilenweise durch die Datei, hast aber ein mehrzeiliges Suchmuster -> das wird nicht klappen...
  
  Du musst also den gesamten Inhalt einlesen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  #!/usr/bin/perl use strict; use warnings; my $file = 'test.txt'; my $content = do{ local (@ARGV,$/) = $file; <> }; my $orig = "## ---------------------- ## muu ## ----------------------"; my $replace = "## Fisch ## Fleisch"; $content =~ s/\Q$orig/$replace/g; print $content;
  
  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
  - Gast ritzel
    
    2011-04-01 15:07
    
    Hi,
    super, erste Frage - was macht das \Q im s/// - das scheint bei meinen weiteren Ansaetzen gefehlt zu haben?
    
    Andere Frage, jetzt alles auch mit REGEX, d.h. statt "muu" kann dort stehen "muu 2000" oder "muu 1976" - generell sowas wie "muu\s+\d\d\d\d". Muss ich nun den kompletten string in orig zum pattern umformen oder kann ich das auch irgendwie koncatenieren.
    
    Ich habe versucht soweit mit '\' zu arbeiten, aber das kann ziemlich anstrengend werden. Momentan merke ich gerade, dass ich dabei nicht nur zwei sondern sogar drei '\' benoetige hmmmm..
    - GwenDragon
      
      2011-04-01 15:13
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Das \Q bedeutet alles nachfolgende nicht als Regex zu interpretieren.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - renee
      
      2011-04-01 15:26
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Dann musst Du das \Q in der Ersetzung rausnehmen...
      
      Man beachte,dass hier die Single Quotes genommen wurden, damit "\d" wirklich als "\d" im String stehen bleibt...
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
      
      #!/usr/bin/perl use strict; use warnings; my $file = 'test.txt'; my $content = do{ local (@ARGV,$/) = $file; <> }; my $orig = '## ---------------------- ## muu\s\d+ ## ----------------------'; my $replace = "## Fisch ## Fleisch"; $content =~ s/$orig/$replace/g; print $content;
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      ## ---------------------- ## maa ## ---------------------- ## muu 1832 ## ---------------------- ## mee ## ----------------------
      
      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/

View all threads created 2011-04-01 14:30.