🚀 go-pugleaf

Tomek pisze:
> Witam
> 
> Jest taki skrypt (openPerlIde, Windows), który działa j/n:
> 
> 
> 1. połączenie z serwerem
> use Net::Telnet ();
> my $t = new Net::Telnet (Timeout=>100);
> $t->open("10.92.115.1");
> 
> 2. uruchomienie na w/w serwerze nakładki do obsługi urządzeń
> $t->cmd("xpie");
> 
> 3. następnie uruchamiam plik batch działający pod tą nakładką
> (plik batch leży na w/w serwerze)
> $t->cmd("xxxyyy.batch");
> i jest ok batch się wykonuje, ale skrypt czeka. Ten batch
> tworzy loga około 30 MB, trwa to ponad godzinę i sktypt po
> chwili wyświetla time-out lub przekroczony rozmiar bufora.

Może spróbuj ustawić stosowne opcje przy tworzeniu obiektu Telnet:
http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
$obj = new Net::Telnet (
[...]
                         [Timeout    => $secs,]);
Net::Telnet->new(Timeout => 20);
The default Timeout is 10

$obj->max_buffer_length - maximum size of input buffer

> 
> I chodzi mi o to, żeby batch się uruchomił, a skrypt
> poszedł dalej (nie czekał). Jest to możliwe??

Tu bym sugerował zrobić forka:

$pid=fork();
if ($pid) {
     # if - in main process - run init
     # tu skrypt może pojść sobie dalej
     # ...
} else {
     # else - in child process - opened pipe by open()
     $t->cmd("xxxyyy.batch");
     exit();
};

> 
> pozdrawiam
> 
> 
>