PoE :: Component :: Nomadjukebox POE :: Component :: Nomadjukebox is een op gebeurtenissen gebaseerde contol van Nomad Jukebox-spelers.
Download nu

PoE :: Component :: Nomadjukebox Rangschikking & Samenvatting

PoE :: Component :: Nomadjukebox Tags

Jukebox Perl-module Nomade NOMAD JUKEBOX Gebeurtenisgebaseerde contol

PoE :: Component :: Nomadjukebox Beschrijving

PoE :: Component :: Nomadjukebox is een op gebeurtenissen gebaseerde contol van Nomad Jukebox-spelers. PoE :: Component :: Nomadjukebox is een op gebeurtenissen gebaseerde contol van Nomad Jukebox-spelers.Synopsis Gebruik PoE QW (Component :: Nomadjukebox); Gebruik gegevens :: Dumper; POE :: SESSIE-> Maken (inline_states => {_start => sub {poe :: component :: nomadjukebox-> maken ({alias => 'njb'});}, njb_started => sub {$ _ -> Post (NJB => 'Discover');}, njb_discover => sub {mijn ($ kernel, $ heap, $ devlist) = @_ ; Tenzij (ref ($ devlist)) { Print "Mislukt om Nomad Jukebox te vinden, is het op? N"; $ Kernel-> Post (NJB => 'Shutdown'); Return;} # Open het eerste apparaat # Passeer het apparaat-ID om $ kernel-> post te openen ( NJB => 'Open' => $ Devist -> -> {devid});}, njb_opened => sub {mijn $ kernel = $ _ ; $ kernel-> post (njb => 'disk_usage '); $ kernel-> post (njb =>' track_list ');}, njb_disk_usage => sub {mijn ($ kernel, $ heap, $ info) = @_ ; Tenzij (ref ( $ Info) EQ 'HASH') {PRINT "Mislukt om Disk Usagen te krijgen"; Return;} My $ Used = $ info -> {totaal} - $ info -> {gratis}; print "Totaal: $ info -> { Totaal} bytes gratis: $ info -> {gratis} bytes gebruikt: $ gebruikt bytesn "; $ kernel-> post (njb => 'shutdown');}, njb_track_list => sub {mijn ($ kernel, $ heap, $ tracks) = @_ ; $ kernel-> post (njb => 'shutdown'); Tenzij (REF ($ TRACKS) EQ 'ARRAY') {PRINT "is mislukt om LISTN"; opbrengst; } Print "Er zijn" .scalar (@ $ tracks). "TRACKSN"; Gegevens afdrukken :: Dumper-> Dump (); }, njb_closed => sub {print "nomad jukebox closedn"; },},); $ POE_KERNEL-> RUN (); POE :: Component :: Nomadjukebox - Gebaseerde contol van Nomad Jukebox-spelers met behulp van de Libnjb API die zich bevindt op module _requires_ libnjb en misschien moet u dat wel zijn root, of wijzig uw toegangsmachtigingen voor USB-apparaat. Vereisten: · Perl

PoE :: Component :: Nomadjukebox Gerelateerde software