#!/usr/bin/perl -w

# Print the change in size for each trial

my $fn = "url_size_per_trial.txt";

open(FILE, $fn) or die("Unable to open $fn: $!");

# header line contains dates
my $line = <FILE>;
chomp($line);

# Print first row of dates
print "$line\n";

while ($line = <FILE>) {
	chomp($line);
	my ($url, @sizes) = split(/\t/, $line);

	print "$url\t";

	foreach my $size (@sizes) {
		my $size_diff = 0;
		if (!defined $urls{$url}) {
			
			# initialize each url to it's actual size
			# or "none" if we don't have a size for it yet
			if ($size > 0) {
				$urls{$url} = $size;
			}
			else {
				$urls{$url} = "none";
			}
		}
		else {
			# If size is 0, then we probably got a 404 or 500
			# or something, so just assume no size change

			if ($size > 0) {
				if ($urls{$url} eq "none") {
					$size_diff = 0;
				}
				else {				
					$size_diff = $size - $urls{$url};
				}
				$urls{$url} = $size;
			}
			else {
				$size_diff = 0;
			}
		}
		print "$size_diff\t";
	}
	print "\n";
	
}
close FILE;