Discussion :

[whippette]

Bonjour, voici mon problème, $down à dans sa ligne de texte des ().
quand je la compare`dans mon if elle retourne toujours enable, pourtant cela lui arrive de ressembler a my $down. j'Ai essayé quotemate et cela ne fonctionne pas. Quelqu'un a une idée svp..

Merci

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
# Priv 1
sub getStatus  {         
        my $down = "line protocol is down (disabled)";
        my ( $self, @args ) = @_;
        my $if = &harmonizeInts( $args[0] );
        my $cmd = "sh interface " . $if;
        my @result = $self->cmd( $cmd );
 
 
        foreach my $line ( @result )  {
 
                if ( $line =~ $down)   
                {
                return "Disabled";
                }
               else{return "enable";}
 
        }
 
 
}

[Olivier.p]

Essai la commande "eq" au lieu de "=~".

Et n'hésite pas à utiliser les balises Code

Code :

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

1
2
 
if ( $line eq $down)

[whippette]

Cela ne fonctionne pas plus , lorsque je fais

Code :

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

my $down = "line protocol is down";

au lieu de

Code :

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

my $down = "line protocol is down (disabled)";

cela fonctionne, mais je veux comme la deuxième et ma ligne n'est pas égal parce qu'il y a d'autre texte sur la ligne.

[Olivier.p]

D'accord ton besoin est plus de savoir si il y a "line protocol is down (Disabled)" sur ta ligne ou pas.

Dans ce cas je te conseille d'utiliser une expressions régulières :

Code :

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

1
2
3
4
5
 
if ($line =~ /.line protocol is down (Disabled)./)
{
return "Disabled";
}

plus d'infos -> By Djibril

Edit : note queje débute en Perl et que les expressions régulières c'est tout ce que je connais :p

[whippette]

cela ne marche pas plus je l'avais déjà essayé. Mais j'ai décidé d'écrire à la place

Code :

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

 if ( $line =~ /disabled/) {return "Disabled";}

j'ai l'impression que lorsque je mettais des () cela bloquait tout en tout cas
un gros merci cela fonctionne maintenant

Merci

[Olivier.p]

Moui en fait les ( ) bloquent parce qu'elles représentent un bloc en expressions régulières.

Essaie ceci cela devrait marcher.

Code :

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

1
2
3
4
5
 
if ($line =~ /.line protocol is down \(Disabled\)./)
{
return "Disabled";
}

Les "\" permettent de prendre en compte les parenthèses qui sont interprétées comme des caractères de délimitation de bloc sinon. De même si tu veux lire un . ou un ^ ou même un \ il faut écrire \. \^ et \\

Désolé j'ai légèrement manqué de précision. Faut dire que dans la FAQ Djibril ne liste pas tous les caractères propres à une reg exp

[djibril]

Faut dire que dans la FAQ Djibril ne liste pas tous les caractères propres à une reg exp

Il y a un topic intéressant ici pour toutes suggestions, ça permet de corriger ou rajouter des informations. Vos contributions sont les bienvenues.