Alexander (HH): im Perlscript aufrufenden user abfragen.

Beitrag lesen

Moin Moin!

Hallo,

gelöst habe ich es so,

sub isroot

{
my $tmp=whoami;
chomp($tmp);

if ($tmp eq 'root')
{return 1;}
else
{return 0;}
}


>   
>     gruß  
>        piet  
  
Oder kurz, ohne Extra-Prozess und ohne Angriffsmöglichkeiten über $ENV{'PATH'}:  
  
$<==0  
  
Siehe [perlvar](http://perldoc.perl.org/perlvar.html).  
  
Alexander

-- 
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so".