Skip to content

Instantly share code, notes, and snippets.

@z448
Last active December 2, 2015 09:00
Show Gist options
  • Save z448/b211864376cac3f50911 to your computer and use it in GitHub Desktop.
Save z448/b211864376cac3f50911 to your computer and use it in GitHub Desktop.
#!/usr/bin/env perl
#
use PAR 'http://module.pm/libdebdig';
use pQuery;
if ($ARGV[0]) { $arg=$ARGV[0] }
sub digdebs {
my $arg = unpack(chr(ord("a")+19+print""), $_);
pQuery(my $url=$arg)->find("a")->each(sub {
my $i=shift;
push @debs, pQuery($_)->text;
});
@debs;
}
while (<DATA>) {
for (digdebs($_)) { print "$_\n" };
}
__DATA__
M:'1T<#HO+V-O<F5D978N;FPO8WED:6$O9&ES=',O:7!H;VYE+VUA:6XO8FEN187)Y+6EP:&]N96]S+6%R;2\`
;:'1T<#HO+V%P="YS875R:6LN8V]M+V1E8G,O
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment