<?php 
function tcmb($bakilacak,$site) 
{ 
    $fp=@fopen($site,"r"); 
    if($fp) { 
        while(!feof($fp)) { 
            $satir=fgets($fp,512); 
            $code=substr($satir,0,3); 
            if($code==$bakilacak) 
            { 
                $sonuc=split("[[:space:]]+",$satir); 
                $doviz[1]=substr($sonuc[4],0,9); 
                $doviz[2]=substr($sonuc[5],0,9); 
                $doviz[3]=substr($sonuc[3],0,9); 
                $doviz[4]=substr($sonuc[4],0,9); 
                $doviz[5]=substr($sonuc[6],0,9); 
                return $doviz; 
            } 
        } 
    } 
} 
$usd_doviz=tcmb('USD','http://www.tcmb.gov.tr/kurlar/today.html'); 
$eur_doviz=tcmb('EUR','http://www.tcmb.gov.tr/kurlar/today.html'); 
if ($dosya = fopen("kur.kur","w")) { fwrite($dosya,$usd_doviz[1]."\n".$usd_doviz[2]."\n".$eur_doviz[3]."\n".$eur_doviz[1]); } 
?>

      <? 
$imkb = file("kur.kur"); 
echo "Doviz Alış: $imkb[0]<br>"; 
echo "Doviz Satış: $imkb[1]<br>"; 
echo "<br>"; 
echo "Euro Alış: $imkb[2]<br>"; 
echo "Euro Satış: $imkb[3]<br>"; 
?>

      <? include('doviz.php'); ?>