Discussion :

[Mustaal]

Bonjour à tous,

Pour le besoin de mon script j'aimerai faire un if avec 3 conditions mais je bloque un peu là Mon if ne passe pas je passe directement vers mon else !

Merci d'avance pour votre aide!

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
30
#!/usr/bin/perl
use Net::Telnet;
 
unless (open ($file, "switch.txt")) { die ("cannot open file Switch.txt\n"); } #fichier qui contient les adresses et noms des switchs
unless (open ($logfile, ">>syslog.txt")) { die ("cannot open file Log.txt\n"); } #fichier qui contient les sessions telnet échouées

while ($line = <$file>)
{
    ($HOST,  $NAME, $CODE, $RADIUS) = split(/;/, $line);
 
        if ($TELNET->open($HOST) && $CODE eq 'switch' &&  $RADIUS eq 'yes' )
            {
            .
            .
            .
            .
             .
 
            }
 
        else       
            {
            .
            .
            }
 
}
 close ($file); 
<>; #Garde la fenêtre ouverte après la fin de l'exécution du script

[Gardyen]

hum de nombreuses petites erreurs...

Commence tes scripts par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
#!/usr/bin/perl
use strict;
use warnings;

cela devrait te signaler qqes erreurs déjà

ensuite, quand crées ton objet TELNET ?

[Mustaal]

hum de nombreuses petites erreurs...

Commence tes scripts par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
#!/usr/bin/perl
use strict;
use warnings;

cela devrait te signaler qqes erreurs déjà

ensuite, quand crées ton objet TELNET ?

Merci pour ta réponse,

j'ajouterai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
#!/usr/bin/perl
use strict;
use warnings;

dans mon script

Le Telnet passe bien, si je mets if ($TELNET->open($HOST) ,
Voici mon programme au complet:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
#!/usr/bin/perl
 
use Net::Telnet;
 
########### DATE & TIME##############################################################################################
($sec,$min,$heure,$jour,$mois,$annee)= localtime time;
$annee+=1900;
$mois+=1;
###########OPENING FILE#############################################################################################
unless (open ($file, "switch.txt")) { die ("cannot open file Switch.txt\n"); } #fichier qui contient les adresses et noms des switchs
unless (open ($logfile, ">>syslog.txt")) { die ("cannot open file Log.txt\n"); } #fichier qui contient les sessions telnet échouées
#############Variables################################################################################################
$PROMPT='/.*[\$#:>\]\%] *$/';  #prend en compte n'importe caractéres du promp
$TFTPSERVER='10.1.1.1.';
$TELNET = new Net::Telnet (Timeout => 20, Errmode=>'return');
$YES='yes';
print("
#####################################################################
#####                   TFTP Bacbup is Started                 ######
#####               Please don't close the window              ######
#####################################################################\n");
print $logfile("\n--------------------------------------- $jour/$mois/$annee $heure:$min:$sec ---------------------------------------\n");
while ($line = <$file>)
{
    ($HOST,  $NAME, $PASSSWITCH, $RADIUS) = split(/,/, $line);
 
        if ($TELNET->open($HOST) && $PASSSWITCH eq "switch" && $RADIUS eq "yes")
            {
            sleep 1;
            $TELNET->waitfor("Enter Ctrl-Y to begin.");
            $TELNET->put("\031") or die "=> cannot send Ctrl+Y \n=> ".$TELNET->errmsg."";
            sleep 1;
            $TELNET->print("********");
            sleep 1;
            $TELNET->print("*******");
            sleep 5;
            $TELNET->waitfor("IP Configuration/Setup...");
            $TELNET->print("c") or die "=> cannot send C \n=> ".$TELNET->errmsg."";
            sleep 1;
            $TELNET->waitfor("$PROMPT");
            $TELNET->print("enable") or die "=> cannot send enable \n=> ".$TELNET->errmsg."";
            sleep 1;
            $TELNET->waitfor("$PROMPT");
            $TELNET->print("copy running-config tftp filename $NAME.ac address $TFTPSERVER") or die "=> Echec de l'envoi copy running-config \n=> ".$TELNET->errmsg."";
            sleep 1;
            $TELNET->close;
            }
        else       
            {
            print $logfile ("cannot to make the backup for: $HOST $NAME at $jour/$mois/$annee $heure:$min:$sec\n");
            }
}
close ($file); 
close ($logfile);
print("
######################################################################
#####                   TFTP Bacbup is Completed                 #####
#####                 Please press any key to quit               #####
######################################################################");
<>; #Garde la fenêtre ouverte après la fin de l'exécution du script

[Gardyen]

($HOST, $NAME, $PASSSWITCH, $RADIUS) = split(/,/, $line);

if ($TELNET->open($HOST) && $PASSWITCH eq "switch"

erreur de frappe ?

ce type d'erreur est signalé quand tu utilises strict et warnings

[Mustaal]

erreur de frappe ?

Oui erreur de frappe ;-)

depuis que j'ai mis use warning;

j'ai ce message qui apparait:

Name "main:ASSSWITCH" used only once: possible typo at C:\Perl\Scriptperl\TFTP
.pl line 25.
Name "main::YES" used only once: possible typo at C:\Perl\Scriptperl\TFTP.pl lin
e 16.

[Gardyen]

$radius est-il à la fin de la ligne ?
si oui as-tu pensé à éliminer les caractères de fin de ligne ?