Skip to content

Instantly share code, notes, and snippets.

@diegok

diegok/get-mail.pl

Created October 24, 2017 21:58
Show Gist options
  • Save diegok/9c55d541baa4f43ce3d1e98a79cb4aef to your computer and use it in GitHub Desktop.
Save diegok/9c55d541baa4f43ce3d1e98a79cb4aef to your computer and use it in GitHub Desktop.
Download ZIP
Raw
get-mail.pl
#!/usr/bin/env perl
use common::sense;
use Mojo::UserAgent;
use Email::Address;
my $url = shift || say("Usage: $0 URL") && exit;
my $dom = Mojo::UserAgent->new->get($url)->res->dom;
say $_->address for Email::Address->parse( $dom->content );
@diegok
Copy link
Author

diegok commented Oct 24, 2017

Example usage:

./get-mail.pl http://www.publico.es/pages/contacto.html

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment