PoE :: Component :: NomadjukeBox. POE :: Component :: NomadjukeBox는 Nomad Jukebox Players의 이벤트 기반 콘택입니다.
지금 다운로드

PoE :: Component :: NomadjukeBox. 순위 및 요약

PoE :: Component :: NomadjukeBox. 태그

쥬크 박스 Perl 모듈 유목민 Nomad Jukebox. 이벤트 기반의 Contol.

PoE :: Component :: NomadjukeBox. 설명

PoE :: Component :: NomadjukeBox는 Nomad Jukebox Players의 이벤트 기반 콘센트입니다. PoE :: Component :: NomadjukeBox는 Nomad Jukebox Players의 이벤트 기반 콘센트입니다. 식 노프가 PoE QW (구성 요소 :: Nomadjukebox)를 사용합니다. 데이터 :: Dumper; POE :: Session-> create (inline_states => {_start => sub {PoE :: Component :: nomadjukebox-> create ({alias => njb 'njb'});}, njb_started => sub {$ _ -> post (njb => 'discover');}, njb_discover => sub {my ($ 커널, $ heap, $ devlist) = @_ ; (ref ($ devlist)) { "Nomad Jukebox를 찾지 못했습니다. Nomad Jukebox를 찾지 못했습니다. $ kernel-> post (njb => 'shutdown'); return;} # 첫 번째 장치를 엽니 다 # $ ID를 엽니 다. $ kernel-> post ( njb => 'open'=> $ devlist -> -> {devid});}, njb_opened => sub {my $ kernel = $ _ ; $ kernel-> post (njb => disk_usage) '); $ kernel-> post (njb => track_list');}, njb_disk_usage => sub {my ($ kernel, $ heap, $ info) = @_ ; (ref ( $ info) EQ '해시') {PRINT "디스크 USAGEN을 얻지 못했습니다."return;} MY $ USED = $ INFOINE -> {TOTTAL} - $ info -> {free}; 인쇄 "합계 : $ info -> { total} 바이트 무료 : $ info -> {free} 바이트 사용 : $ used bytesn "; $ kernel-> post (njb => 'shutdown');}, njb_track_list => sub {my ($ 커널, $ heap, $ 트랙) = @_ ; $ kernel-> post (njb => 'shutdown'); (ref ($ 트랙) eq '배열'{print "가 트랙 Listn을 얻지 못했습니다."; 반품; } "scalar (@ $ 트랙) "있습니다."tracksn "; 인쇄 데이터 :: Dumper-> 덤프 (); }, njb_closed => sub {print "nomad jukebox closedn"; },},); $ POE_KERNEL-> RUN (); POE :: 구성 요소 :: NomadjukeBox - 이벤트 기반 Libnjb API ( 모듈) _Requires_ libnjb에있는 libnjb API를 사용하여 루트 또는 USB 장치 액세스 권한을 변경하십시오. 요구 사항 : · Perl.

PoE :: Component :: NomadjukeBox. 관련 소프트웨어