usergroupinfo



#!/usr/bin/perl
@input = "| grep -i \"@ARGV\"" if @ARGV;
@users = `cat /etc/passwd @input`;
#print @input;
foreach $n (@users)
{
  $user =~ /(\S+)/;
  ($a, $b, $c, $d, $name) = split (/:/, $n);
  ($name) = split(/,/,$name);
  next if ($c < 100);
  print "$a\t($name)\t";
  print `id -Gn $a`;
}