Net :: EasyTCP. Net :: EasyTCP é um módulo Perl que permite criar facilmente clientes e servidores e servidores de TCP / IP de largura de banda.
Baixe Agora

Net :: EasyTCP. Classificação e resumo

Net :: EasyTCP. Tag

Módulo Perl. TCP / IP. IP. Tcp. clientes TCP / IP Servidores TCP / IP

Net :: EasyTCP. Descrição

Net :: EasyTCP é um módulo Perl que permite criar facilmente clientes e servidores de TCP / IP de largura de banda. Net :: EasyTCP é um módulo Perl que permite criar facilmente clientes e servidores de TCP / IP de largura de banda.Airtação. Interface · Callbacks baseados em eventos no modo de servidor · Protocolo interno para cuidar de todos os problemas comuns de transporte · criptografia transparente · Comprime transparente Exemplo: Use Net :: EasyTCP; # # Criar o objeto do servidor # $ server = new net :: easytcp (modo => "server", port => 2345,) || Die "Erro ao criar servidor: $ @ N"; # # Diga sobre os callbacks para chamar # em eventos conhecidos # $ server-> setCallback (dados => gotdata, connect => conectado, desconectar => desconectado,) || Die "Erro de configuração de retorno de chamada: $ @ N"; # # Inicie o servidor # $ server-> Iniciar () || Die "Erro ao Início Servidor: $ @ N"; # # Este sub é chamado quando um cliente envia dados # sub gotdata {my $ client = shift; Meu $ serial = $ client-> serial (); Meus $ Data = $ Cliente-> Dados (); Imprimir "Cliente $ Serial me enviou alguns dados, enviando de volta para eles novamente"; $ client-> Enviar ($ Data) || Die "Erro ao enviar para o cliente: $ @ N"; if ($ data eq "quit") {$ client-> fechar () || morrer "Erro ao Closing Client: $ @ N"; } Elsif ($ data eq "morrem") {$ server-> stop () || Die "Erro ao parar o servidor: $ @ N"; }} # # Este sub é chamado quando um novo cliente conecta # sub conectado {my $ client = shift; Meu $ serial = $ client-> serial (); Imprimir "cliente $ serial apenas ligado"; } # # Este sub é chamado quando um cliente existente desconecta # sub desconectado {my $ client = shift; Meu $ serial = $ client-> serial (); imprimir "cliente $ serial apenas desconectado"; } Exemplo de cliente: Use Net :: EasyTCP; # # Crie um novo cliente e conecte-se a um servidor # $ client = New Net :: EasyTCP (modo => "Cliente", host => 'localhost', port => 2345,) || Die "Erro ao criar o cliente: $ @ N"; # # Enviar e receber uma string simples # $ client-> Enviar ("Olá lá" || morrer "Erro ao envio: $ @ n"; $ Resposta = $ Cliente-> Receber () || morrer "erro de recebimento: $ @ n"; # # Enviar e receber objetos / cordas complexos / matrizes / hashes por referência #% hash = ("ser ou" => "não ser", "apenas outro" = "perl hacker"); $ client-> Enviar (% hash) || morrer "Erro ao envio: $ @ n"; $ Resposta = $ Cliente-> Receber () || morrer "erro de recebimento: $ @ n"; foreach (Keys% {$ Responder}) {Imprimir "Chave Recebida: $ _ = $ Responder -> {$ _} N"; } # # Enviar e receber grandes dados binários # para (1..8192) {para (0..255) {$ largedata. = Chr ($ _); }} $ client-> Enviar ($ largedata) || morrer "Erro ao envio: $ @ n"; $ Resposta = $ Cliente-> Receber () || morrer "erro de recebimento: $ @ n"; # # Desconectar de forma limpa do servidor # $ $ client-> fechar (); requisitos: · Perl

Net :: EasyTCP. Software Relacionado