#!/usr/bin/perl
# 
# BankItems.pl - Program to parse the SavedVariable file from the WoW Mod BankItems
# 		 David Mcanulty 2007
#
#Usage: ./BankItems.pl < BankItems.lua > BankItems.dat
#
                
my %item_hash;
my $count;

foreach $line (<STDIN>) {
	chomp($line);
	if ($line =~ /\[\"count\"\] \= (\d+),/) {
		$count= $1;
	}
	if ($line =~ /\[\"link\"\] \= \"\|(.*)\|Hitem\:(\d+)\:0\:0\:0\:0\:0\:0\:0\|h\[(.*)\]\|h\|r\"/) {
		my $item= $3;
		$item_hash{"$3"} += $count;
	}
}

foreach my $stack(sort keys(%item_hash)){
	print "$stack ($item_hash{$stack})\n";
}