PERL ejecutar como root archivo

[Melecio]

la biblioteca SUDO la descargue con CPAN

y me pidio varias veces que ingresara mi clave hasta que termino de instalarce




utilize este ejemplo



use Sudo;
my $su;

$su = Sudo->new(
{
sudo => '/usr/bin/sudo',
sudo_args => '...',
username => $name,
password => $pass,
program => '/path/to/binary',
program_args => '...'
}
);

$result = $su->sudo_run();
if (exists($result->{error}))
{
&handle_error($result);
}
else
{
printf "STDOUT: %s\n",$result->{stdout};
printf "STDERR: %s\n",$result->{stderr};
printf "return: %s\n",$result->{rc};
}












mi ejemplo




use Sudo;
my $su;

$su = Sudo->new(
{
sudo => '/usr/bin/sudo',
sudo_args => '...',
username => mi usuario,
password => mi clave,
program => 'ruta del script perl',
program_args => '...'
}
);

$result = $su->sudo_run();
if (exists($result->{error}))
{
&handle_error($result);
}
else
{
printf "STDOUT: %s\n",$result->{stdout};
printf "STDERR: %s\n",$result->{stderr};
printf "return: %s\n",$result->{rc};
}