Remember, the non-linenoise variables (ie $EUID instead of $>) require
"use English;".
On 26 Jun 2001 12:07:00 -0400, Chris Hedemark wrote:
> There are some reserved variables that you should keep in mind for this
> purpose (taken from "Perl in a Nutshell"):
>
> $>
> $EFFECTIVE_USER_ID
> $EUID
> The effective UID of the current process.
>
> $<
> $REAL_USER_ID
> $UID
> The real UID of the current process.
>
> You can couple this with the function getpwuid() to return the actual user
> name.
>
> There may be a more effective way to do this, but here is an example script:
>
>
> #!/usr/bin/perl
> #
> # Name: getpwuid.pl
> # Author: Chris Hedemark <[EMAIL PROTECTED]>
> # License: BSD
> # Purpose: Demonstrate the getpwuid() function
>
> # $< is a reserved variable for the current real UID of this process.
> $uname = getpwuid($<);
> print "$uname is the real user name running this process.\n";
>
> # $> is a reserved variable for the current effective UID of this process.
> $uname = getpwuid($>);
> print "$uname is the effective user name running this process.\n";
>
>
>
> ----- Original Message -----
> From: "Matija Papec" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Tuesday, June 26, 2001 8:38 AM
> Subject: whoami?
>
>
> >
> > Greetings,
> >
> > is there a more elegant way to find out who is running a script? %ENV is
> > not reliable and it doesn't contain USER when booting the system, and
> > "whoami" is external command(yuck :) ) tnx!
> >
> >
> >
> > --
> > Matija
> >
>
>
>
--
Today is Boomtime, the 31st day of Confusion in the YOLD 3167
You are what you see.
