blob: f9fa9b84c28720a0c3cfc2bd22e0b16bbd9c0afc (
plain)
- #!/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`;
- }
|