Discussion :

[killuaster]

Bonjours, je postes car j'ai un probleme avec les expressions régulières je n'arrive pas à m'en sortir et à trouver se que je veux malgrès la faq et les tutoriaux à ce sujet. Par exemple je voudrais recuperer un lien quelquonque ftp dans la source d'une page internet que j'aurais intercepter à l'aide du module LWP::Simple (avec get). Donc je reçois le contenue de toutes la page mais je ne sais pas afficher se qui m'interesse précisement dans mon cas un lien ftp de la form:
ftp://login:pass@domaine.com/

Se qui est fort ennuyant car c'est la seule chose qui me reste à faire dans mon programme.
Si quelqu'un pourrais que faut il mettre et pourquoi sa serais vraiment sympa. Merci.

[Woufeil]

Bonjour,

Et bien, je ne vois pas de problème particulier à ça... La regex qui repère ton format pourrait ressembler à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

m/ftp:\/\/.+?@.+N\.com\//

J'ai testé ma regex sur ftp://login:pass@domaine.com/ ; elle marche

Maintenant, pour récupérer ce lien, il te suffit d'utiliser les références arrières :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my ($result) = $chaine =~ m/(ftp:\/\/.+?@.+?\.com\/)/

Et voilà !

[killuaster]

Merci bien je vais tester sa . Pourrais tu m'expliqués si cela ne te dérange pas biensur a quoi correspond (ftp:\/\/.+?@.+?\.com\/) , car même en lisant des tutos j'ai encore du mal.

Ps: Je viens de tester sa marche bien , par contre si il y a plusieurs lien ftp dans la page, il ne m'affiche que le premier serais tu comment faut il faire ?

[Woufeil]

Et bien, cette regex n'est pas très copmpliquée... ftp: : pas de problèmes. Les deux \/ servent à matcher les / (le slash aant une significations particulière dans une regex, il faut le backslasher pour qu'il soit considéré comme un simple slash). le . signifie n'importe quel caractère. Le +? signifie une fois ou plus. Pas de problème pour la suite

Si tu veux tout récupérer, tu dois le faire à l'aide d'un tableau comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my (@tab) = $chaine =~ m/(ftp:\/\/.+?@.+?\.com\/g)/

Chaqe élement du tableau sera l'une des adresses.

Voilà !