[PHP] Wyszukanie wyrażenia regularnego i zapis do pliku Opcje

[tchoman]

Witam serdecznie.
Mam prosty skrypt, który ma wyszukać w podanym pliku(stronie) wyrażenie(w tym wypadku wzorzec adresu mail) i zapisanie ich do nowo utworzonego pliku. Zrobiłem pętlę w której ma przeszukiwać plik linia po linii, no i nie ma efektu. Kombinowałem na różne sposoby. Gdzie robię błąd?

CODE

function zdobadz_email($strona)
{
$sprawdz = '/^[a-zA-Z0-9.\-_]+@[a-zA-Z0-9\-.]+\.[a-zA-Z]{2,4}$/';
//$sprawdz = '/^(aaa)$/';

$plik = fopen($strona,'r');

$moj_plik = fopen('tymczasowy_index.txt','a');
flock($moj_plik, 2);


while(!feof($plik))
{
$linia = fgets($plik);

if ( preg_match_all($sprawdz, $linia, $wynik))
{

file_get_contents($moj_plik, $wynik);
fputs ($moj_plik, $wynik);
}
}
fclose($plik);


rewind($moj_plik);


$adresy = file('tymczasowy_index.txt');


$adres = "tchoman@poczta.onet.pl";
$tytul = "Adresy e-mail";
$wiadomosc = ("Znalezione adresy e-mail to: $adres");
mail($adres, $tytul, $wiadomosc);


flock($moj_plik, 3);


fclose($moj_plik);


//unlink($moj_plik);
}

?>