Скрипт разбивки угнанных ICQ по файлам

                        
<?php 

$r=";"; //разделитель 

$f=file("source.txt"); //файл с аськами 

$si=fopen("6.txt","a+"); //шохи 

$s=fopen("7.txt","a+"); //семёрки 

$e=fopen("8.txt","a+"); //восьмёры 

$n=fopen("9.txt","a+"); //девятки 

$o=fopen("o.txt","a+"); //остальное 

for($i=0;$i<count($f);$i++) 

{ 

$l=explode($r,trim($f[$i])); 

switch(strlen($l[0])) 

{ 

case 6: fwrite($si,$f[$i]);break; 

case 7: fwrite($s,$f[$i]);break; 

case 8: fwrite($e,$f[$i]);break; 

case 9: fwrite($n,$f[$i]);break; 

default: fwrite($o,$f[$i]);break; 

} 

} 

fclose($si); 

fclose($s); 

fclose($e); 

fclose($n); 

fclose($o); 

?>