#!/usr/bin/env perl -w use strict; #my $argc = @ARGV; #if($argc != 1) { die "Usage: accessUpdate.pl <username>\n"; } my $p4 = "p4 -ztag"; #my $user = "-u $ARGV[0]"; my $command = "users"; my @accessUpdate= `$p4 $command`; foreach (@accessUpdate) { chomp; if(/^\.\.\.\s(User)(.*)$/) { print "$1: $2\t"; } if(/^\.\.\.\s(Email)(.*)$/) { print "$1: $2\n"; } }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#2 | 8645 | Stephen Moon | removing not up-to-date scripts | ||
#1 | 6465 | Stephen Moon | perl, python, and sh files uploaded to the public depot |