Dans un programme j'ai besoin de tronquer des urls par exemple transformer fr.wikipedia.org en org.wikipedia et c'est la que je bute.

J'arrive a inverser l'ordre pour obtenir org.wikipedia.fr mais je n'arrive pas a supprimer le .fr ou .qqchose pour n'avoir que org.wikipedia

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
sub _reverse_domain
{
  my $data = shift;
  my $url = join '', grep { $_ .= '.' } reverse split/\./, $data;
     $url =~ s/\.$//; # vire le point finale
  (my $r = $url)=~ m|([\w]+\.[\w]+)\.$|; # marche pas :s
  return $r;
}

j'ai essayé plusieurs regexp mais aucun de fonctionne.

merci