Столкнулся с фактом:
#!/usr/bin/perl
use Socket;
use Net::SSH::Perl;
$host = "host";
my $ssh = Net::SSH::Perl->new($host, debug=>1, use_pty=>11);
$ssh->login("username", "pass");
@cd = $ssh->cmd("/usr/local/bin/sudo /bin/bash");
print "cmd result = @cd";

cmd result = Password:

Вопросы:
- Можно ли как нибудь передать пароль через ssh туннель ?
- Если нет, то что можно сделать чтобы в sudoers (sudo) не выставлять флаг NOPASSWD ?
- Как обойти sudo используя ssh туннелирование?

• sudo и net::SSH::Perl,pavel_simple, 10:44 , 14-Мрт-07
• sudo и net::SSH::Perl,chip, 11:04 , 14-Мрт-07
  • sudo и net::SSH::Perl,morzo, 12:58 , 19-Мрт-07
    • sudo и net::SSH::Perl,b0br, 14:02 , 25-Фев-09

expect

>Столкнулся с фактом:
>#!/usr/bin/perl
>use Socket;
>use Net::SSH::Perl;
>$host = "host";
>my $ssh = Net::SSH::Perl->new($host, debug=>1, use_pty=>11);
>$ssh->login("username", "pass");
>@cd = $ssh->cmd("/usr/local/bin/sudo /bin/bash");
>print "cmd result = @cd";
>
>cmd result = Password:
>
>Вопросы:
> - Можно ли как нибудь передать пароль через ssh туннель ?
>
> - Если нет, то что можно сделать чтобы в sudoers (sudo)
>не выставлять флаг NOPASSWD ?
> - Как обойти sudo используя ssh туннелирование?

Стоит посмотреть в сторону empty, если она не устроит своими возможностями - на компбайн expect

>>Столкнулся с фактом:
>>#!/usr/bin/perl
>>use Socket;
>>use Net::SSH::Perl;
>>$host = "host";
>>my $ssh = Net::SSH::Perl->new($host, debug=>1, use_pty=>11);
>>$ssh->login("username", "pass");
>>@cd = $ssh->cmd("/usr/local/bin/sudo /bin/bash");
>>print "cmd result = @cd";
>>
>>cmd result = Password:
>>
>>Вопросы:
>> - Можно ли как нибудь передать пароль через ssh туннель ?
>>
>> - Если нет, то что можно сделать чтобы в sudoers (sudo)
>>не выставлять флаг NOPASSWD ?
>> - Как обойти sudo используя ssh туннелирование?
>
>Стоит посмотреть в сторону empty, если она не устроит своими возможностями -
>на компбайн expect

Большое спасибо! EXPECT рулит ! А вот решение кому интересно:
my $exp = Expect->spawn(
[
qr'Password: $', sub {
                        my $self = shift;
                        $self->send("somePASS\n");
                        exp_continue;
                     }
])
or die "Cannot spawn password !!!\n";
а далее выполняем
$ssh->cmd("/usr/local/bin/sudo someCOMMAND");

>[оверквотинг удален]
>                        $self->send("somePASS\n");
>            
>          
> exp_continue;
>            
>         }
>])
>or die "Cannot spawn password !!!\n";
>а далее выполняем
>$ssh->cmd("/usr/local/bin/sudo someCOMMAND");

Ниасилил. Мне больше подходит:

~]$ echo "Wfee9XaL" |sudo -H -S bash -c  "whoami"
root