tools/p4group.pl

   1 #!/bin/perl
   2
   3 die "usage: p4group username\n" if (@ARGV != 1 || $ARGV[0] =~ /^-[h?]/);
   4
   5 push(@check, $ARGV[0]);
   6 while (@check)
   7 {
   8         $_ = shift @check;
   9         open(P4, "p4 groups " . $_ . "|");
  10         while (<P4>)
  11         {
  12                 chomp;
  13                 if (!defined $groups{$_})
  14                 {
  15                         push(@check, $_);
  16                         $groups{$_} = 1;
  17                 }
  18         }
  19         close(P4);
  20 }
  21
  22 print join("\n", sort keys %groups);