Dispositivo :: TNC Dispositivo :: TNC es un módulo Perl que actúa como una interfaz genérica a un TNC.
Descargar ahora

Dispositivo :: TNC Clasificación y resumen

Dispositivo :: TNC Etiquetas

Módulo perl dispositivo Interfaz Perl TNC Interfaz TNC

Dispositivo :: TNC Descripción

Dispositivo :: TNC es un módulo Perl que actúa como una interfaz genérica a un TNC. Dispositivo :: TNC es un módulo PERL que actúa como una interfaz genérica a un TNC.Este módulo implementa una interfaz genérica a un controlador de nodo terminal (TNC). Se cargan sub Clases que proporcionan la interfaz de bajo nivel para que se use la interfaz de bajo nivel y proporciona métodos de nivel superior para devolver los marcos de datos al usuario, es un formulario legible humano. Dispositivo de uso de laSynopsis :: TNC; MY $ TNC_TYPE = 'KISS'; MI% TNC_CONFIG = ('PORT' => ($ CONFIG {'OSNAME'} EQ "MSWIN32")? "COM3": "/ dev / tnc-x", 'baudrate' => 9600, 'warn_malformed_kiss' => 1 , 'RAW_LOG' => "RAW_PACKET.LOG",); MY $ TNC = Nuevo dispositivo :: TNC ($ TNC_TYPE,% TNC_CONFIG); DIE "ERROR: Algo salió mal conectado con el TNC.N" a menos que $ TNC; mientras (1) {My $ DATA = $ TNC-> Read_Frame (); Mis $ repetidores = Únase ",", @ {$ DATA -> {'dirección'} -> {'repetidores'}}; My $ INFO = Únase a "", @ {$ DATA -> {'INFO'}}; Imprimir "De: $ DATA -> {'dirección'} -> {'fuente'}"; Imprimir "A: $ DATA -> {'dirección'} -> {'destino'}"; Imprimir "Via $ repetidores"; Imprimir "Datos: $ Infon"; } Nuevo () My $ Tipo = "Beso"; MI% TNC_DATA = {'opción' => 'valor'}; My $ TNC = nuevo dispositivo :: TNC ($ Tipo,% TNC_DATA); El nuevo método crea y devuelve un nuevo dispositivo :: objeto TNC que se puede usar para comunicarse con un controlador de nodo terminal (TNC) del tipo pasado. El método requiere que el primer argumento aprobado sea el tipo de TNC para conectarse. Esto intentará cargar el módulo apropiado para el tipo de TNC. Las opciones subsiguientes se pasan al módulo que se carga para conectarse al TNC deseado. Para obtener más detalles sobre estas opciones, consulte la documentación del módulo para el TNC TYPE.READ_FAME () MI $ Frame_DATA = $ TNC-> Read_Frame (); mi% frame_data = $ tnc-> leer_frame (); Este método lee un marco HDLC desde el TNC y devuelve una estructura, ya sea una referencia de hash o hash que contiene los campos del marco. La estructura de los datos devueltos es como la siguiente. {'INFO' => , 'pid' => 'f0', 'control' => {'poll_final' => 0, 'field_type' => 'ui', 'frame_type' => 'u'}, 'dirección' => {'destino' => 'apt311', 'repetidores' => ,' fuente '=>' vk2kfj-7 '}}} Mientras desarrolla este módulo, solo recibí los cuadros de tipo U (UI), por lo que el desarrollo del código para trabajar con los marcos I y S no progresó realmente. Si alguien quiere leer los marcos I o S, por favor hágamelo saber y echaré un vistazo a implementarlos. Por favor, cree un registro de beso de los datos y envíeme un correo electrónico. Requisitos: · Perl

Dispositivo :: TNC Software relacionado