[kompadre]

<?

$fh = fopen ("file", "r");
while ($line = fgets($fh, 1024)) {
if (!ereg("pattern", $line)) $out = $out . $line;
}
fclose ($fh);

$fh = fopen ("file", "w");
fwrite ($fh, $out);
fclose ($fh);

?>