Statistics

#!/usr/bin/perl open (IN_RESULT,"statistics.txt"); @IN_RESULT = ; close (IN_RESULT); @armyImages = ('"images/icon_army_dwarf.gif"', '"images/icon_army_empire.gif"', '"images/icon_army_lizard.gif"', '"images/icon_army_orcs.gif"', '"images/icon_army_skaven.gif"' ); print < Statistics WEB_PAGE $imageCount = 0; foreach $entry (@IN_RESULT) { @current = split (':',$entry); print < WEB_PAGE $count++; } print <

@current[1]

@current[2]

@current[3]

@current[4]

@current[5]

@current[6]

@current[7]

@current[8]

@current[9]

@current[10]

WEB_PAGE