Dotaz: perl Net:telnet a sun telnet

[Neci]

Dobry den mam takyto problemik neviem ako urcit v perli premennu waitfor kedze telnet na sun-e vyzera trosku inac a to:

$cislo_riadku $uzivatel $adresar >

vyzera to takto:

1 pokus /home/pokus>

Lenze som nenasiel iny priklad takze neviem ako mam napisat toto pre solaris(priklad je pre normalny bash):

$telnet->waitfor('/\$ $/i');

Odpovědi

[kp]

Co treba takto

  $telnet->waitfor('/\> $/i');

Tam mezera mezi > a $ mozna nemusi byt. Zalezi asi na tom, jestli je v tom promptu obsazena nebo ne.

[Neci]

Takto som to skusal ale po vykonani:

$telnet->waitfor('/\> $/i');
$telnet->print('who');
$output = $telnet->waitfor('/\> $/i'); 
print $output;

je vysledok nie prikaz who ale len cislo riadku a to 1, ale vyriesil som to bez waitfor proste som dal

pause 1;
print $telnet->cmd('who');

ale aj tak by ma zaujimalo preco to nejde

[mlz]

->waitfor ocekava REGEX, mam pocit ze

->waitfor('/\d+\s+\S+$/') # >1 cisel, >1 mezera, >1 nemezera, konec

by mohlo pomoc

[Neci]

no nefunguje ani to, ok kaslem na to ziadne waitfor