mazanie urciteho riadku v subore

<?php
// přijímá celkem čtyři parametry, přičemž poslední je nepovinný
// funkce se nestará o pozici v souborech a neošetřuje žádné chyby
// - resource vstupního souboru
// - resource pro výstupní soubor
// - číslo řádku, který se nemá zapsat do výstupního souboru
// - nepovinný parametr, který bude použit jako znak (či více znaků) znamenající konec řádku
function smaz_radek($vstup, $vystup, $radek_k_vymazu, $konec_radku = "\n")
{
    $jsme_na_radku = 1;                                     // na začátku jsem na 1. řádku
    while (!feof($vstup)) {                                 // čteme, máme-li co číst
        $precteno = fread($vstup, strlen($konec_radku));
        if ($precteno == $konec_radku) {                    // pokud se přečtené shoduje s koncem řádku,
            $jsme_na_radku++;                               // zvýšíme počítadlo řádků
        }
        if ($jsme_na_radku != $radek_k_vymazu) {            // pokud nejsme na řádku, který má být vymazán,
            fwrite($vystup, $precteno);                     // můžeme zapisovat do výstupního souboru
        }
    }
}

// příklad:
$vstupni_soubor = fopen("soubor.txt", "r");
$vystupni_soubor = fopen("vystup.txt", "w");

smaz_radek($vstupni_soubor, $vystupni_soubor, 10); // smaže 10. řádek souboru

fclose($vstupni_soubor);
fclose($vystupni_soubor);

$soubor = "soubor.txt";
$delete= 10;
$del = $delete - 1;# file vytvoří array a první čádek má nulu jako klíč
$a = file($soubor);
unset($s[$del]);
file_put_contents($soubor, join("\n", $a));