Help for this page

Select Code to Download


  1. or download this
    $ perldoc -f chown
  ($login,$pass,$uid,$gid) = getpwnam($user)
    or die "$user not in passwd file";
  2. or download this
    $ perl --version
This is perl, v5.8.5 built for i386-linux-thread-multi
...

$ perl -wle 'use strict; my (undef,undef,$uid,$gid) = getpwnam(q[roo])
+ or die "oh no"; print $uid;'
500