net :: dbus :: 튜토리얼 :: exportingObjects. NET :: DBUS :: Tutorial :: exportingObjects는 DBUS 서비스를 제공하는 자습서가 포함 된 Perl 모듈입니다.
지금 다운로드

net :: dbus :: 튜토리얼 :: exportingObjects. 순위 및 요약

net :: dbus :: 튜토리얼 :: exportingObjects. 태그

Perl 모듈 서비스 DBUS. DBUS 서비스 DBus 튜토리얼

net :: dbus :: 튜토리얼 :: exportingObjects. 설명

net :: DBUS :: Tutorial :: exportingObjects는 DBUS 서비스를 제공하는 튜토리얼을 포함하는 Perl 모듈입니다. net :: DBUS :: Tutorial :: exportingObjects는 DBUS 서비스를 제공하는 튜토리얼을 포함하는 Perl 모듈입니다.이 문서는 Perl Net :: DBU 응용 프로그램 바인딩을 사용하여 DBUS 서비스를 제공하는 데에 대한 자습서를 제공합니다. 이 문서 의이 문서에서는 음악 트랙 플레이어를 제공하는 간단한 DBUS 서비스 인 Music :: Player 배포판의 코드를 기반으로합니다. 객체를 만들 때 객체를 만들 때 첫 번째 단계는 그물을 상속하는 새 패키지를 만드는 것입니다. :: DBUS :: Object. 음악 :: Player :: Manager 개체는 다양한 트랙 유형에 대한 음악 플레이어 백엔드 모음을 관리하는 API를 제공합니다. 시작하려면 패키지와 생성자의 해골을 만들 수 있습니다. 슈퍼 타입의 생성자, net :: dbus :: 객체는 매개 변수에 주어질 것으로 예상합니다. 객체를 소유하는 Net :: DBUS :: Service 및 객체가 내보내어야하는 경로. Manager 클래스는 싱글 톤 객체로 의도되므로 생성자 내에서 경로를 강화할 수 있습니다. Package Music :: Player :: Manager; 기본 QW (net :: dbus)를 사용하십시오. 새 {내 $ class = shift; MY $ SERVICE = SHIFT; 내 $ self = $ class-> super :: new ($ service, "/ music / player / manager"); $ self, $ class를 축복하십시오; $ self를 돌려줍니다. } 1; 이제는 언급했듯이, 관리자가 다른 플레이어 백엔드의 수를 처리합니다. 따라서 우리는 새로운 백엔드를 등록하고 특정 파일 유형을 재생할 수있는 백엔드를 쿼리하는 방법을 제공해야합니다. 위의 코드를 수정하면 생성자에 해시 테이블을 추가하여 백엔드를 저장합니다. sub new {my $ class = shift; MY $ SERVICE = SHIFT; 내 $ self = $ class-> super :: new ($ service, "/ music / player / manager"); $ self-> {backends} = {}; $ self, $ class를 축복하십시오; $ self를 돌려줍니다. } 및 이제 새 백엔드를 등록하는 방법. 이렇게하면 Perl 모듈 이름이 필요하며 백엔드를 인스턴스화하는 데 사용됩니다. 백엔드는 또한 DBUS 객체가 될 것이므로 백엔드를 등록 할 경로와 함께 첨부 된 서비스에 대한 참조를 참조해야합니다. 우리는 Get_Service 메서드를 사용하여 서비스에 대한 참조를 다시 읽을 수 있습니다. Manager가이 동일한 서비스에 연결되어 있고 동일한 서비스에 플레이어 백엔드를 연결합니다. 첫 번째 매개 변수는 객체 참조 ($ self)이고 나머지는 메소드 호출에 제공된 매개 변수입니다. 따라서 DBUS에 메소드 구현을 작성하면 정상적인 객체 지향 PERL (CF PerlToot)과는별로 다릅니다. sub register_backend {My $ self = shift; 내 $ name = shift; 내 $ module = shift; eval "$ 모듈 사용"; if ($ @) {die "는 백엔드 $ 모듈을로드 할 수 없습니다 : $ @"; } $ self-> {backends} = $ module-> new ($ self-> get_service, "/ music / player / backend / $ name"); } DIE 메서드가 트리거되면 어떻게되는지 궁금해 할 수 있습니다. 이러한 시나리오에서는 서비스 프로세스를 종료하는 대신 오류가 지정되어 원격 호출자에게 다시 전파됩니다. 플레이어 백엔드는 지원되는 음악 트랙 유형의 배열 참조를 반환하는 get_track_types 메소드를 제공합니다. 우리는이 방법을 사용하여 특정 트랙 유형에 대한 백엔드를 쉽게 검색 할 수 있도록 API를 제공 할 수 있습니다. 이 메서드는 백엔드 객체가 Sub find_backend {My $ self = shift;; 내 $ Extension = Shift; 내 $ name (키 % {$ self-> {backends}}) {my $ backend = $ self-> {backend} -> {$ name}; Foreach My $ Type (@ {$ Backend-> get_track_types}) {if ($ type eq $ 확장자) {$ $ backend-> get_object_path를 반환하십시오; }}} DIE "$ Extension 유형에 대한 백엔드 없음"; }이 메서드가 음악 트랙을 재생하는 데 어떻게 사용되는지 고려해보십시오. 아직 수행하지 않았다면 net :: DBUS :: Tutorial :: UskingObjects에서 메모리를 새로 고칩니다. 이제 우리는 재생하고자하는 MP3 파일을 가지고 있으므로 백엔드의 경로를 검색 한 다음 객체를 검색하고 트랙을 재생합니다. ... 음악 플레이어 서비스를 받으십시오 ... # MP3 파일 용 플레이어 경로 My $ Path = $ Service-> Find_Backend ( "MP3"); # $ Path는 '/ Music / Player / Backend / MPG123'을 포함하고 있으며 백엔드 객체를 얻을 수 있습니다 My $ Backend = $ Service-> get_object ($ Path); # 그리고 마지막으로 트랙 $ 백엔드 -> 재생 ( "/ vol / music / beck / guero / 09-scarecrow.mp3")을 재생합니다. 요구 사항 : · Perl.

net :: dbus :: 튜토리얼 :: exportingObjects. 관련 소프트웨어