[php] Wyciąganie domeny z napisu Opcje

[craker]

Witam,
napisałem sobie skrypt do wyciągania domeny z podanego adresu

Kod

preg_match ('#http:\/\/(www\.)?(.+?)\/#si' , $ala, $key);

czyli w $key[2] mam domenę i skrypt radzi sobie dobrze w przypadku adresu
http://www.adres.pl i http://adres.pl, ale gdy mam adres http://cos.adres.pl i http://www.cos.adres.pl to już jest problem, próbowałem dołożyć po www, że może wystąpić ciąg liter ale wtedy mi łapie też adres jeżeli teskt będzie adres.pl.
jak przerobić to wyrażenie tak aby z linków:

Kod

http://www.adres.pl
http://adres.pl
http://www.adres.pl/cos
http://adres.pl/cos
http://www.cos.adres.pl/
http://cos.adres.pl/

i innych kombinacji zawsze dawało samo adres.pl

Dzięki za pomoc

[rolnix]

[PHP] pobierz, plaintext 
<?php
function wyciagaj($str) {
  $fslash = strpos($str, '/');
  if ($fslash !== false) {
	if ($str[$fslash+1] == '/') $fslash++;
	$str = substr($str, $fslash+1);
	$fslash = strpos($str, '/');
	if ($fslash !== false) {
	  $str = substr($str, 0, $fslash);
	}
  }
  $m = explode('.', $str);
  if (count($m) > 1) {
	return $m[count($m)-2].'.'.$m[count($m)-1];
  } else return $m[0];
}
 
 
echo wyciagaj('http://www.adres.pl');
echo'<br>';
echo wyciagaj('http://adres.pl');
echo'<br>';
echo wyciagaj('http://www.adres.pl/cos/cosssss.txt?cos=cos');
echo'<br>';
echo wyciagaj('http://adres.pl/cos');
echo'<br>';
echo wyciagaj('http://www.cos.adres.pl/');
echo'<br>';
echo wyciagaj('http://cos.adres.pl/');
echo'<br>';
echo wyciagaj('http:/cos.adres.pl/');
?>
[PHP] pobierz, plaintext 

Może i lamersko, ale bez PCRE. Powyższy kod siedem razy wyprodukował napis "adres.pl".