Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> изменить perl скрипт для отправки смс 
V
    Опции темы
nikorip
Дата 23.12.2016, 22:25 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Не подскажите если кто разбирается в языке Perl. Есть скрипт
Код

#!/usr/bin/perl -w
    use strict;
    use IO::Socket;

    my($server, $newmsg,

    $max_len, $server_port);
    $max_len = 160;
    $server_port = 12345;

    $server = IO::Socket::INET->new(LocalPort=>$server_port, Broadcast=>0, Proto=>"udp")
    or die "Error starting UDP Server on port $server_port: $@\n";
    print "UDP Server started on port $server_port\n";
    $newmsg = "";
    while($server->recv($newmsg,$max_len)){
    if($newmsg){
    #my($port, $ipaddr) = sockaddr_in($server->peername);
    print "Received: $newmsg \n";
    open(GNOKII, "| gnokii --sendsms +7**********") || die "Starting gnokii failed: $!\n";
    print GNOKII $newmsg;
    close(GNOKII);
    }
    }

    die "recv: $!";

Данный скрипт прослушивает порт 12345 и передает все приходящие в него сообщения в gnokii, на указаний номер мобильного отправляется смс.
Надо изменить скрипт таким образом что бы смс приходили на 2 указаних номера. Я в программировании не силен, помогите если кто знает как решить эту задачу. Делаю смс оповещения на основании вот этой статьи https://habrahabr.ru/post/154065/ 
Всем заранее спасибо
PM MAIL   Вверх
nikorip
Дата 24.12.2016, 14:14 (ссылка)    | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



решил задачу на другом форуме. если кому надо - пишите розкажу
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.1042 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.