PERL ejecutar como root archivo

[Melecio]

Hola a todos

hice un script en perl lo malo esque para ejecutarlo tengo que acceder como root en la consola para que funcione

lo que hice es que ubuntu abra una terminal al arrancar y ejecute el comando para ejecutar este escript perl


como puedo hacer para que al momento de que inicie acceda como root

busque en perl use Sudo

pero me marca que no funciona, alguin sabe como lograr esto.


Gracias.

[AlvaroG]

¿Qué quieredecir que "me marca que no funciona"? ¿Qué ves en la pantalla? ¿qué mensajes de error aparecen? ¿cómo estás usando la biblioteca Sudo?

[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};
}

[Melecio]

este es el error






Can't locate Sudo.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl .) at sudo.pl line 1.
BEGIN failed--compilation aborted at sudo.pl line 1.

[Melecio]

ok lo volvi a instalar y me genero este resultado


HASH(0x9850328)
STDOUT:
STDERR:
return:

[AlvaroG]

¿y hace lo que debe hacer o no?