Исходное сообщение
"device::gsm device::gsm:sms отправка рус sms под perl через gsm модем" Отправлено bytestore, 20-Дек-07 17:37
У когонибудь получилось отправлять этим модулем русские sms через ком порт?? use Device::Gsm; $content = "ТЕСТ"; my $gsm = new Device::Gsm( port => '/dev/cuad0' );          if( $gsm->connect() ) {              print "connected!\n";          } else {              print "sorry, no connection with gsm phone on serial port!\n";          } my $lOk = $gsm->send_sms(     content => $content,     recipient => '+7ххххххххх',     class     => 'normal',     # try `flash'     mode      => 'pdu'                         ); if( $lOk ) { print "SMS check money sent!\n" ;     } else {         print "Error in sending!\n";         exit ;             } на трубку приходит "ôåóô" я понимаю что это UTF8, пробовал набить в кодировке UTF8, на трубку приходит "DcDDiDc" конвертировал всеми возможными способами, безрезультатно :( в модуле gsm.pm нашел строки которые кодируют мессагу перед отправкой         # Encode text         $text = Device::Gsm::Charset::iso8859_to_gsm0338( $text );         my $enc_msg = Device::Gsm::Pdu::encode_text7( $text ); пробовал закоментировать эту функцию, с сделать         my $enc_msg = $text; тогда вообще не отсылает видимо формат PDU нарушается