users #1

#!/usr/bin/env cmperl
#-*-mode:perl-*-
#***************************************************************************
#          (c) Copyright 2002 Reshape Inc., All Rights Reserved.
#                              www.reshape.com
#***************************************************************************
#
#         File : users
#       Author : Jeremy Russell
#         Date : June 20, 2002
#
#  Description : Counts the unique users in all of the Perforce servers.
#
#***************************************************************************

my (%users) ;

while (my $server = <DATA>) {
    chomp $server;

    my (@users) = `p4 -p $server users`;
    foreach my $user (@users) {
        $users{(split (' ', $user))[0]} .= $server . ' ';
    }
    close USERS;
}

print join (' ', map { "$_ => $users{$_}\n" } keys (%users));
print "Total: ", scalar (keys (%users)), "\n";


__DATA__
perforce.reshape.com:7070
perforce.reshape.com:7007
perforce.reshape.com:7117
perforce.reshape.com:7227
perforce.reshape.com:7337
perforce.reshape.com:7447