File: findhttp.pl

package info (click to toggle)
libcpan-perl-releases-perl 5.20210320-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 240 kB
  • sloc: perl: 427; makefile: 2
file content (19 lines) | stat: -rw-r--r-- 396 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use strict;
use warnings;
use HTTP::Tiny;
use JSON::PP ();

my $url = 'http://search.cpan.org/api/dist/perl';

my $resp = HTTP::Tiny->new( )->get( $url );
die "Oh dear\n" unless $resp->{success};

my $data = eval { JSON::PP::decode_json( $resp->{content} ) };
die "No data\n" unless $data;
{
  use Data::Dumper::Concise;
  print Dumper( $data );
}

for my $release ( @{ $data->{releases} } ) {
}