IF avec 3 condtions

**Mustaal** · 17/06/2013, 10h33

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** · 17/06/2013, 11h14

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** · 17/06/2013, 11h25

Envoyé par 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 ?

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** · 17/06/2013, 11h31

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

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:

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** · 17/06/2013, 11h37

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

**Mustaal** · 17/06/2013, 11h43

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.

**Gardyen** · 17/06/2013, 11h47

chomp existe pour ça !

**Mustaal** · 17/06/2013, 12h02

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

Code :

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

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

**Gardyen** · 17/06/2013, 12h06

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

**Mustaal** · 18/06/2013, 09h24

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.

IF avec 3 condtions

Programmation et administration système Perl

Discussions similaires

Partager

Partager