|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alex Gain 2:5020/400 15 Sep 2000 07:42:33
To : All
Subject : Re: Net::Telnet
--------------------------------------------------------------------------------
In article <8pq8rp$s42$1@host.talk.ru>, pan@sgtrk.e-burg.ru says...
>
>Здравствуй Alex,
>
>AG> кто знает почему скрипт вываливается по timeout?
>AG> Прямо из книги:
>
>AG> use Net::Telnet ();
>AG> $passwd = "что-то";
>AG> $username = "чей-то";
>AG> $domen = "199.99.9.9"; #Понятно условный
>AG> $t = new Net::Telnet (Timeout => 30,
>AG> Prompt => '/ksh\$ $/');
>AG> $t->open($domen);
> $t
>AG> $t->login($username, $passwd);
>AG> @lines = $t->cmd("/usr/bin/who");
>AG> print @lines;
>AG> $host->close;
> $host
>
>Дошло?
>
Hет это не была причина :(
Я, кстати сделал, но так и не понял почему эта конструкция не работала.
Может кто подскажет? А именно:
@lines = $t->cmd("/usr/bin/who");
print @lines;
А вот так работает:
$t->print("/usr/bin/who");
$t->waitfor('/.*$/');
Hо так мне не очень нравится :((
Alex.
--- ifmail v.2.15dev5
* Origin: VSV (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
