Подправьте скриптец please

[monia]

<?
set_time_limit(0);
$f=fopen("input.txt","r");
$fo=fopen("output.txt","w-");
while(!feof($f)){  
	$str=fgets($f); 
	$str = substr($str,0,strpos($str,"@")+1);
	fwrite($fo,$str."\n");
}
fclose($f);
fclose($fo);
?>

Скрипт отсекает в строке все, что идет после "@". Нужно, чтобы наоборот, отсекал то, что идет до "@".
Так как в PHP не силен, то обращаюсь сюда.

 

[itex]

Замени
$str = substr($str,0,strpos($str,"@")+1);
на
$str = substr($str,strpos($str,"@"),strlen($str)+1);