device-major-number-counts.pl

#!/usr/bin/env perl
#
# Major device number counts of the home files at http://sylab-srv.cs.fiu.edu/doku.php?id=projects:iodedup:start
#
# run like this: perl counts.pl homes-*

use strict;

my %count = ();

# Collect
while (<>) {
	# Split the line by spaces
	my @columns = split ' ';

	# Tally a count by column 6: major device number
	$count{$columns[6]}++;
}


# Print out the counts
while( my( $key, $value ) = each %count ){
    print "$key: $value\n";
}