Perform a git action on a set of subdirectories

gitall.pl

#!/usr/bin/env perl
# Drew Stephens <[email protected]>
# 2011-02-11
#
# Perform an action on all Git repos given on the command line, or globbed.
#
# Check the status of all Git repos in this directory:
#     gitall.pl status
#
# Check the status of the Git repos "foo" and "bar" in this directory:
#     gitall.pl status foo bar
use strict;
use warnings;

my $gitCommand = $ARGV[0];
my @dirs;

# Get any dirs passed on the command line
print "ARGV count: $#ARGV\n";
foreach (my $x = 1; $x <= $#ARGV; $x++) {
    push @dirs, $ARGV[$x];
}

# Fill dirs if none were passed
if ($#dirs == -1) {
    @dirs = glob '*';
}   

foreach my $dir (@dirs) {
    # Skip things that aren't git repos
    next if ! -d $dir;
    next if ! -d "$dir/.git";
    
    print "Performing <git $gitCommand> in $dir\n";
    system("GIT_DIR=$dir/.git GIT_WORK_TREE=$dir git $gitCommand");
    print "\n";
}