Dispositivo :: TNC. Device :: TNC é um módulo Perl que atua como uma interface genérica para um TNC.
Baixe Agora

Dispositivo :: TNC. Classificação e resumo

Dispositivo :: TNC. Tag

Módulo Perl. dispositivo Interface Perl. TNC. Interface TNC.

Dispositivo :: TNC. Descrição

Dispositivo :: TNC é um módulo Perl que age como uma interface genérica para um TNC. Device :: TNC é um módulo Perl que atua como uma interface genérica para um módulo TNC.Se implementa uma interface genérica para um controlador de nó de terminal (TNC) ..ita cargas sub-classes que fornecem a interface de nível baixo para que o TNC apropriado seja usado e fornece métodos de nível superior para retornar quadros de dados para o usuário é o formulário legível por humanos. O dispositivo de uso :: TNC; meu $ TNC_TYPE = 'beijo'; My% tnc_config = ('Porta' => ($ config {'OSName'} eq "mswin32")? "COM3": "/ dev / tnc-x", 'Baudrate' => 9600, 'warn_malformed_kiss' => 1 'RAW_LOG' => "RAW_PACKET.LOG",); Meu $ TNC = novo dispositivo :: TNC ($ TNC_TYPE,% TNC_CONFIG); Die "Erro: algo deu errado se conectar ao TNC.N" a menos que $ TNC; while (1) {my $ Data = $ TNC-> read_frame (); Meus $ repetidores = junte-se "", @ @ {$ data -> {'Endereço'} -> {'Repetidores'}}; Minha $ Info = Participa "", @ {$ Data -> {'Informações'}}; Imprimir "De: $ Data -> {'Endereço'} -> {'Fonte'}"; Imprimir "Para: $ Data -> {'Endereço'} -> {'Destino'}"; Imprimir "via repetidores n"; Imprimir "Dados: $ Infon"; } novo () meu $ tipo = "beijo"; meu% tnc_data = {'opção' => 'valor'}; Meu $ TNC = novo dispositivo :: TNC (dipo $,% tnc_data); o novo método cria e retorna um novo objeto :: TNC objeto que pode ser usado para se comunicar com um controlador de nó terminal (TNC) do tipo passado. O método requer que o primeiro argumento passado seja o tipo de TNC para se conectar. Isso tentará carregar o módulo apropriado para o tipo TNC. As opções subseqüentes serão passadas para o módulo que é carregado para se conectar ao TNC desejado. Para mais detalhes sobre essas opções, consulte a documentação do módulo para o TNC Type.Read_Frame () meu $ frame_data = $ tnc-> read_frame (); my% fram_data = $ tnc-> read_frame (); este método lê um quadro HDLC do TNC e retorna uma estrutura como um hash ou uma referência de hash que contém os campos do quadro. A estrutura dos dados retornados é como o Segue. {'Informações' => , 'PID' => 'F0', 'Control' => {'Poll_Final' => 0, 'Field_Type' => 'Ui', 'Frame_Type' => 'U'}, 'Endereço' => {'Destino' => 'apt311', 'Repetidores' => ,' Source '=>' VK2KFJ-7 '}} Ao desenvolver este módulo, eu só recebi quadros de U (UI) e assim desenvolvimento do código para trabalhar com os quadros I e S realmente não progrediram. Se alguém quiser ler os quadros I ou S, por favor me avise e vou dar uma olhada para implementá-los. Por favor, crie um log de beijos dos dados e envie-o para mim. Requisitos: · Perl.

Dispositivo :: TNC. Software Relacionado