|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Artem Chuprina 2:5020/400 16 Jan 2002 14:42:51 To : "Serg N. Yakovlev" Subject : Re: IO::Socket ??? и fork()??? -------------------------------------------------------------------------------- Здравствуй, Serg N. Yakovlev. >> SNY> while (defined ($line = <$handle>)) >> SNY> { >> SNY> # print STDOUT $line; >> SNY> print $comd $line; SNY> > SNY> > Куда-куда ты ее печатаешь? SNY> Да я не прав. И если убрать эту строку и вернуть предыдущую все ОК. SNY> Только не для CISCO. Смотрел и на киске и tcpdump-ом все нормально. SNY> Открывается конект на киску и шарашатся туда пакеты как положено. SNY> Hо киска в ответ мертво молчит!!! А в телнет говорит "ОК"! Вот в чем дело SNY> никак не пойму. А хотелось бы получить ответ от Киски. Хоть какой-то. Так еще раз: SNY> > Еще есть такая тонкость, что с STDIN ты получишь "at\n", а модему надо бы SNY> > выдать "at\r". Если ты будешь выдавать кошке "at\n", она тебе отвечать не будет. Телнет на эту тему устроен куда как более сложно, нежели просто TCP соединение. Он при соединении договаривается с тем концом о протоколе обмена, включая реакцию на ентер. Попробуй ей явно "at\r" или "at\r\n" выдать. Да и читают из сокета в норме не так... SNY> > >> SNY> } >> SNY> kill("TERM" => $kidpid); >> SNY> } >> SNY> else{ >> SNY> while (defined ($line = <STDIN>)) >> SNY> { >> SNY> print $handle $line; >> SNY> } >> SNY> } >> SNY> exit; >> SNY> ------------end >> SNY> С уважением SNY> > SNY> > Еще есть такая тонкость, что с STDIN ты получишь "at\n", а модему надо бы SNY> > выдать "at\r". SNY> А вот как в моем случае не используя STDIN и STDOUT , а используя SNY> комманды в скрипте, получить ответ с Киски в переменную??? По документации к IO::Socket, видимо... -- Artem Chuprina Communiware.net RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757 Отправлено через сервер Talk.Ru - http://talk.mail.ru --- ifmail v.2.15dev5 * Origin: Talk.Ru (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/6359513357bc.html, оценка из 5, голосов 10
|