Thread Ersetzen von mehreren Zeilen in einer Textdatei (4 answers)
Opened by ritzel at 2011-04-01 14:30

renee
 2011-04-01 15:26
#147275 #147275
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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 full thread Ersetzen von mehreren Zeilen in einer Textdatei