Thread Dateiveränderung durch Perl-Skript (12 answers)
Opened by clyde at 2009-05-14 17:15

Linuxer
 2009-05-20 13:38
#121784 #121784
User since
2006-01-27
3875 Artikel
HausmeisterIn

user image
Hi,

Beachte bitte, dass Du bei der Eingabe den abschliessenden Umbruch mit chomp() entfernst.

Folgendes schaut bei mir gut aus:


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl -i.bak
use strict;
use warnings;

print"Bitte alte IP eingeben\n";
chomp( my $ip = <STDIN> );

print"Bitte neue IP eingeben\n";
chomp( my $newip = <STDIN> );

my $gesucht = sprintf( 'BBGEN="%s"', $ip );
my $ersetze = sprintf( 'BBGEN="%s"', $newip );

while ( <> ) {
    # suche/ersetze fuer jede Zeile
    s{^\Q$gesucht\E}{$ersetze};
    
    print;
}


Test-Datendatei:
Code: (dl )
1
2
3
4
BLA
BBGEN="1.1.1.1"
BBGEN="2.2.2.2"
RIMBEL

Last edited: 2009-05-21 14:37:40 +0200 (CEST)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View full thread Dateiveränderung durch Perl-Skript