arbitronsort.pl   [plain text]

#!/usr/local/bin/perl

#
# This script takes the output of arbitron (run without the -o option)
# and prints out first
# a ranking of mailboxes by # of people who selected the mailbox
# and then a ranking of mailbox by # of subscribers.
#

%data = ();
%subs = ();

while(<>) {
    /^(.*) (\d+) (\d+)$/;
    $data{$1} = $2;
    $subs{$1} = $3;
}

$rank = 1;

foreach $key (sort { $data{$b} <=> $data{$a} } (sort keys %data)) {
    print $rank++ . ": $key - $data{$key}\n";
}

print "\n\n";

$rank = 1;

foreach $key (sort { $subs{$b} <=> $subs{$a} } (sort keys %subs)) {
    print $rank++ . ": $key - $subs{$key}\n";
}