VPF::Net::SSH::Expect и mtr - Форум программистов

MZ412

Дата 15.9.2010, 20:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 4.12.2009

Репутация: нет
Всего: нет

Пытаюсь удалённо выполнить команду mtr и получить данные.

Код


#!/usr/local/bin/perl -w

use warnings;
use strict;

use Net::SSH::Expect;

my $host = "x.x.x.x";

my $ssh = Net::SSH::Expect->new (
        host => "host",
        password=> 'pass',
        user => 'user',
        raw_pty => 1
);

$ssh->run_ssh() or die "SSH process couldn't start: $!";

my $login_output = $ssh->login();

$ssh->send("/usr/local/sbin/mtr -r -c 10 $host");

my $line;
        while ( defined ($line = $ssh->read_line()) ) {
         print $line . "\n";  
}

$ssh->close();

Результат - /usr/local/sbin/mtr -r -c 10 x.x.x.x
А должна быть трассировка.
Права на выполнение есть. Проверил.
С find / или какой ещё командой, выдающей в STDOUT поток - всё ок.

Может кто сталкивался?

upd
Пробовал все методы, кроме как с авторизацией ибо напрасно...

Это сообщение отредактировал(а) MZ412 - 15.9.2010, 22:30

MZ412

Дата 16.9.2010, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 4.12.2009

Репутация: нет
Всего: нет

Проблема была в строке запуска /usr/local/sbin/mtr -r -c 10
Надо было -c 1 выставлять. При 10 сек. таймаута почему то результат улетал в трубу.
Ну хорошо что не в коде дело.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »