A voir également:
- Perl automatiser Telnet sur switch Nortel
- Logiciel switch - Télécharger - Conversion & Extraction
- Brancher switch sur pc - Forum Nintendo Switch
- Samsung switch pc - Télécharger - Divers Bureautique
- Switch qwerty azerty - Guide
- Localiser switch - Forum Nintendo Switch
2 réponses
Bonjour ,
j'ai encore travaillé sur mon script mais le resultat qui me donne c'est toujours 1 ! Avez vous une idée d'où pourrait venir le problème
#!/usr/bin/perl
use Net::Telnet;
$prompt ='/.*[\$#:>\]\%] *$/';
$host ='192.168.32.249';
$t= new Net::Telnet (Timeout=>25,
Errmode=>'return',
prompt=>$prompt
);
$t->open($host);
@lines=$t->put("^Y") or die "=> Echec de l'envoi de Ctrl+Y \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines=$t->put("c") or die "=> Echec de l'envoi de Maj+C \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines= $t->put("enable") or die "=> Echec de l'envoi de enable \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines=$t->put("show ip") or die "=> Echec de l'envoi de show ip \n=> ".$t->errmsg."";
print "@lines\n";
$t->close;
j'ai encore travaillé sur mon script mais le resultat qui me donne c'est toujours 1 ! Avez vous une idée d'où pourrait venir le problème
#!/usr/bin/perl
use Net::Telnet;
$prompt ='/.*[\$#:>\]\%] *$/';
$host ='192.168.32.249';
$t= new Net::Telnet (Timeout=>25,
Errmode=>'return',
prompt=>$prompt
);
$t->open($host);
@lines=$t->put("^Y") or die "=> Echec de l'envoi de Ctrl+Y \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines=$t->put("c") or die "=> Echec de l'envoi de Maj+C \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines= $t->put("enable") or die "=> Echec de l'envoi de enable \n=> ".$t->errmsg."";
print "@lines\n";
sleep 2;
@lines=$t->put("show ip") or die "=> Echec de l'envoi de show ip \n=> ".$t->errmsg."";
print "@lines\n";
$t->close;