Dispositivo :: TNC. Dispositivo :: TNC è un modulo perl che agisce come un'interfaccia generica a un TNC.
Scarica ora

Dispositivo :: TNC. Classifica e riepilogo

Dispositivo :: TNC. Tag

modulo Perl dispositivo interfaccia Perl TNC Interfaccia TNC.

Dispositivo :: TNC. Descrizione

Dispositivo :: TNC è un modulo perl che agisce come un'interfaccia generica a un TNC. Dispositivo :: TNC è un modulo Perl che agisce come un'interfaccia generica a un modulo TNC.Questo implementa un'interfaccia generica a un controller nodo terminale (TNC) .it carichi le classi secondarie che forniscono l'interfaccia a basso livello per il TNC appropriato da utilizzare e fornisce metodi di livello superiore per restituire i fotogrammi dei dati all'utente è il modulo leggibile dall'uomo.Synopsis dispositivo di utilizzo :: TNC; My $ TNC_TYPE = 'KISS'; MY% TNC_CONFIG = ('PORT' => ($ CONFIG {'OSNAME'} EQ "MSWIN32")? "COM3": "/ dev / tnc-x", 'baudrate' => 9600, 'warn_malformed_kiss' => 1 , 'Raw_log' => "raw_packet.log",); My $ TNC = nuovo dispositivo :: TNC ($ TNC_TYPE,% TNC_CONFIG); Die "Errore: qualcosa è andato storto connesso al tnc.n" A meno che $ TNC; while (1) {i miei $ dati = $ tnc-> read_frame (); My $ ripetitori = join ",", @ {$ Data -> {'indirizzo'} -> {'ripetitori'}}; My $ info = Iscriviti "", @ {$ Data -> {'info'}}; Stampa "Da: $ Data -> {'indirizzo'} -> {'sorgente'}"; Stampa "A: $ Data -> {'indirizzo'} -> {'destinazione'}"; Stampa "VIA $ ripetitoren"; Stampa "Dati: $ Infon"; } new () My $ Type = "Kiss"; il mio% tnc_data = {'option' => 'valore'}; my $ TNC = nuovo dispositivo :: TNC (tipo $,% TNC_DATA); il nuovo metodo crea e restituisce un nuovo dispositivo :: oggetto TNC che può essere utilizzato per comunicare con un controller nodo terminale (TNC) del tipo passato. Il metodo richiede che il primo argomento superato sia il tipo di TNC a cui connettersi. Ciò proverà a caricare il modulo appropriato per il tipo TNC. Le opzioni successive vengono passate al modulo caricato per connettersi al TNC desiderato. Per ulteriori dettagli su queste opzioni, consultare la documentazione del modulo per TNC Type.Read_frame () My $ frame_data = $ tnc-> read_frame (); my% frame_data = $ tnc-> read_frame (); questo metodo legge un telaio HDLC dal TNC e restituisce una struttura come hash o un riferimento a hash che contiene i campi del telaio. La struttura dei dati restituiti è come il a seguire. {'Info' => ,' PID '=>' F0 ',' CONTROLLO '=> {' POLL_FINAL '=> 0, 'field_type' => 'ui', 'frame_type' => 'u'}, 'indirizzo' => {'destinazione' => 'APT311', 'ripetitori' =>> ,' Source '=>' vk2kfj-7 '}} Durante lo sviluppo di questo modulo ho ricevuto solo i telai di tipo U (UI) e quindi lo sviluppo del codice per lavorare con i frame I e S non è stato davvero progredito. Se qualcuno vuole leggere i fotogrammi I o s per favore fammi sapere e daremo un'occhiata a implementarli. Si prega di creare un registro bacio dei dati e inviarlo via email. Requisiti: · Perl.

Dispositivo :: TNC. Software correlato