#!/usr/bin/perl -w #use strict; #use List::MoreUtils qw(uniq); open IN, '/var/games/nethack/logfile'; my @log = ; close IN; open OUT, ">", "www/nethackempire.html"; select OUT; my %empires = (); # NOTES # let's make a map of empire=>array; array contains male/female and alignment count print " \n \n \n nethack empire\n \n \n \n

~endorphant@ctrl-c.club

\n

nethack empire demographics

\n "; foreach (@log) { my @line = split(' ', $_); my $role = $line[11]; my $race = $line[12]; my $gender = $line[13]; my $align = $line[14]; my @tomb = split(',', $line[15]); my $user = shift(@tomb); if (!exists $empires{$user}) { $empires{$user} = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]; # 0 pop 1 m 2 f 3 chao 4 neu 5 law 6 hum 7 dwa 8 elf 9 gno 10 orc } $empires{$user}[0]++; if ($gender =~ /Mal/) { $empires{$user}[1]++; } else { $empires{$user}[2]++; } if ($align =~ /Cha/) { $empires{$user}[3]++; } elsif ($align =~ /Neu/) { $empires{$user}[4]++; } else { $empires{$user}[5]++; } } print "\n"; print "

sourced from server nethack logs

\n"; print "\n\n"; close OUT;