J'ai fait ce petit script et �a passe :
#!/usr/bin/perl -w
$ip="192.168.50.31";
while (<>)
{
if ( $_ =~ m{\s+(.*?).*$ip.*}i )
{
print "It works\n";
}
}
Nommer le script essai.pl et lancer la commande :
#echo "poly1/poly1 192.168.50.31 D 255.255.255.255
5060 Unmonitored" | ./essai.pl
On dirait que le probl�me vient de la d�tection du slash.
Le mercredi 30 mars 2005 � 18:28 +0200, R�mi Letot a �crit :
> 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,
--
Christophe Monniez <[EMAIL PROTECTED]> or <[EMAIL PROTECTED]>
Web site : http://www.d-fence.be
#cat /dev/mouth | grep "^[[:truth:]]"
"Of course, the best way to get accurate information on Usenet is to
post something wrong and wait for corrections"
-- Matthew Austern --
_______________________________________________________
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
