Perlscript: Zeile aus datei löschen

[Andreas Jud alias Save]

Hallo

Ich will aus meinem File(HTPASSWD) wo ich die "User:Passwort" drin habe zeilen löschen, respektive User mit dem dazugehörigen Passwort! Ich habe bisher, leider erfolglos versucht das ganze in ein Array zu schmeissen, und das ganze aufzusplitten. Danach mit einer ganz einfachen if/else schleife das ganze zu trennen. Aber eben,es ist fehlgeschlagen !

$file = /tmp/userfile;
$del_user;

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

[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