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.