🚀 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();
> : };
> :
> dzięki za szybką odpowiedź, spróbowałem kilka
> przykładów z użyciem fork i za każdym razem:
> Wystąpił problem z aplikacją PerlIDE.exe i zostanie
> ona zamknięta.

Ciekawe, skoro pod liuxem to działa,
spodziewałem się, że pod windowsem też zadziała bez problemów,
windows też ma chyba coś w rodzaju forka,

> 
> może użyć IPC::RUN ??

Nie wiem, nie używałen nigdy IPC,
spróbuj i sprawdź, tyle mogę napisać,

> 
> pozdrawiam
> 
> 
>