Hämta nyhetsrubriker från Datormagazinet

Här är lite kod för att hämta nyhetsrubriker från Datormagazinet

[1]
<? 

/*  Rubrikhämtare [Datormagazin]
 *  Version 0.1 - 2002-08-14
 *
 * av Cri11e [email]crille_e@home.se[/email]
 */	

$fil = file('http://www.datormagazin.se/itnytt/index.html'); 
$array = "0"; 
$aktuellrubrik = "0";

$antalrubriker = "8";	//**Ställ in antalet rubriker som skall hämtas**

while($fil && $aktuellrubrik < $antalrubriker) { 
 if(ereg("<A CLASS=\"lopare\" HREF=\"(.*)\"><IMG SRC=\"/pix/ikoner/medel_pil.gif\" WIDTH=9 HEIGHT=10 BORDER=0><FONT FACE=\"Verdana,Arial\" SIZE=2><B>(.*)</B></A>", $fil[$array])) { 
   echo preg_replace("/<A CLASS=\"lopare\" HREF=\"(.*?)\"><IMG SRC=\"\/pix\/ikoner\/medel_pil.gif\" WIDTH=9 HEIGHT=10 BORDER=0><FONT FACE=\"Verdana,Arial\" SIZE=2><B>(.*?)<\/B><\/A>&nbsp;<FONT SIZE=1>(.*)/", "<a href=\"http://www.datormagazin.se/itnytt/\\1\" TARGET=\"_blank\">\\2</A><br>", $fil[$array]); 
   $aktuellrubrik++; 
} 
 $array++; 
} 

?>