parse_instagram_id.pl

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;

my $INSTAGRAM_EPOCH = 1314220021721; # Thu Aug 24 2011 21:07:01 GMT

my $id = $ARGV[0] or die 'id needed';

my $raw_timestamp = ($id >> 23) & ((1 << 41) - 1);
my $timestamp = $raw_timestamp + $INSTAGRAM_EPOCH;
my $shard = ($id >> 10) & ((1 << 13) - 1);
my $seq = $id & ((1 << 10) - 1);

say "timestamp: $timestamp";
say "shard: $shard";
say "sequence: $seq";