Help for this page

Select Code to Download


  1. or download this
      my @foo = qw/1 2 3/;
  my @bar = qw/4 6 8/;

  @foo += @bar; # foo is now equivalent to qw/5 8 11/
  2. or download this
      my( $uid, $gid ) = (stat $file)[4,5];
  ++$user{$uid};
  ++$group{$gid};
  3. or download this
    #! /usr/bin/perl -w
# scan-uid-gid  copyright (c) David Landgren 2001
...

print "gids\n";
print "\t$_: $group{$_}\n" foreach( sort keys %group );
  4. or download this
    # scan-uid-gid
uids
        2000: 18622
gids
        200: 18622