On Wed, 2005-03-30 at 18:28 +0200, R�mi Letot wrote:
> Hello,
>
> pour le background de l'affaire, il faut savoir que je ne suis pas un
> programmeur, et encore moins en perl :-) J'ai trouv� un petit script
> perl qui me permet de rebooter � distance des t�l�phones IP que
> j'utilise. Ce script ne fonctionnait pas, et j'ai fini par isoler la
> portion du code qui ne fait pas ce qu'elle doit :
>
> if ( $testline =~ m{\s+(.*?)\/.*$_[0].*}i ) {
> $extension = $1;
>
> Ce bout de code est dans une proc�dure qui prend l'adresse ip du
> t�l�phone en argument, et les "testline" sont du format suivant :
>
> poly1/poly1 192.168.50.31 D 255.255.255.255 5060
> Unmonitored
>
> Dans cet exemple, le param�tre pass� � la proc�dure est 192.168.50.31,
> et extension en sortie doit valoir poly1.
>
> Visiblement la condition if n'est jamais valid�e (j'ai plac� un print
> dedans qui ne passe jamais), mais je n'ai pas la moindre id�e de ce que
> repr�sente ce patern, et encore moins de comment aborder ce truc.
> Quelqu'un peut m'aider ou me mettre dans la bonne direction ?
>
> Merci,
Apparemment la RE � l'air OK � un + pr�s. Est-ce que les testline
commencent par des espaces parce que \s+ demande un espace ou plus.
Peut-�tre le remplacer par \s* ?
_______________________________________________________
Linux Mailing List - http://www.unixtech.be
Subscribe/Unsubscribe: http://www.unixtech.be/mailman/listinfo/linux
Archives: http://www.mail-archive.com/[email protected]
IRC: chat.unixtech.be:6667 - #unixtech
NNTP: news.gname.org - gmane.org.user-groups.linux.unixtech
