Perlscript: Zeile aus datei löschen

[Cheatah]

Hi,

$file = /tmp/userfile;
$del_user;

»»

Hmm... also, aus dem Passwortfile "$file" will ich jede Zeile mit dem "$del_user" löschen ! Irgendeine Idee ?

$c=0;
open(FILE,"$file");
while ($line=<FILE>) {
  if ($line !~ /$del_user/) { $array[$c] = $line; $c++; }
}             # /^$del_user/, wenn $del_user nur am Anfang stehen darf
close(FILE);

open(WRITE,">$file");
foreach $foo (@array) { print WRITE "$foo"; }
close(WRITE);

Diese Angaben sind wie immer ohne Winchester - also vorher ein Backup machen ;-)

Cheatah