Skip to content

Instantly share code, notes, and snippets.

@zoffixznet

zoffixznet/p6.p6 Secret

Created December 29, 2016 13:41
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zoffixznet/4a128614904fb65ee9908e1bfe9aeba1 to your computer and use it in GitHub Desktop.
Save zoffixznet/4a128614904fb65ee9908e1bfe9aeba1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
p6.p6
#!/usr/bin/env perl6
use WWW::Mechanize:from<Perl5>;
my $mech = WWW::Mechanize.new: :0autocheck;
$mech.get('http://perl6.fail');
my @RTs = $mech.find_all_links: :text_regex(/^RT/);
"{.text}: {.url}".say for @RTs;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment