Keine Garantie auf Richtigkeit:


#!/usr/bin/perl -w

my $line = 5; # Achtung ! Perl fängt bei 0 an zu zählen.

#---- Daten die geändert werden sollen.
my $ort = "Kanada";
my $strasse = "Buschstrasse";
my $nr = 32;
my $tel = 123456;

open(DAT,"+<datei.txt") || die $!; # Datei zum lesen und schreiben öffnen
my @read = <DAT>; # Dateiinhalt einlesen
$read[$line] =~ /(.+)}{(.+)}}{(.+)}{(.+)}{.+}{.+}{.+}{.+/; # In bestimmter Zeile Daten zwischen Klammern matchen.
splice(@read, $line, 1, "ũ}{Ū}}{ū}{Ŭ}{$ort}{$strasse}{$nr}{$tel
"); # Bestimmte Zeilen ändern, dabei die Daten der ersten 4 Klammern behalten.
seek(DAT, 0, 0); # Dateizeiger an den Anfang der Datei setzen
truncate(DAT, 0); # File komplett löschen
print DAT @read; # Daten Zurück in die Datei schreiben
close(DAT); # Datei schliessen


20 Euro brauchens nicht sein. Ne Aspirin tuts auch !