|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Serg N. Yakovlev 2:5020/400 16 Jan 2002 13:24:54
To : Artem Chuprina
Subject : Re: IO::Socket ??? и fork()???
--------------------------------------------------------------------------------
Здравствуйте.
"Artem Chuprina" <ran@ice.ru> wrote in message
news:slrna4abqg.ggn.ran@party.ice.ru...
> Здравствуй, Serg N. Yakovlev.
>
>
> SNY> Привет!
> SNY> Вот пытаюсь пример воспризвести.
> SNY> Хочется, открыв соединение и передав команду, получить обратно ответ.
Hа том
> SNY> конце киска с модемами и при подключении на порт линии и команде
"at", дает
> SNY> "ОК"
> SNY> Hо в данном случае не происходит! Подскажите почему. Пример взят
почти из
> SNY> примеров "Perl Cookbook". Код:
> SNY> ---------open
> SNY> #!/usr/bin/perl
> SNY> #
> SNY> #$handle->$autoflush(1);
<-------------------------почемуто при
^^^^здесь извиняюсь ошибка надо просто
autoflush(1)
> SNY> отладке ругается???
>
> SNY> #print STDERR "[Connect to $host:$port]\n";
>
> SNY> die "can't fork: $!" unless defined($kidpid=fork());
>
> SNY> if ($kidpid)
> SNY> {
> SNY> while (defined ($line = <$handle>))
> SNY> {
> SNY> # print STDOUT $line;
> SNY> print $comd $line;
>
> Куда-куда ты ее печатаешь?
Да я не прав. И если убрать эту строку и вернуть предыдущую все ОК.
Только не для CISCO. Смотрел и на киске и tcpdump-ом все нормально.
Открывается конект на киску и шарашатся туда пакеты как положено.
Hо киска в ответ мертво молчит!!! А в телнет говорит "ОК"! Вот в чем дело
никак не пойму. А хотелось бы получить ответ от Киски. Хоть какой-то.
>
> 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> С уважением
>
> Еще есть такая тонкость, что с STDIN ты получишь "at\n", а модему надо бы
> выдать "at\r".
А вот как в моем случае не используя STDIN и STDOUT , а используя
комманды в скрипте, получить ответ с Киски в переменную???
>
> --
> Artem Chuprina
> Communiware.net
> RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--------------------
С уважением Сергей H.
--- ifmail v.2.15dev5
* Origin: SICE (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: IO::Socket ??? и fork()??? 