Ein Wort in einer Zeichenkette ersetzten

[x-VieW]

Hallo Alexander,

Das vermute ich auch langsam.
Also ein Ausschnitt aus dem Code sieht so aus:
----------------------------

my $file = 'pass.txt';

open(FHD, $file) or die "Can't open : $file!\n";
my @lines=<FHD>;
close (FHD);

foreach my $array(@lines)
{
  chomp($array);
  ($uid, $passw)=split(/,/,$array);
  if ($user_name eq $uid)
  {
    my $password_length = length($password); # Länge: neues Passwort
    my $passw_length = length($passw); # Länge: altes Passwort

my $separator = ','; # Trennzeichen
    my $user_id = $uid.$separator.$passw;
    my $user_id_length = length($user_id); # Länge: Gesamt String
    my $string_length = $user_id_length - $passw_length; # Start Koordinate

substr($user_id, $string_length, $password_length) = $password; # Altes Passwort ersetzten mit neuem

# In der Text-Datei einfügen
    open(FHD, ">>pass.txt") or die "Can't open : $!\n";
    print FHD "$user_id";
    print FHD "\n";
    close(FHD);
  }
}
----------------------------

Ich möchte gerne dem User die Möglichkeit geben sein Passwort
ändern zu können. Der Benutzer name soll erhlten bleiben.
Danke & Gruss
x-VieW