#!/usr/bin/perl -w

# Print only the urls who registered at least one size change

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 (@sizes) {
		if ($_ != 0) {
			$print_value = 1;
		}
	}

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

close FILE;