🚀 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
> 
> 
> 

: > 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.

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

pozdrawiam

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
> 
> 
>