>>>>> ""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 ($<).
my $user = getpwuid $<;
if ($user eq "merlyn") { ... } # it's me!
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
