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, -- Rémi _______________________________________________________ Linux Mailing List - http://www.unixtech.be Subscribe/Unsubscribe: http://www.unixtech.be/mailman/listinfo/linux Archives: http://www.mail-archive.com/linux@lists.unixtech.be IRC: chat.unixtech.be:6667 - #unixtech NNTP: news.gname.org - gmane.org.user-groups.linux.unixtech