IF avec 3 condtions

Version imprimable

IF avec 3 condtions

Bonjour à tous,

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

Merci d'avance pour votre aide!

Code:

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

17/06/2013, 11h14
Gardyen
hum de nombreuses petites erreurs...

Commence tes scripts par
Code:

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 ?

Citation:

Envoyé par Gardyen

hum de nombreuses petites erreurs...

Commence tes scripts par

Code:

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:

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:

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

17/06/2013, 11h31
Gardyen

Citation:

($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
17/06/2013, 11h32
Mustaal

Citation:

Envoyé par Gardyen

erreur de frappe ?

Oui erreur de frappe ;-)

depuis que j'ai mis use warning;

j'ai ce message qui apparait:

Name "main::PASSSWITCH" 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.
17/06/2013, 11h37
Gardyen

$radius est-il à la fin de la ligne ?
si oui as-tu pensé à éliminer les caractères de fin de ligne ?
17/06/2013, 11h43
Mustaal

Citation:

Envoyé par Gardyen

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

Bien vu! $radius est bien en fin de ligne, comment supprimes-tu les caractères de fin de ligne?

J'ai supprimer la variable $YES="yes";

J'ai toujours le message:
Name "main:ASSSWITCH" used only once: possible typo at C:\Perl\Scriptperl\TFTP
.pl line 25.
17/06/2013, 11h47
Gardyen

chomp existe pour ça !

Cela fonctionne nickel, merci infiniment!
Je n'aurai jamais trouvé sans ton aide ;-)
Code:

1 2 3 4 5 6 chomp($PASSSWITCH); chomp($RADIUS); print("$RADIUS"); f ($TELNET->open($HOST) && $PASSSWITCH eq 'switch' && $RADIUS eq 'yes') {

17/06/2013, 12h06
Gardyen

pour le message d'erreur, c'est indiqué: ta variable n'est utilisée qu'une seule fois dans le script, et perl te demande s'il s'agit d'une erreur de frappe
18/06/2013, 09h24
Mustaal

Citation:

Envoyé par Gardyen

pour le message d'erreur, c'est indiqué: ta variable n'est utilisée qu'une seule fois dans le script, et perl te demande s'il s'agit d'une erreur de frappe

Merci pour l'info!
Tout fonctionne parfaitement, plus qu'à tester mons cript sur plus de 100 switchs ;-)

Résolu.