Discussion :

[BENCHEKROUN]

Bonjour à tous,
je suis entrain de developper un script, et je voudrai examiner une expression, qui à chaque fois peut comporter des caractères différents, mais se termine toujours par le symbole '>'
et à ce propos pour une commande waitfor, je veux attendre une chaine quelconque mais qui se termine par >

Merci de votre aide.

[Gamdwin]

je suis entrain de developper un script, et je voudrai examiner une expression, qui à chaque fois peut comporter des caractères différents, mais se termine toujours par le symbole '>'
et à ce propos pour une commande waitfor, je veux attendre une chaine quelconque mais qui se termine par >

La question est... ?

[BENCHEKROUN]

la question est comment examiner une chaine de caractère pour savoir si elle finit par le symbole > ou pas.

[Gamdwin]

Code :

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

1
2
3
4
5
6
7
8
if ( $variable =~ />$/ )
{
   # La chaîne se termine par '>'
}
else 
{
   # Pas de '>' en fin de chaîne
}

[2Eurocents]

La réponse est

Code :

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

$chaine =~ m/>$/

8)

Le symbole $ dans une expression rationnelle désigne la fin de chaine.

Bonne continuation.

P.S. Peux-tu éditer le sujet de ton message initial pour remplacer les majuscules par des minuscules, s'il te plait ? Cela facilitera la lecture du forum et ne laissera pas croire que tu es en train de crier . Merci d'avance.

[BENCHEKROUN]

Merci pour ton message, 2Eurocents

le seul souci, est que le traitement de chaine que j'ai à faire n'est pas sur un if, mais sur un waitfor dans le module Net::Telnet, et donc à priori, je ne peux utiliser l'opérateur =~.
auras-tu un conseil à me donner?

[Gamdwin]

Tiré de l'aide de CPAN :

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
 
waitfor - wait for pattern in the input
$ok = $obj->waitfor([Match      => $matchop,]
                        [String     => $string,]
                        [Binmode    => $mode,]
                        [Errmode    => $errmode,]
                        [Telnetmode => $mode,]
                        [Timeout    => $secs,]);
 
This method reads until a pattern match or string is found in the input stream. All the characters before and including the match are removed from the input stream.
 
[...] 
 
You can specify more than one pattern or string by simply providing multiple Match and/or String named parameters. A $matchop must be a string representing a valid Perl pattern match operator. The $string is just a substring to find in the input stream.
 
[...]
 
Of course don't forget about regexp metacharacters like ., [, or $. You'll only need a single backslash to quote them. The anchor metacharacters ^ and $ refer to positions in the input buffer.

Si j'ai bien compris, tu peux passer un pattern regexp à waitfor.
Ce pattern est donc ">$".

[nematoad]

]Si j'ai bien compris, tu peux passer un pattern regexp à waitfor.
Ce pattern est donc ">$".

Ça doit être ça. Et si c'est pas ça, c'est

Code :

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

qr/>$/

N

[BENCHEKROUN]

Voici le message qu'il me sort :

missing opening delimiter of match operator in argument "qr/>$/" given to Net::Telnet::waitfor() at test.pl line 29

[Gamdwin]

Fais voir la manière dont tu appelles waitfor() ?

[2Eurocents]

Voici le message qu'il me sort :

missing opening delimiter of match operator in argument "qr/>$/" given to Net::Telnet::waitfor() at test.pl line 29

A voir le message, je dirai qu'il faut passer "/>$/". Essaies ...

En effet : "missing opening delimiter of match operator" signifie "Délimiteur ouvrant l'opérateur de correspondance manquant"

Or, les délimiteurs, ce sont les / / avec lesquels on délimite habituellement les expressions rationnelles.

S'il ne les trouve pas, c'est probablement qu'il s'attend à ce que la chaine commence par eux (supposition à 2 centimes).

Bonne continuation.

[BENCHEKROUN]

malheureusement, qd je l'enléve, voilà ce qu'il me sort :


pattern match read eof at test2.pl line 29

sachant que la ligne 29 est celle de :

$session_telnet->waitfor('/>$/');

[Gamdwin]

Essaie, pour tester :

Code :

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

$session_telnet->waitfor(-match => '/>$/');

(plein d'exemples d'utilisation de waitfor() sur CPAN de Net::Telnet )