expressions réguliaires

[mathlouthi]

Bonjour ,

j ai un tableau qui contient des urls de la forme http://domaine.com/gggdh/jjjjd/kld.php par exemple , je voudrais extracter que les noms de domaines cad je voudrais que cette url devient http://domaine.com


foreach my $case (@startlinks)
{

$case = \case* ^http:\/\/([^\/]+)(.*) \1;

}


j ai utilisé ce code mais il ya beaucoup d'erreurs


avez vous d'idées?
Merci d'avance ..