Problème de regxp

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:

---

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

Code:

---

1 2 3 4 5

sub _reverse_domain { my $domain = shift; my @parts = reverse split/\./, $domain; return join '.', @parts[0..($#parts - 1)]; }

---

--
Jedaï