VPF::perl Device::Gsm отправка смс - Форум программистов

unmoved

Дата 15.4.2010, 16:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день.

Я использую модуль Device::Gsm, для отправки и приема смс. Но мне нужно обязательно отправлять смс по русски:

Код


#!/usr/bin/perl
use strict;
use Device::Gsm;

my $gsm = new Device::Gsm( port => '/dev/ttyS0');

if( $gsm->connect() ) {
  print "connected!\n";
 } else {
  print "sorry, no connection with gsm phone on serial port!\n";
}
$gsm->mode('pdu');


my $text = 'Ну когда же ты заработаешь';


$gsm->send_sms(
    recipient => '+791XXXXXXXX,
    content   => $text
);

exit 0;

Формат(текста) utf8, пробывал перекодировать во все известные мне кодировки с поддержкой кирилицы при помощи encode и iconv, толку нету...

Полез смотреть на файл Gsm.pm, там есть такие строчки:

Код


$text = Device::Gsm::Charset::iso8859_to_gsm0338( $text );
my $enc_msg = Device::Gsm::Pdu::encode_text7( $text );

Первая из формата iso8859 делает gsm0338, я ей закоментировал и стал подавать туда($gsm0338 ) данные из:

Код


use Encode qw/encode decode/;
my $gsm0338 = encode("gsm0338", $text);
my $utf8 = decode("gsm0338", $gsm0338);

Толку 0, что оказалось, что $utf8(после декодирования), вовсе не тот же самый текст $text, который я ему подсунул...
Может кто сталкивал с этим модулем или вообще знает как через девайс по com порту отправлять РУССКИЕ СМС, буду благодарен за любую помошь smile

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