Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Assignment help

by InfiniteSilence (Curate)
on May 17, 2014 at 13:59 UTC ( #1086441=note: print w/replies, xml ) Need Help??


in reply to Assignment help

Self-deprecation is the primary source of your problems ("im really bad in programming"); your second problem is that although you are apparently on the Internet, you must not yet know that it is the treasure trove of information that can make a great many things possible. This is slop, but it should point you in the right direction:

perl -MLWP::Simple -e 'my $page = get(qq|http://redis.io/topics/securi +ty|); if($page=~m/(\S+\@\S+)/g){print qq|$1\t|}'
Makes,
<antirez@gmail.com>
 #note: dumb regex on purpose to conf +ound e-mail scanners

Read:

Celebrate Intellectual Diversity

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1086441]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2022-01-18 16:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (53 votes). Check out past polls.

    Notices?