Suchen und ersetzen (Allgemeines zu Perl)

[thread]17514[/thread]

Suchen und ersetzen

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+7 replies
pernox77

2012-06-25 08:00

User since
2010-10-03
11 Artikel
BenutzerIn

Liebe Perl-Gemeinde,

ich möchte in einer txt-Datei nach einem bestimmten Schlüsselwort suchen. Das Wort, das _nach_ diesem Schlüsselwort und n Leerzeichen kommt, möchte ich ersetzen.
Wie gehe ich dabei am besten vor?
Kann ich eine Datei "on the fly" ändern (wenn ja, wie?) oder muss ich erst auslesen, schreiben und dann zurückschreiben?
Und wie lese ich die Datei ein bzw. wie verarbeite ich sie? Zeilenweise geht ja nicht, weil das Wort nach dem Schlüsselwort in der nächsten Zeile stehen kann.
Deshalb also den ganzen Inhalt der Datei in eine Stringvariable packen und dort die Ersetzung vornehmen?
Vielen Dank für Eure Hinweise.
Pernox
- +2 replies
- Gast Muffi
  
  2012-06-25 08:38
  
  Diese n Leerzeichen, sind die fest? Und ausser Leerzeichen scheints ja noch Zeilenumbrüche zu geben, die zwischen den Wörtern sein können. Wie sind die dann verteilt?
  Last edited: 2012-06-25 09:08:57 +0200 (CEST)
  - pernox77
    
    2012-06-25 10:30
    
    User since
    2010-10-03
    11 Artikel
    BenutzerIn
    
    Guest Muffi
    Diese n Leerzeichen, sind die fest?
    
    Fest? Naja, es können halt beliebig viele Leerzeichen zwischen dem Schlüsselwort und dem zu ersetzenden Wort vorkommen.
    
    Guest Muffi
    Und ausser Leerzeichen scheints ja noch Zeilenumbrüche zu geben, die zwischen den Wörtern sein können. Wie sind die dann verteilt?
    
    Wie bei den Leerzeichen, ich muss dann auch damit rechnen, dass es beliebig viele sein können. Unwahrscheinlich, aber nicht undenkbar.
- Gast Muffi
  
  2012-06-25 10:56
  Ich glaube, dass du erst lesen, editieren und dann wieder schreiben musst. Zumindest wüsst ich jetzt auswendig kein Tie::File für Skalare.
  
  einlesen vom Filehandle müsst mit sowas wie
  
  Code (perl): (dl )
  
  $string = <$fh>;
  
  gehn.
  
  Ersetzen mit sowas wie:
  
  Code (perl): (dl )
  
  $string =~ s/(schluesselwort\s*)\w+/$1neues_wort/;
  
  Last edited: 2012-06-25 11:08:42 +0200 (CEST)
- +3 replies
- renee
  
  2012-06-25 15:58
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Wenn die Datei nicht zu groß ist kannst Du das in eine Variable einlesen:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #!/usr/bin/perl use strict; use warnings; my $file = '/path/to/file'; my $content = do { local (@ARGV,$/) = $file; <> }; my $keyword = 'test'; my $replace = 'hallo'; $content =~ s/$keyword \s+ [^\s]+/$keyword $replace/xg; print $content;
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  $ cat file.txt Das ist ein test mit Leerzeichen Ein test mit Zeilenumbrüchen $ perl replace.pl Das ist ein test hallo Leerzeichen Ein test hallo Zeilenumbrüchen $
  
  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/
  - +2 replies
  - Raubtier
    
    2012-06-25 16:10
    
    User since
    2012-05-04
    1076 Artikel
    BenutzerIn
    
    Ggf. müsstest du das \s+ noch capturen, damit die Leerzeichenart und -länge erhalten bleiben. Und dann ist da noch die Frage, was ein Wort ist. Mit \S hat man ja nur non-whitespace, also auch ein mögliches Satzzeichen. Vielleicht also eher \w verwenden oder gleich den Wortgrenzsucher \b benutzen? Und was ist eigentlich mit Bindestrichen?
    
    Usw....
    - renee
      
      2012-06-25 17:44
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      War ja nur als Anregung gedacht ;-)
      
      Leerzeichenart und -länge muss ja nicht erhalten bleiben, soll ja ersetzt werden - wenn ich den OP richtig verstanden habe.
      
      Bzgl. \w muss man aufpassen, weil da keine Umlaute etc. drin sind (außer man benutzt ein neues Perl mit den unicode_string Features).
      
      Und mit \b muss man auch etwas rumspielen, matcht auch nicht immer das was viele erwarten würden:
      
      Code: (dl )
      
      1 2 3
      
      $ perl -le 'print "test ein test" =~ /\s+ \b(.*?)\b/x' $
      
      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 2012-06-25 08:00.