Perl telnet reboot linux
1. 3. 2012
Žádné komentáře
#!/usr/bin/perl #Reboot modemu v PERL u #knihovna http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm # telnet.pm do lib perlu use Net::Telnet; # Create our Telnet object my $telnet = new Net::Telnet ( Timeout => 20, #Prompt => ‘/bash$ $/’ ); # Have our object connect to our remote server $telnet->open(“192.168.0.1”); # Login as myusername with mypassword