Schrijf een Perl ( Practical Extraction en Reportage Taal ) script om een telnet -verbinding met een externe server wanneer u repetitieve command -line beheertaken ( zoals het ontleden van logbestanden ) die moeten worden regelmatig uitgevoerd . U kunt leverage Perl modules zich in het internationaal gespiegelde CPAN ( Comprehensive Perl Archive Network ) site in plaats van het schrijven van alle benodigde methoden vanaf nul . Gebruik de Net :: Telnet module om een kort script te maken en stellen een telnet -verbinding . Wat je
Windows- computer met programmeertaal Perl software (zoals ActivePerl ) Need geïnstalleerd
Netto : Telnet Perl module geïnstalleerd
Toon Meer Aanwijzingen
Klik op 1 de knop "Start " op de taakbalk van Windows en klik op Zoeken . Typ " cmd " in het vak Zoeken . Druk op de toets " Enter " . Enter " notepad " zonder aanhalingstekens op de opdrachtregel en tik op de toets " Enter "
Type 2 het volgende in het Kladblok teksteditor programma dat wordt weergegeven : .
# /Usr ! /bin /perl gebruik
Net :: Telnet ; $ tlnt = new Net :: Telnet ( Timeout = > 10 , Errmode = > ' sterven ' ) ; $ tlnt - > geopend ( ' telnet_server_IP ' ) ; $ tlnt - > waitfor ( ' /login : $ /i ' ) ; $ tlnt - > afdruk ( ' gebruikersnaam ' ) ; $ tlnt - > waitfor ( ' /password : $ /i ' ) ; $ tlnt - > druk ( ' account_password ' ) ; $ tlnt - > waitfor ( ' /\\ $ $ /i ' ) ; $ tlnt - > afdruk ( 'wie' ) ; $ output = $ tlnt - > waitfor ( ' /\\ $ $ /i ' ) ; afdruk $ uitgang;
Vervang user_name met de naam van een account die telnet toegang tot de telnet -server heeft , account_password te vervangen door het wachtwoord voor de account die telnet toegang heeft , en vervang telnet_server_IP met het IP-adres van de telnet -server . notitiekaarten dat de Net :: Telnet module wordt genoemd aan het begin van de telnet script en de methoden die worden gebruikt in het script zijn opgenomen in de module .
3 Klik op het menu Bestand en selecteer Opslaan als in het menu dat verschijnt . Typ " telnettest.pl " ( inclusief de aanhalingstekens ) in het vak Bestandsnaam . Klik op de Opslaan als type en selecteer Alle bestanden . Klik op de knop "Opslaan" .
Type " telnettest.pl " 4 op de opdrachtregel en druk op de toets " Enter " . Er verschijnt een bericht waarin wordt bevestigd dat het Perl- script een telnet verbinding met de telnet -server is ingesteld .
|
