$telnet->print('dir')

 
#! /usr/bin/perl 
use strict; 
use warnings; 
use Net::Telnet; 
my $telnet = new Net::Telnet ( timeout=>10, Errmode=>'die'); 
 
 
 
my $host = '10.X.X.X'; 
my $benutzer = 'user'; 
my $password = 'pass'; 
my $aa = $telnet->input_log('C:\_PerlTest\in_log.txt'); 
my $bb = $telnet->output_log('C:\_PerlTest\out_log.txt'); 
 
 
 
$telnet->open($host); 
$telnet->waitfor('/Press any key to continue/'); 
$telnet->print(''); #cause a key needs to be pressed 
$telnet->waitfor('/login:/'); 
$telnet->print($benutzer); 
$telnet->waitfor('/password:/'); 
$telnet->print($password); 
$telnet->print('dir'); #doesn't work, doesn't show up in the logs 
 
print $telnet->lastline;

$telnet->print(\n)

print '\n'

$telnet->waitfor('/password:/')

#! /usr/bin/perl 
use strict; 
use warnings; 
use Net::Telnet; 
 
$| = 0; 
 
my $telnet = new Net::Telnet ( timeout=>20, Errmode=>'return', Dump_Log => 'C:\_PerlTest\MML_TEST.log'); 
 
my ($line, $host, $benutzer, $password, $devType, $x25, $directConnect); 
$host = '10.XX.XX.XX'; 
$benutzer = 'XXXOP1'; 
$password = 'XXXANE'; 
$x25 = ''; 
$directConnect = "ENTER USERNAME < "; 
 
$telnet->input_log('C:\_PerlTest\in_log.txt'); 
$telnet->output_log('C:\_PerlTest\out_log.txt'); 
 
$telnet->open($host); 
 
$devType = $telnet->get; 
if ($devType eq $directConnect) { 
		#$telnet->waitfor('/ENTER USERNAME < /'); 
		$telnet->print($benutzer); # Doppelte Anfürhungszeichen = Text und Sonderzeichen {Return, del, etc}, Einfacher Anführungszeichen = nur Text; 
 
		$telnet->waitfor('/ENTER PASSWORD < /'); 
		$telnet->cmd($password); 
 
		#$telnet->cmd('ZXXX:TRAXXX,XX_XXX;'); 
		#$telnet->cmd('Z;'); 
		$telnet->cmd('Z;'); 
								} 
else 
{print ('Iwas funktioniert noch nicht richtig')};