VPF::Двусторониий telnet клиент - Форум программистов

Ramirez

Дата 7.7.2006, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 18.1.2005
Где: Moscow, ExUSSR

Репутация: нет
Всего: 5

Доброго времени суток...

Есть необходимость скриптом общаться с некоторой программой через telnet. Раньше для этого я использовал Net::Telnet. Но он мне кажется тяжеловатым (если это не так - обьясните), решил сделать через IO::Socket, IO::Select. Но никак не могу найти толкового примера. В сборнике рецепторв приводится пример через ветвление процессов, мне такой вариант категорически не подходит. Если у кого есть примерчик, приведети пожалуйста.

naigo

Дата 21.7.2006, 00:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 18.7.2006

Репутация: нет
Всего: нет

примерно так
клиент:

Код


#!/usr/bin/perl
use Socket;
$ip_add='ip.ip.ip.ip';
$port=23;
$Pack_addr=sockaddr_in ($port,inet_aton($ip_add))            # пакуем адрес с портом;
socket (CLI, PF_INET, SOCK_STREAM, getprotobyname ('tcp'));          # объявляем сокет
connect (CLI ,$Pack_addr);                                # подключаемся
send (CLI, "MSG\n", 0);                                # передача
recv (CLI, $dat, $bufer,0);                                # приём
print qq {$dat};

с сервером я думаю и сам разберёшся, если нет, то стучись помогу

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »