Skip to content

Instantly share code, notes, and snippets.

#! /usr/bin/perl
#
# Script to check for changes. It stores the original in a template file
# and (optionally) applies transformations on the output to compare with
# the updated content of a file or output from a command.
#
# Copyright 2016 <kjetil.homme@redpill-linpro.com>
# Released under the GPLv3 or later.
use strict;
@toreanderson
toreanderson / google-ipv6-adoption.pl
Created January 11, 2017 09:31
Fugly hack to list top N countries according to end-user IPv6 deployment stats from Google
#! /usr/bin/perl -w
use strict;
use LWP::Simple;
my $topn = $ARGV[0] || 20;
my $adoptiondata = get("http://www.google.com/intl/en_ALL/ipv6/statistics/data/worldmap.js");
my %countries;
@toreanderson
toreanderson / keybase.md
Created April 13, 2014 08:10
Keybase identity proof

Keybase proof

I hereby claim:

  • I am toreanderson on github.
  • I am tore (https://keybase.io/tore) on keybase.
  • I have a public key whose fingerprint is 6FF7 9008 D323 D5C7 6A2B F3AE ADA2 0634 20AC ABB1

To claim this, I am signing this object: