neilb · November 25, 2014 21:51
diff --git a/cpan-github-dists b/cpan-github-dists
 #!/usr/local/bin/perl
 #
 # cpan-github-dists
 #
 # Use the MetaCPAN API to build a list of CPAN distributions that have a github repo
 # We show the 2000 most-recently released distributions
 #
 # See output for this at http://neilb.org/github-dists.html
 #
 use strict;
 use warnings;
 use MetaCPAN::Client;

 my $TOP    = 2000;
 my $client = MetaCPAN::Client->new();
 my $query  = { all => [
                    { status => 'latest' },
                    { 'resources.repository.url' => '*github*' }
               ]
             };
 my $params = { fields => [qw(distribution author date version)] };
 my $result_set = $client->release($query, $params);
 my %dist;
 while (my $release = $result_set->next) {
    my $distname = $release->distribution;
    next if $distname =~ /^(Acme|Task-BeLike|Dist-Zilla-PluginBundle-Author)/;
    if (!exists($dist{$distname}) || $dist{$distname}{date} lt $release->date) {
        $dist{ $distname } = { date => $release->date, version => $release->version, author => $release->author };
    }
 }

 generate_header();
 generate_body();
 generate_footer();

 sub generate_body
 {
    my $count = 0;
    foreach my $distname (sort { $dist{$b}{date} cmp $dist{$a}{date} } keys %dist) {
        printf "<tr><td><a href='https://metacpan.org/release/%s'>%s</a></td><td><a href='https://metacpan.org/author/%s'>%s</a></td><td>%s</td><td>%s</td></tr>\n",
               $distname, $distname,
               $dist{$distname}{author}, $dist{$distname}{author},
               $dist{$distname}{version}, $dist{$distname}{date};
        last if ++$count >= $TOP;
    }
 }

 sub generate_header
 {
    print <<"END_HEADER";
 <!DOCTYPE html>
 <html>
 <head>
    <meta charset="utf-8">
    <title>CPAN Adoption Candidates</title>
    <link rel=stylesheet href="http://neilb.org/adoption/adoption.css" type="text/css">
    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.8.2/jquery.min.js"></script>
    <script src="http://neilb.org/adoption/jquery.tablesorter.min.js"></script>
 </head>
 <body>
 <h1>CPAN distributions with a github repository</h1>
 <table>
 <thead>
 <tr>
    <th align=left>Distribution</th>
    <th align=left>Author</th>
    <th align=left>Version</th>
    <th align=left>Date</th>
 </tr>
 </thead>
 <tbody>
 END_HEADER
 }

 sub generate_footer
 {
    print <<'END_FOOTER';
 </tbody>
 </table>
 <script>
    $().ready( function () {
        $('table').tablesorter();
    });
 </script>
 </body>
 </html>
 END_FOOTER
 }
	#!/usr/local/bin/perl
	#
	# cpan-github-dists
	#
	# Use the MetaCPAN API to build a list of CPAN distributions that have a github repo
	# We show the 2000 most-recently released distributions
	#
	# See output for this at http://neilb.org/github-dists.html
	#
	use strict;
	use warnings;
	use MetaCPAN::Client;

	my $TOP = 2000;
	my $client = MetaCPAN::Client->new();
	my $query = { all => [
	{ status => 'latest' },
	{ 'resources.repository.url' => 'github' }
	]
	};
	my $params = { fields => [qw(distribution author date version)] };
	my $result_set = $client->release($query, $params);
	my %dist;
	while (my $release = $result_set->next) {
	my $distname = $release->distribution;
	next if $distname =~ /^(Acme\|Task-BeLike\|Dist-Zilla-PluginBundle-Author)/;
	if (!exists($dist{$distname}) \|\| $dist{$distname}{date} lt $release->date) {
	$dist{ $distname } = { date => $release->date, version => $release->version, author => $release->author };
	}
	}

	generate_header();
	generate_body();
	generate_footer();

	sub generate_body
	{
	my $count = 0;
	foreach my $distname (sort { $dist{$b}{date} cmp $dist{$a}{date} } keys %dist) {
	printf "<tr><td><a href='https://metacpan.org/release/%s'>%s</a></td><td><a href='https://metacpan.org/author/%s'>%s</a></td><td>%s</td><td>%s</td></tr>\n",
	$distname, $distname,
	$dist{$distname}{author}, $dist{$distname}{author},
	$dist{$distname}{version}, $dist{$distname}{date};
	last if ++$count >= $TOP;
	}
	}

	sub generate_header
	{
	print <<"END_HEADER";
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="utf-8">
	<title>CPAN Adoption Candidates</title>
	<link rel=stylesheet href="http://neilb.org/adoption/adoption.css" type="text/css">
	<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.8.2/jquery.min.js"></script>
	<script src="http://neilb.org/adoption/jquery.tablesorter.min.js"></script>
	</head>
	<body>
	<h1>CPAN distributions with a github repository</h1>
	<table>
	<thead>
	<tr>
	<th align=left>Distribution</th>
	<th align=left>Author</th>
	<th align=left>Version</th>
	<th align=left>Date</th>
	</tr>
	</thead>
	<tbody>
	END_HEADER
	}

	sub generate_footer
	{
	print <<'END_FOOTER';
	</tbody>
	</table>
	<script>
	$().ready( function () {
	$('table').tablesorter();
	});
	</script>
	</body>
	</html>
	END_FOOTER
	}