Corion

$ run-sql.pl --sql "select distinct i.number, rtrim(i.html_url), i.title from issue i join comment c on c.issue_url=i.url where c.body like '%\`\`\`diff%' order by i.number" --dsn dbi:SQLite:dbname=db/issues.sqlite
number rtrim(i.html_url)                          title                                                                                                                                                     
  899  https://github.com/Perl/perl5/issues/899   The value of pattern match vars. after `next'                                                                                                             
 1509  https://github.com/Perl/perl5/issues/1509  inconsistent warnings                                                                                                                                     
 4479  https://github.com/Perl/perl5/issues/4479  gcc on IRIX64 breaks inet_ntoa                                                                                                                  

Corion

#!perl
use strict;
use warnings;
use Net::GitHub;
use Data::Dumper;
use feature 'signatures';
no warnings 'experimental::signatures';
use JSON;
use Getopt::Long;
use Text::CleanFragment 'clean_fragment';