Programação  
 
Conhecimento computador >> Programação >> Programação Perl >> 
Como criar um script simples em Telnet Perl
Escrever um Perl ( Practical Extraction and Report Language) script para estabelecer uma conexão telnet para um servidor remoto quando você tem as tarefas de administração de linha de comando repetitivos ( tais como arquivos de log de ​​análise ), que deve ser realizada regularmente . Você pode aproveitar os módulos Perl localizados no CPAN ( Comprehensive Perl Archive Network ) local internacionalmente espelhado em vez de escrever todos os métodos necessários a partir do zero . Use o módulo Net :: Telnet para criar um pequeno script e estabelecer uma conexão telnet. Coisas que você precisa
computador Windows com software linguagem de programação Perl (como ActivePerl ) instalado
Net : Módulo Telnet Perl
instalado
Visualizar Mais instruções
1

Click no botão "Iniciar " na barra de tarefas do Windows e clique em Pesquisar. Digite "cmd" na caixa de busca . Pressione a tecla "Enter" . Digite "notepad " sem as aspas na linha de comando e pressione a tecla "Enter"
2

Digite o seguinte no programa de editor de texto Bloco de notas que aparece: .

# /Usr /bin /perl

use Net :: Telnet ; $ tlnt = new Net :: Telnet ( Timeout = > 10, Errmode => ' die '); $ tlnt -> open (' telnet_server_IP ' ); $ tlnt -> waitfor ('/login: $ /i '); $ tlnt -> print (' user_name '); $ tlnt -> waitfor (' /password: $ /i '); $ tlnt -> print (' account_password '); $ tlnt -> waitfor ('/\\ $ $ /i '); $ tlnt -> print ( "quem" ); $ output = $ tlnt -> waitfor (' /\\ $ $ /i '); print $ saída;

substituir user_name com o nome de uma conta que tenha acesso telnet para o servidor telnet, substituir account_password com a senha para a conta que tem acesso telnet, e substituir telnet_server_IP com o endereço IP do servidor de telnet.

Note que o módulo Net :: Telnet é chamado no início do script telnet e os métodos utilizados no script estão incluídos no módulo.

3

Clique no menu Arquivo e selecione Salvar como no menu que aparece. Digite " telnettest.pl " (incluindo as aspas) na caixa Nome do Arquivo. Clique na caixa Salvar como tipo e selecione todos os arquivos. Clique no botão "Salvar" .
4

Type " telnettest.pl " na linha de comando e pressione a tecla "Enter" . Aparecerá uma mensagem confirmando que o script Perl estabeleceu uma conexão telnet com o servidor telnet.

Anterior :

Próximo : No
  Os artigos relacionados
·Como faço para obter Perl Contador Script para coletar…
·Como chamar rotinas de montagem de Perl 
·Como instalar o cPanel & Perl 
·Como executar uma IPBFree Exploit Com Perl 
·Como testar um CGI Script Sendmail 
·Como converter XML para PDF em Perl 
·My Perl Separa strings não está funcionando 
·Como converter de Perl para Python & Appengine 
·Como construir um RPM Perl Module 
·Como encontrar duplicatas em arquivo usando Perl 
  Artigos em destaque
·Como adicionar GMP para Xcode 
·Como verificar um tipo de arquivo PHP 
·Como acessar uma matriz de cadeia em JSP 
·Como alterar o nome do campo em uma tabela MySQL 
·Como fazer upload de arquivos usando Struts 
·Verdadeira VS Programação declaração falsa 
·Como configurar um banco de dados para o WordPress no m…
·Tutorial de validação de formulário HTML 
·Como melhorar a escrita em Java Logic 
·Como formatar uma string de hora Militar como padrão e…
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados