Bonjour je me lance sous perl sous window et j'ai quelques pb. Mon programme consiste à interroger deux systèmes, je n'ai pas de problème de compilation mais il semblerai que je n'arrive pas à interroger mes deux systèmes server1 et server2 sous telnet. en effet l'interrogation que j'effectue reste muette. Auriez vous des suggestions. Merci par avance

Je suis en raison confronté à un proxy.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
#!/usr/bin/perl
 
unshift(@INC,"C:/Perl/site/lib");
use Net::Telnet();
 
my $logfile = "V:/ImportGHN/PointTelHS.csv";
my $Trace ="V:/ImportGHN/ImportTelHS.csv";
#$server  = "192.168.100.3";#print "@trace\n";
my $server1= "192.168.224.14";
my $server2= "192.168.224.32";
my @Tab1 =("192.168.224.14","192.168.224.32");
 
$username    = "mtcl";
$password    = "ml2010";
 
foreach $server (@Tab1) {
 
$telnet = new Net::Telnet ( Timeout=>10,
                            Errmode=>'return',
							Prompt=>'/passerelle_analogique>$/'); # prompt du telnet 
							$telnet->open($server);
 
print "ok1\n";
open(FILE,">>$Trace") or die "cannot open $Trace\n";
open(FILE,">$logfile") or die "cannot open $logfile\n"; #  créer et met à la suite dans  le fichier 
 
 
$telnet->login($username, $password);