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

clyde
 2009-05-20 13:26
#121781 #121781
User since
2009-05-14
12 poard_articles
BenutzerIn
[default_avatar]
ok danke also es läuft schon fast so wie ich mir das gedacht habe,
habe jetz nur noch ein Problem, aber vllt wisst ihr ja auch da Rat;)

mein Script sieht jetz folgendermaßen aus:

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

#!/usr/bin/perl -i.bak

use strict;
use warnings;

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

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


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


while ( <> ) {

        # suche/ersetze fuer jede Zeile
        s{^\Q$gesucht\E}{$ersetze};
         print;
}


zum einen ändert das Programm den Zeilenumbruch in der Zeile in der es ersetzt kann man da was machen?

und zum anderen würde ich gerne beide IP Adressen von Hand einlesen,
wie oben auskommentiert,
wenn ich beide Zeilen dann auf

Code (perl): (dl )
1
2

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


ändere, klappts irgendwie nicht mehr...
Vielen Dank schon mal;)
Last edited: 2009-05-20 13:41:53 +0200 (CEST)

View full thread Dateiveränderung durch Perl-Skript