Riconoscere un url e un'email

[luclanet]

Ho una pagina html come posso riconoscere gli url e gli indirizzi email?

Ho necessità di inserirli all'interno di un'array...

Vi ringrazio e buona notte

[Mich_]

Gli url rispondono ad una RE di questo tipo:

/[\w]?http[a-z]?\:\/\/([\w\-]\.)+\w{2,5}(\/[\w\-])*[^\"\' ]/


Gli indirizzi e-mail:

/[a-zA-Z][\w\-\.]+\@([\w\-]\.)+\w{2,5}/


Con l'uso appropriato di queste RE riesci ad estrarre le stringhe che ti interessano.

[luclanet]

sei un grande!!!

[luclanet]

come faccio a scorrere tutta la pagina per cercare quello che voglio e averli belli e ordinati in un array?

[Mich_]

Puoi fare una cosa di questo tipo.

$inp = <FILE>;
$inp =~ /([\w]?http[a-z]?\:\/\/([\w\-]\.)+\w{2,5}(\/[\w\-])*[^\"\' ])|([a-zA-Z][\w\-\.]+\@([\w\-]\.)+\w{2,5})/
if($1) $vett[@vett] = $1;

Da inserire in un loop che esce se il file e` finito.

Se ci possono essere piu` di un indirizzo e-mail o Web nella stessa riga, occorre modificare un po'.

Nota che il forum ha tagliato qualche backslash (sicuramente davanti all'apice) e forse ha inserito qualche spazio/acapo

[luclanet]

provato con foreach ma non mi funge... non trova niente!!!

[Mich_]

foreach?? Che c'entra? Non hai un vettore o hash, ma una stringa da leggere di volta in volta.

Potresti usare un while.

E poi mettici dei print in mezzo per vedere cosa sta facendo nel loop.

PS non ho provato il codice che ti ho dato, per cui potrebbe anche contenere errori.

[luclanet]

ho splittato il file dove devo ricercare e ho dato un if con la condizione che mi hai dato te ma non trova niente...

[luclanet]

la ricerca per solo questo

http://www.prova.it/nome.html
http://www.prova.it

che mi dia solo questo

http://www.prova.it/