Skip to content

Instantly share code, notes, and snippets.

@bessarabov

bessarabov/gist:cdfcf6119e7f762d99311fa98c25f274

Created November 1, 2019 08:57
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bessarabov/cdfcf6119e7f762d99311fa98c25f274 to your computer and use it in GitHub Desktop.
Save bessarabov/cdfcf6119e7f762d99311fa98c25f274 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
perl -MJSON::PP -E 'foreach ("001".."031") {$c = `curl -s "https://perlweeklychallenge.org/chart/pwc-challenge-$_.json"`; $d = decode_json $c; say scalar @{$d->{series}->[0]->{data}}; }' | perl -nalE 'push @d, $_ }{ say sprintf "https://quickchart.io/chart?width=500&height=300&c={type:\"bar\",data:{labels:[%s],datasets:[{label:\"Perl Weekly Challenge users by week\",data:[%s]}]}}", join(",", 1..scalar(@d)), join(",", @d)'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment