Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > Получение плайлиста из SAP оповещения

Автор: kubtlt 15.7.2010, 12:37

Добрый день!
Помогите пожалуйста, в вопросе.
Необходим скрипт который будет опрашивать сервер SAP оповещения (в данном случае 224.2.127.254 http://www.ietf.org/rfc/rfc2974.txt) забирать плейлист и сохранять в файл.
Вот что у меня получается:

Код


#!/usr/local/bin/perl -w
#use strict;
use Net::SAP;
use Net::SAP::Packet;

  my $sap = Net::SAP->new( 'ipv4-global' );
  my $p = $sap->receive();
  $ipsmult = $sap->group();
  $sap->close();
  print $ipsmult;

  my $packet = new Net::SAP::Packet();
  my $type = $packet->origin_address_type();
  $packet->origin_address_type( 'ipv4' );
  my $origin = $packet->origin_address();
  $packet->origin_address( $ipsmult );

#  my $payload = $packet->payload();
# $packet->payload( kk );

С последние строки в таком виде не работают. Думаю тут еще необходимо использовать модуль Net::SDP для того, чтоб установить сессию и только потом скачать файл.
Подскажите как решить задачу подключения к SAP серверу и загрузки плейлиста.