Hogyan kell olyan Perl scriptet írni, aminek beadok paraméterként egy url címet, és visszaadja az oldalon szereplő összes e-mail címet?

Weboldal letoltese, majd Stringge konvertalasa Perlben sem bonyolult feladat. A kapott szovegben pedig csak az x@y.z alaku regexeket kell megkeresni, ami szinten nem bonyolult.

Hol akadtal el?

"de hogyan tudom letölteni az oldalt,"

LWP:

[link]

[link]

"és paraméterként url címet megadni"

ARGV tömb:

[link]

Ugyan az PWL nem egy komplikált könyvtár, használata gyorsan megtanulható, linux-unix rendszer alól én mégis inkább a curl-t használnám:

perl -e '$page = `curl [link] -s `; @emails = $page =~ /([0-9a-z\._-]+@[0-9a-z\.]+\.[a-z]+)/gi; print join("\t", @emails),"\n"'

Azt azért hozzá kell tenni, hogy a fenti script a szabványos e-mail címek csak egy részét fogja meg, wiki szerint az e-mail-ek elvileg bármilyen ASCII karaktert tartalmazhatnak, sőt, idézőjelek között még egyéb, nem ASCII karakterek is lehetnek. (Mondjuk az e-mail szolgáltatók a saját ép elméjük megőrzése végett ragaszkodnak egy viszonylag szűk set használatához.)

[link]