VPF::vgetty win - Форум программистов

deber

Дата 25.12.2006, 12:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть такой скрипт, который звонит на определенный номер через voice модем и проигрывает сообщение в формате rmd.

Код


#!/usr/bin/perl
use Modem::Vgetty;

my $phone   = "1234567";
my $message = "message.rmd";
my $voice   = new Modem::Vgetty;
$voice->device('DIALUP_LINE');
$voice->add_handler('BUSY_TONE', 'finish', sub { $v->stop; exit 0; });
$voice->enable_events;
$voice->dial($phone);
$voice->waitfor('READY');
$voice->play_and_wait($message);

Под линухом скрипт запускается так:

Код


vm shell -l ttyS0 -S script.pl

Как его заставить работать под виндой? smile

Хоть направление какое-нить подкиньте, плз.

nitr

Дата 25.12.2006, 13:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

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

Ух...
наверное лучше воспользоваться др. модулем
Device::Modem

Добавлено @ 13:22
но это для юзания модема через ком-порт

Если АТ командами как-то можно ;) ...

Это сообщение отредактировал(а) nitr - 25.12.2006, 13:24

--------------------

I love ArchLinux

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