<?
$m_list="mail.txt"; // mail list dosyan
$line=file($m_list);
$count=count($line);
if ($dosya=fopen("$m_list",'r')){
$i=0;
while ($i <= $count) {
$i++;
$satir=fgets($dosya,1024);
if(!eregi("hotmail.com",$satir)){
print "Eklendi: ".$satir."<br>";
$ac=@fopen("hotmailsiz.txt",'a'); // hotmailsiz.txt e kayıt edecek
@fwrite($ac,$satir);
}
@fclose($ac);
}
}
?>
