|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Denis Poznyakov 2:450/160.8 09 Oct 2001 15:28:00
To : Denis Poznyakov
Subject : Есть ли модуль для работы с модемом?
--------------------------------------------------------------------------------
D>> Задача такая: подключиться к модему, послать ему
D>> команды и принять ответы.
D>> Есть ли модуль для такой задачи, или как это
D>> сделать из перла?
DP> на счет момеда не знаю но есть модули для работы с портом смотри здеся:
DP> http://members.aol.com/Bbirthisel/
DP> http://members.aol.com/Bbirthisel/tpj_serialport.d/index.html
да кстати накопал там по поводу твоих модемов с ихними библами
-------------------------------- типа старт
#!/usr/bin/perl -w
# cross-platform example5, use LF-only on Un*x
use strict;
use vars qw( $OS_win $ob $file );
BEGIN {
$OS_win = ($^O eq "MSWin32") ? 1 : 0;
if ($OS_win) {
eval "use Win32::SerialPort 0.11";
die "$@\n" if ($@);
}
else {
eval "use Device::SerialPort";
die "$@\n" if ($@);
}
} # End BEGIN
$file = 'tpj4.cfg';
if ($OS_win) {
$ob = Win32::SerialPort->start ($file);
}
else {
$ob = Device::SerialPort->start ($file);
}
die "Can't open serial port from $file: $^E\n" unless ($ob);
my $baud = $ob->baudrate;
print "baud from configuration: $baud\n";
$ob->write("ATE0X4\r");
sleep 1;
my $result = $ob->input;
print "result = $result\n";
$ob->write("AT&V\r");
sleep 2;
$result = $ob->input;
print "result = $result\n";
undef $ob;
------------------------------------типа енд
Best regards,
internet-programmer Denis Poznyakov
ICQ: 5915230
http://pvdlab.net
pvdenis@pvdlab.net | pvdenis@yahoo.com
... rm * -r...BEER II INSIDE
--- Золотой дед GoldED+/W32 1.1.4.7 !!!
* Origin: IBA-7 Station (2:450/160.8)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
