Problem mit Tie::file und zeilenende

[Struppi]

(JEDER EINZELNE CODE IST UNGETESTET!!!!)

Es ist schwierig anhand von Code den man nicht starten kann nachzuvollziehen, was jetzt konkret dein Problem ist.

Wenn ich ein lauffähiges Beispiel erstelle, klappt das Problemlos den letzten Wert zu ändern:

#!/usr/bin/perl -w  
use strict;  
use Tie::File;  
my $open = "liste.txt";  
unlink $open if -e $open; # löschen  
tie my @aenderung, 'Tie::File', $open;  
  
# neu anlegen  
for(1..10) {  
push @aenderung, "a$_, b$_, c$_";  
}  
  
foreach (@aenderung) {  
if ($_ =~ m/c10/) {  #hier such ich nach dem usernamen den ich bearbeiten will  
s/c10/c10 neu/g;  
}  
}

Warum benutzt du eigentlich nicht Tie::File auch zum anlegen der Datei?

Struppi.