Skip to content

Instantly share code, notes, and snippets.

@zoffixznet

zoffixznet/p6.p6 Secret

Created October 16, 2017 19:50
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/9b097d49deba0a115a80e5277e730d12 to your computer and use it in GitHub Desktop.
Save zoffixznet/9b097d49deba0a115a80e5277e730d12 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
p6.p6
use WWW;
my @dists = gather {
for gather { take my $d = Date.today; take $d .= earlier: :day for ^1 } {
"https://irclog.perlgeek.de/perl6/2017-10-$_/text".&get.lines.grep({
/^\d**2":"\d**2\s+buggable\s+"New CPAN upload:" <:Cc + \s> <(\S+)> -<-[-]>+
{take ~$/}/
})
}
};
say @dists;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment