perl telnet - ghdrako/doc_snipets GitHub Wiki

use Net::Telnet ();
$remote = new Net::Telnet (Timeout => 100000,
                           Prompt => '/\$/',
                           Errmode => 'die');

$remote->open("<ip>");

$remote->waitfor('/login: $/i');
$remote->print("oracle");

$remote->waitfor('/Password: $/i');
$remote->print("oracle");

$remote->waitfor('/\$/');

# wersja dłuzsza
# $remote->print("df -k");
# ($output) = $remote->waitfor('/\$/');
# print $output;

@output = $remote->cmd("df -k");
print @output;
$remote->cmd("cd \/u11\/ess");
@lines = $remote->cmd("load_dane Drako12");
print @lines;