#!/usr/bin/perl -w
use LWP::Simple;
use JSON qw( decode_json );
use Encode;
use strict;

my $board_uri="https://2ch.hk/s/catalog.json";
my $threads_base_uri="https://2ch.hk/s/res/";

my $board = decode_json(encode('UTF-8', get($board_uri)));
my %os_data;
my %browser_data;

for(my $i=0;$i<=$#{$board->{'threads'}};$i++)
{
	my $thread = decode_json(encode('UTF-8', get($threads_base_uri.$board->{'threads'}[$i]->{'num'}.'.json')));
	for(my $j=0;$j<=$#{$thread->{'threads'}[0]->{'posts'}};$j++)
	{
		my $os=$1, my $browser=$2 if $thread->{'threads'}[0]->{'posts'}[$j]->{'name'} =~ m/.+>\(([^:]+): (.+)\)<+/;
		$os_data{$os}++;
		$browser_data{$browser}++;
	}
	print $i+1," of ".$#{$board->{'threads'}}." done\n";
}

open(OS,"> os_stat.txt");
foreach my $os (sort {$os_data{$b} <=> $os_data{$a}} keys %os_data)
{
	print OS "$os,$os_data{$os}\n" unless $os eq "";
	delete $os_data{$os};
}
close(OS);

open(BROWSER,"> browser_stat.txt");
foreach my $browser (sort {$browser_data{$b} <=> $browser_data{$a}} keys %browser_data)
{
	print BROWSER "$browser,$browser_data{$browser}\n" unless $browser eq "";
	delete $browser_data{$browser};
}
close(BROWSER);