Discussion :

[duedos]

Bonjour à tous

Je vous écris dans l'espoir que quelqu'un puisse me venir en aide, si quelqu'un manipule Asterisk avec PERL
Voial le souci : je ne parviens pas à récupérer le numéro de l'appelant de façcon correcte.
Je m'explique. En fait, mon provider SIP est Direct Centrex, et le champ 'callerid' qui fait référence au numéro de l'appelant est de la forme 'numero_de_tel <numero_de_tel>'. Or, pour mes manipulations, je n'ai besoin que de la premiere partie, c'est à dire 'numero_de_tel'.
J'ai donc utilisé substr pour cela, de la façon suivante :

Code :

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

1
2
3
 
my $number = $input{'callerid'};
my $numero = substr($number,0,10);

Ainsi je pensais récupéré un numéro à 10 chiffres, commencant par '0'
Mais non, je récupère un numéro à 9 chiffres seulement, le dernier n'étant pas pris en compte (pourtant un length($numero) renvoie bien 10)
Voila donc mon souci. Il doit y avoir un caractère caché, mais je ne sais pas comment le traiter. En fait par la suite, je dois faire une vérification sur ce '$numero', a savoir vérifier qu'il est bien au format d'un numero de portable (donc commencant par 06 et avec 8 chiffres derrière), ce que je fais de la façcon suivante :

Code :

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

1
2
 
if ($numero =~ /^06(\d{8})/)

Voila, je ne suis pas sûr d'avoir été bien clair, mais si quelqu'un a réussi à comprendre et qu'il peut m'aider, je lui en serais reconnaissant, voire même très reconnaissant.

Merci si vous avez déjà eu le courage d'aller jusqu'au bout

[rcageot]

le problème c'est qu'a priori je ne voois pas de problème dans ton code,
tu n'es juste pas obligé de mettre les parentheses
if ($numero =~ /^06\d{8}/)
peut marcher aussi.

tu n'as pas un exemple de chaine en entrée et de résultat pour voir ce qui cloche?

[d-jo]

Bonjour,

_ Il est probable que tu est des numeros qui arrivent sans le premier 0 et d'autre avec 33 devant donc attention dans ton expression
_ Que donne $agi->get_variable('callerid'); (cépend de l'implémentation des AGI)
_ Pourquoi utiliser un script perl pour identifier le numero (ça se fait tres bien dans extensions.conf) ?

Ceci dit si tu résoud ton problème, ça m'interesse bien.

A+
Joris

[rcageot]

après relecture de ton messsage, si ton numéro de téléphone est de la forme
numero <numero>
tu peux essayer de faire d'abord un split grace au caractere "<"
($num, $trash) = split (/</, $numero);
ensuite à toi de gérer si le code internationnal est présent ou non (+33_) etc.., la suppression des éventuels espace présents, ...

[duedos]

Bonjour à tous, et merci pour vos réponses.
En fait, j'ai réussi à arranger mon problème de façon assez simple:

Code :

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

1
2
3
4
5
 
my $number = $input{'callerid'};
my $debut = '1';
my $long = 10;
my $numero = substr($number,$debut,$long);

En fait j'ai juste modifié l'indice de départ de mon 'substr', alors je ne sais pas trop comment cela fonctionne du coup, vu que je pensais qu'il fallait entrer le caractère à partir duquel on voulait commencer la sélection. Toujours est-il que comme cela, ca fonctionne très bien, à savoir que je récupère bien un numéro de 10 chiffres commencant par 06. Quant au problème des numéros internationaux (+33) ce n'est pas un souci car ces appels ne sont pas traités par le serveur. Donc tout va bien