diff options
Diffstat (limited to 'get-arch-keys.pl')
-rw-r--r-- | get-arch-keys.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/get-arch-keys.pl b/get-arch-keys.pl new file mode 100644 index 0000000..b7ee42d --- /dev/null +++ b/get-arch-keys.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl +use warnings; +use strict; +use JSON; +use WWW::Mechanize; +use v5.10; + +my $url = 'https://www.archlinux.org/master-keys/json/'; + +my $mech = WWW::Mechanize->new(cookie_jar => {}); + +$mech->get($url); +my $json = JSON::decode_json($mech->content()); +for my $node (@{$json->{nodes}}) { + say $node->{key} if $node->{group} eq "packager" and $node->{key}; +} |