Regexp pour capture une partie d'url

Bonjour à tous,

j'ai besoin d'aide pour construire une petit expression régulière.
Je cherche à capture les valeurs contenues en deuxième partie d'une url tou en excluant les lignes qui ont pour deuxième partie Home ou home.

Ci-dessous, une liste exemple des urls:

L1: http://url.com/test
L2:http://url.com/home
L3:http://url.com/Home
L4:http://url.com/ferfdfdf
L5:http://url.com/fsdfdffgvbfgdbfb
L6:http://url.com/test
L7:http://url.com/home
L8:http://url.com/Home
L9:http://url.com/ferfdfdf
L10:http://url.com/fsdfdffgvbfgdbfb
L11:http://url.com/test
L12:http://url.com/home
L12:http://url.com/Home/index.php

Ma regexp devrait me retourner les valeurs suivantes:

L1: test
L4:ferfdfdf
L5:fsdfdffgvbfgdbfb
L6:test
L9:ferfdfdf
L10:fsdfdffgvbfgdbfb
L11:test

Jusqu'à présent j'ai réussi à capturer le contraire de ce que je recherche, c'est à dire la partie http://url.com/Home.... avec la regexp suivante:
http:\/\/url\.com\/([Hh]ome.*)?

Mais je n'arrive pas à créer une recherche opposée.

Une idée?

merci d'avance

baocrazy

Vite fait en version pas propre, mais alors pas propre du tout...

Code:

---

1 2 3

$url = 'http://url.com/index.php'; $url =~ m{http://url\.com/(home)*(.*)}i; print $2 ;

---

$2 contient ce que tu cherches

Code:

---

1 2 3

$url = "http://www.developpez.net/forums/newreply.php?do=newreply&noquote=1&p=4029978"; $url =~ m{/([^/]+)$}i; print $1 ;

---

Le plus simple est de sortir le cas "home" :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

@t = ( 'http://url.com/test', 'http://url.com/home', 'http://url.com/Home', 'http://url.com/ferfdfdf', 'http://url.com/fsdfdffgvbfgdbfb', 'http://url.com/test', 'http://url.com/home', 'http://url.com/Home', 'http://url.com/ferfdfdf', 'http://url.com/fsdfdffgvbfgdbfb', 'http://url.com/test', 'http://url.com/home', 'http://url.com/Home/index.php' );   foreach $url (@t) { if($url =~ m{\w+:/+[^/]+/(.+)} && $1 !~ m{^[Hh]ome}) { print "$1\n"; } }

---