#!/usr/bin/perl -w

# Print only the urls who registered a size change at every check
# and had at least 1 KB (1024 bytes) size change

use strict;

my $fn = "url_size_changes.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);

	my $print_value = 0;
	foreach my $size (@sizes) {
		if ($size <= -1024 || $size >= 1024) {
			$print_value = 1;
		}
	}
	
	if ($print_value) {
		my $prev_value = 1;
		foreach my $size (@sizes) {
			if ($size == $prev_value) {
				$print_value = 0;
			}
			else {
				$prev_value = $size;
			}
		}
	}

	print "$line\n" if ($print_value == 1);
}

close FILE;