Problem mit Tie::file und zeilenende

[Siechfred]

auslesen kann ich es ja so oder so nur mit dem ändern gibt es ein problem.

Nein, auch das ist kein Problem:

use Tie::File;  
  
my $file = 'user.txt';  
tie my @userlist, 'Tie::File', $file or die "Couldn't tie $file: $!";  
  
my $vname = 'Nicole';  
my $status = 2;  
for my $i ( 0..$#userlist ) {  
  my @dummy = split /,/, $userlist[$i];  
  next if $dummy[1] ne $vname;  
  $dummy[3] = $status;  
  $userlist[$i] = join ',', @dummy;  
}  
  
untie @userlist;

Natürlich lässt sich das noch verfeinern, aber das Prinzip sollte doch einleuchten, oder?

Siechfred