Risk by email stats

  use strict;
  use experimental 'switch';
  open my $fh, "<", "txt/risk_log.txt" or die "no file";
  my @players=qw/Andrew Josh Will Ben Jim/;
  my $turn=0;
  my @res=();
  my $init = {};
  my $adjust= 0;
  my %player_contries=(); # track ownership
  my @keys = qw/turn a.player d.player a.country a.n d.country d.n a.lost d.lost status/;
  while($_=<$fh>){
    # we could only set player when they change turns
    # but easier to do each new line
    my $playeridx = ($turn-$adjust)%($#players+1);
    my $player = $players[$playeridx];
    given ($_) {
     when (/Deployed.*to ([A-Z].+) \(/) {
      # initialze who owns what. misses anything never reinforced (abandoned first assingments)
      #print STDERR "on $turn: $1 was ", $player_contries{$1}||"unknown", ", now $player\n";
      $player_contries{$1}=$player; 
     } when (/([A-Z].+) \((\d+)\) attacks ([A-Z].+) \((\d+)\) /) {
      # starts like "XXX (nx) attacks YYYY (ny) "
      # rolls include losses

      # dont update if switch from "until defeted" to "with x"
      if(! %$init                      || # no init
	 $init->{"turn"}      != $turn || # different round
	 $init->{"a.country"} != $1    || # different attack
	 $init->{"d.country"} != $3       # different defend
      ){ 
        if(%$init){
	    print STDERR "gave up and attacked someone new!? @{$init}{@keys} -> $_";
	    push @res, $init;
	}
	my $adv = $player_contries{$init->{"d.country"}}||"NA";
	$init = {"turn"=>$turn,
	         "a.player"=>$player, "d.player"=>$adv,
		 "a.country"=>$1, "a.n"=> $2,
		 "d.country"=>$3, "d.n" => $4, 
		 "a.lost" => 0, "d.lost" => 0,
		 "status"=>"kept"};
        print STDERR "ERROR: already $init->{'d.country'}=> $player ($adv): @{$init}{@keys}\n" if $adv == $player;
      } else {
        print STDERR "until def to 1/2 attackes @{$init}{@keys} -> $_"
      }
     } when (/^Attacker lost (\d+)/) {
      $init->{"a.lost"}+=$1;
     } when (/^Defender lost (\d+)/) {
      $init->{"d.lost"}+=$1;
     } when (/captured/){
      # event ends with a capture.
      # if kept we dont get a new message. but log starts new event

      # if captured, update to say so (otherwise keep "kept" status)
      $init->{status} = $&;
      $player_contries{$init->{"d.country"}} = $player;
      print STDERR "changed owernship $init->{'d.country'} => $player_contries{$init->{'d.country'}}: @{$init}{@keys}\n";
      push @res, $init if %$init; 
      $init = {};
    } when(/^(\S+) defeated/) {
      # compensate for defeated person
      my $defeated=$1;
      @players = grep {!/$defeated/x} @players;
      # how many rounds have played -- remove that from the total turn count
      # so we can pretend the defeated never existed
      $adjust = $turn-$playeridx+1;
    } when(/END OF TURN/) {
      # finally turns are finished
      push @res, $init if %$init; 
      print STDERR "no ownership change: @{$init}{@keys}\n";
      $init = {};
      $turn++;
    }
  }
  }

  # add header
  my %keys = (); $keys{$_}=$_ for (@keys);
  unshift @res, \%keys;
  # make it into a table
  join "\n", map {join("\t", @{$_}{@keys})} @res;