Dateiveränderung durch Perl-Skript (Allgemeines zu Perl)

[thread]13521[/thread]

Dateiveränderung durch Perl-Skript

Leser: 30

Articles: hide open all | hide show old branches

+13 replies

clyde

2009-05-14 17:15

User since
2009-05-14
12 Artikel
BenutzerIn
[default_avatar]

Hallo, ich bin grad dabei ein Perl Skript zu schreiben,
das mir aus einer Datei eine Adresse sucht und diese ersetzt,
nur bei dem ersetzen komme ich nicht weiter...
Vielen Dank schon mal

bis jetz:

Code (perl): (dl )

 #!/usr/bin/perl
 
  my $file = "/home/user/ip";
  my $zeile;
  my @inhalt;
 
 
  #print"IP Adress:\n";
  #$ersetze = <STDIN>;
 
 
  open(DATEI,"+<$file");
  @inhalt=<DATEI>;
  close(DATEI);
 
 
  
  my $suchwort ="test4";
  for($i = 0; $i < @inhalt; $i ++)
  {
          my $pos = index($inhalt[$i], $suchwort);
          if($pos > -1){
          my $nextword = index($inhalt[$i], ' ', ($pos + length($suchwort))) -13;
          my $ip = substr($inhalt[$i], $nextword);
          @array=split(/#/,$ip);
          $erster=shift(@array);
          print $ip;
          exit;
          }
}

Last edited: 2009-05-14 17:21:49 +0200 (CEST)

+12 replies
GwenDragon

2009-05-14 17:27

User since
2005-01-17
14790 Artikel
Admin1

Zeig’ uns doch bitte mal, wie eine solche Datenzeile aussieht.
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +11 replies
- clyde
  
  2009-05-14 19:50
  
  User since
  2009-05-14
  12 Artikel
  BenutzerIn
  
  also die datei sieht ungefähr so aus
  
  ....
  ....
  IP="144.144.144.144" #IP Adresse des Servers
  ....
  ....
  - +10 replies
  - Linuxer
    
    2009-05-14 20:14
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    Gut, jetzt wissen wir also, wie die Zeile aussehen soll, in der ersetzt werden soll.
    
    Wonach soll nun gesucht werden?
    Sollen alle IPs in den Zeilen, die dem beschriebenen Format entsprechen, ersetzt werden?
    Soll nach einer bestimmten IP gesucht werden nun nur diese ersetzt werden?
    
    Je genauer Du Dich ausdrückst, desto einfacher machst Du es den Leuten, die Dir helfen sollen.
    
    Ich rate mal ins Blaue und schlage folgendes (ungetestet) vor:
    
    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 23 24 25 26 27 28
    
    #! /usr/bin/perl -i.bak use strict; use warnings; # diese Skript legt von angegebenen Datei(en) jeweils eine Kopie an # (mit Erweiterung .bak; siehe perldoc perlrun; -i.bak) # definiere die Strings, nach denen wir suchen # und womit wir ersetzen wollen # um die IP vom Schema der entsprechenden Zeile zu trennen, nutzen # wir hier sprintf(); (siehe: perldoc -f sprintf; ) ;ansonsten: # my $gesucht = 'IP="144.144.144.144"'; # my $ersetze = 'IP="222.222.222.222"'; my $gesucht = sprintf( 'IP="%s"', '144.144.144.144' ); # aendere IP, nach der gesucht wird my $ersetze = sprintf( 'IP="%s"', '222.222.222.222' ); # aendere IP, mit der ersetzt wird # Lese zeilenweise aus Datei(en) while ( <> ) { # suche/ersetze fuer jede Zeile s{^\Q$gesucht\E}{$ersetze}; # gebe die Zeile wieder aus print; } __END__
    
    Das Skript in eine Datei packen.
    
    Skriptaufruf: skript.pl textdatei1 textdatei2
    
    Ergebnis:
    textdatei1 und textdatei2 enthalten nach dem Aufruf des Skriptes die geänderten Daten.
    textdatei1.bak und textdatei2.bak enthalten jeweils die gesicherte Originalversion.
    
    edit: minor changes
    edit2: Skriptaufruf um Ergebnis erweitert.
    Last edited: 2009-05-18 10:43:42 +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!
    - +9 replies
    - clyde
      
      2009-05-14 20:28
      
      User since
      2009-05-14
      12 Artikel
      BenutzerIn
      
      ok sorry das ich das so ungenau beschrieben hab,
      
      also die datei gibt es öfter bei mir auf verschiedenen servern
      und ich will aus der einen datei nur genau die eine zeile verändern;)
      danke schon mal:)
      - +8 replies
      - clyde
        
        2009-05-15 14:23
        
        User since
        2009-05-14
        12 Artikel
        BenutzerIn
        
        also ums einfach zu sagen, ich will das das skript mir die datei öffnet,
        nach der ip adresse sucht und diese durch die neue ersetzt und dann die datei wieder genauso speichert...
        
        +7 replies
        
        Gast wer
        
        2009-05-15 15:11
        
        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 23 24 25 26 27 28
        
        #! /usr/bin/perl -i.bak use strict; use warnings; # diese Skript legt von angegebenen Datei(en) jeweils eine Kopie an # (mit Erweiterung .bak; siehe perldoc perlrun; -i.bak) # definiere die Strings, nach denen wir suchen # und womit wir ersetzen wollen # um die IP vom Schema der entsprechenden Zeile zu trennen, nutzen # wir hier sprintf(); (siehe: perldoc -f sprintf; ) ;ansonsten: # my $gesucht = 'IP="144.144.144.144"'; # my $ersetze = 'IP="222.222.222.222"'; my $gesucht = sprintf( 'IP="%s"', '144.144.144.144' ); # aendere IP, nach der gesucht wird my $ersetze = sprintf( 'IP="%s"', '222.222.222.222' ); # aendere IP, mit der ersetzt wird # Lese zeilenweise aus Datei(en) while ( <> ) { # suche/ersetze fuer jede Zeile s{^\Q$gesucht\E}{$ersetze}; # gebe die Zeile wieder aus print; } __END__
        
        +6 replies
        
        Gast clyde
        
        2009-05-18 10:37
        
        Hallo,
        danke für die Antwort, wie gebe ich da denn die Datei an?
        
        +5 replies
        
        Linuxer
        
        2009-05-18 10:41
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        siehe Dateiveränderung durch Perl-Skript
        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!
        
        +4 replies
        
        clyde
        
        2009-05-20 13:26
        
        User since
        2009-05-14
        12 Artikel
        BenutzerIn
        
        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)
        
        +3 replies
        
        Linuxer
        
        2009-05-20 13:38
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        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!
        
        +2 replies
        
        clyde
        
        2009-05-20 14:00
        
        User since
        2009-05-14
        12 Artikel
        BenutzerIn
        
        Vielen Dank es funktioniert:)
        
        Dubu
        
        2009-05-21 11:32
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        Etwas "unixoider" wird es, wenn die beiden IPs direkt auf der Kommandozeile übergeben werden statt sie interaktiv abzufragen. Aber da kommt es natürlich auf den Use Case an.
        Ich persönlich finde die Methode mit dem sprintf() von Linuxer auch eher unübersichtlicher und fehlerträchtiger, als einfach die Variablen in die Regex einzusetzen, aber TIMTOWTDI.
        
        So sähe also meine Lösung eher aus:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        #!/usr/bin/perl -i.bak use strict; use warnings; if (@ARGV < 3) { die "Benutzung: $0 <alteip> <neueip> <datei1> [<datei2> ...]\n"; } my $ip = shift; my $newip = shift; while ( <> ) { # suche/ersetze fuer jede Zeile s{^BBGEN="\Q$ip\E"}{BBGEN="$newip"}; print; }
        
        Edit: Anführungszeichen in Regex vergessen.
        Last edited: 2009-05-21 12:04:08 +0200 (CEST)

View all threads created 2009-05-14 17:15.