hacks/bitcoin.inflationchart/bcinflation.pl
2011-07-15 06:15:15 +02:00

69 lines
2.0 KiB
Perl
Executable File

#!/usr/bin/perl
# 3456789#123456789#123456789#123456789#123456789#123456789#123456789#123456789#
# bcinflation.pl 20101228 jeffrey paul <sneak@datavibe.net>
# 5539 AD00 DE4C 42F3 AFE1 1575 0524 43F4 DF2A 55C2 # please sign!
use strict;
use warnings qw( all );
use LWP::Simple;
use Data::Dumper;
use HTML::Strip;
use DateTime;
# thanks to nullvoid for historical block data
# that's actually mizerydearia, the witcoin guy
my $historyurl = 'http://nullvoid.org/bitcoin/difficultiez.php';
my $growthfactor = 1.0;
main();
sub main {
my $hist = fetch_history_data() or die "unable to fetch history!";
my $block = 0;
my $totalbc = 0;
my $perblock = 50;
my $at = 1231006505; # block zero timestamp
while ($block < 1500000) { # arbitrary
$block++;
$perblock /= 2 unless $block % 210000;
$at += 60*10/$growthfactor; # estimate block timestamp
# replace with real data if we have it:
$at = $hist->{$block}{'ts'} if exists($hist->{$block});
$totalbc += $perblock;
#if ($block == 210000) {
# print ts2nice($at);
# die;
#}
unless($block % 21000) {
print ts2nice($at) . ",";
print $block . ",";
print $perblock . ",";
print $totalbc. ",";
if (exists($hist->{$block})) {
print $hist->{$block}{'difficulty'};
}
print ",\n";
}
}
}
sub ts2nice { return DateTime->from_epoch( epoch => shift() )->ymd; }
sub fetch_history_data {
my $raw = get($historyurl) or die "derp: $!";
my $clean = HTML::Strip->new()->parse($raw);
$clean =~ s/Block/\nBlock/g;
my $out = {};
foreach my $l (split(/\n+/,$clean)) {
next unless $l =~ /^Block\s+([0-9]+)\s+was.*at\s+([0-9]+).*Difficulty\:\s+([0-9\.]{3,10}).*$/;
$out->{$1}{'ts'} = $2;
$out->{$1}{'difficulty'} = $3;
}
return unless $out->{135072}; # latest diffchange block
return $out;
}
1;
__END__