burgergold 5$? va chez l'diable! | je tente de passer une commande à une machine win32 et de récupérer l'output. Dans mon Inputfile, tout ce déroule à merveille, mais j'ai pourant rien dans mon array. Fonctionne sous unix en modifiant le nom de machine et le prompt
Code :
- my $telnet = new Net::Telnet ( Errmode => 'return',
- Prompt => '/C:\\\\/',
- Input_log => 'input.log',
- Output_log => 'output.log',
- );
- if (! defined $telnet) {
- die "Unable to create telnet object";
- }
- $telnet->open("host" );
- if (my $errmsg = $telnet->errmsg) {
- die "Unable to open telnet $errmsg";
- }
- $telnet->login("user", "pass" );
- if (my $errmsg = $telnet->errmsg) {
- die "Unable to login $errmsg";
- }
-
- my @lines = $telnet->cmd("dir" );
- if (my $errmsg = $telnet->errmsg) {
- die "Unable to execute cmd $errmsg";
- }
-
- print @lines;
|
|