Randal L. Schwartz wrote:
""Rajnikant"" == "Rajnikant" <[EMAIL PROTECTED]> writes:
"Rajnikant"> I think Work around for this is,
"Rajnikant"> My $usr = $ENV { USER };
"Rajnikant"> If ($usr eq "userA")
"Rajnikant"> Go get it
"Rajnikant"> Else
"Rajnikant"> Access restricted.
No, you want scalar getpwwuid ($<).
Your w key is stuck Randal, that should be:
scalar getpwuid ($<)
:-)
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
