[regex]Problème pour récupérer les caractères d'une chaine

Version imprimable

Salut à tous
Voila j'ai un petit souci pour récupérer les caractères d'une chaine.
En fait, je génère avec mon script un code composé de 6 chiffres à l'aide de la fonction rand().
Et ce que je souhaiterai, c'est récupérer un à un les chiffres qui composent ce code. Suis assez clair?
Prenons l'exemple ou le rand() génère le code 123456
Et bien je souhaiterais afficher avec un simple print "1,2,3,4,5,6".
pour cela j'ai fait le code suivant
Code:

1 2 3 4 5 my $code = int(rand(900000)+100000); print "le code est $code"; (my $un,my $deux,my $trois,my $quatre,my $cinq,my $six) = ($code =~ m/^(.)(.)(.)(.)(.)(.)/); print "voici mon code : $un,$deux,$trois,$quatre,$cinq,$six";
mais voila, en reponse, je n'ai rien, si ce n'est :
Code:

1 2 3 le code est 257916 voici mon code : ,,,,,
c'est donc que les variables $un ... sont vides.
mais pourquoi?

Ton code est incorrect, tu veux faire :
Code:

1 2 3 4 5 my $code = int(rand(900000)+100000); print "le code est $code\n"; my ($un, $deux, $trois, $quatre, $cinq, $six) = ($code =~ m/^(.)(.)(.)(.)(.)(.)/); print "voici mon code : $un, $deux, $trois, $quatre, $cinq, $six\n";
Par ailleurs, il s'agit là d'un code très peu esthétique...
Code:

1 2 3 4 5 my $code = int(rand(900000)+100000); print "le code est $code\n"; my @digits = split //, $code; print "voici mon code : " . (join ", " , @digits) . "\n";
Tu continues à avoir accès à chaque digit séparément si tu en as besoin par la suite, mais de façon bien plus propre (et robuste, par exemple si tu change le nombres de chiffres dans ton code).

--
Jedaï

01/09/2006, 17h24
duedos

Merci jedaï
mais en fait ce que je veux faire c'est recuperer les chiffres pour ensuite pouvoir lancer des fichiers audios.
En fait j'utilise Asterisk (si quelqu'un connait, et je n'en doute pas), et je veux faire un systeme ou l'utilisateur appelle pour obtenir un code personnel.
le code est donc généré avec rand() et je veux ensuite que mon serveur telephonique dicte ce code chiffre pr chiffre, sachant que le fichier audio disant "1" s'appelle '1.wav'.
j'imagine que mes explications sont loin d'etre claires et je m'en excuse...
si on prend un exemple simple:

je genere le code 12
je veux que le serveur dise "1" puis "2", c'est a dire qu'il lance le fichier audio "1.wav" puis "2.wav".
donc pour cela je veux stocker le premier chiffre dans une variable $un, puis le deuxieme dans la variable $deux.comme ca on lance le lecteur audio avec en parametre $un puis $deux et le tour est joue...en theorie
01/09/2006, 17h38
Jedai

$un est juste la même chose que $digits[0] dans mon code. (Avoir des variables $un $deux etc est un très mauvais signe pour le design d'une application, et trahit la plupart du temps un programmeur venus tout droit du basic ou équivalent, ce n'est pas vraiment une pratique recommandée)
Néanmoins tu peux tout à fait utiliser la version corrigée de ton code plutôt que ma proposition d'amélioration (bien que je ne te le conseille pas : les tableaux sont bien plus flexibles et propres).

--
Jedaï
04/09/2006, 10h25
duedos

Bon merci Jedai, mais maheureusement quelque soit la methode utilisee, le probleme est toujours present, a savoir que je reste incapable de recuperer mon code chiffre par chiffre.
Le probleme peut il venir du fait que $code est cree a l'aide de rand?
(attention cette question m'a peut etre trahi, mais oui je suis nul en prog :D )
04/09/2006, 14h57
MarneusCalgarXP

J'ai déjà eu des problèmes avec les regexp inopérantes sur des nombres. La solution que j'ai trouvé a été de passer par une chaine de caractères...

Code:

my $code = sprintf("%d", (int(rand(900000)+100000)));

Mais là, en l'occurence, le code de Jedai fonctionne sans modification. quand tu l'executes, quel résultat obtiens-tu ?
04/09/2006, 15h09
duedos
Merci bien, mais encore une fois cette methode ne fonctionne pas
j'obtiens inlassablement (quoi que...) et eternellement lameme reponse, du moins les memes message dans ma console, a savoir
Code:

1 2 3 le code est 257916 voici mon code : ,,,,,
et je dois admettre que je me demande quel peut en etre la cause
pour tout vous dire, j'ai un autre script qui ressemble trait pour trait a ca si ce n'est que celui la fonctionne, et me renvoie bien les elements souhaites dans les variables souhaitees
et j'avoue que si ce n'est pas super chiant et bien ca y ressemble fortement
04/09/2006, 16h24
MarneusCalgarXP

Quelle version de Perl utilises-tu ?
04/09/2006, 16h33
duedos

j'utilises la version 5.8.4 de perl
mais je ne suis pas sur que ce soit du a la version puisque dans mon autre script, la ligne

Code:

($un...) = ( $variable =~ m/^(.)(.)(.)(.)/);

fonctionne parfaitement, a savoir que je recupere bien un chiffre dans $un, un dans $deux, etc.
04/09/2006, 17h20
MarneusCalgarXP

Peux tu poster ici le source des 2 scripts pour voir la différence ?

alors le premier qui fonctione le voici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!/usr/bin/perl
use DBI;
use Asterisk::AGI;
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
 
# on rentre le numero de la borne que l'on souhaite utiliser
 
$AGI->exec('Playback','/usr/share/asterisk/sounds/fr/borne');
my $id_borne = $AGI->get_data('/usr/share/asterisk/sounds/beep',5000,4);
$AGI->verbose("le numero de la borne est $id_borne\n",1);
 
# si le numero est conforme (compose de quatres chiffres), on continue
 
if (length($id_borne) == 4)
        {
 
                # le numero de la borne est repete pour verification
 
                (my $un,my $deux,my $trois,my $quatre) = ( $id_borne =~ m/^(.)(.)(.)(.)/);
                $AGI->exec('Playback','/usr/share/asterisk/sounds/fr/numero_borne');
                $AGI->exec('Playback',"/usr/share/asterisk/sounds/digits/fr/$un");
                $AGI->exec('Playback',"/usr/share/asterisk/sounds/digits/fr/$deux");
                $AGI->exec('Playback',"/usr/share/asterisk/sounds/digits/fr/$trois");
                $AGI->exec('Playback',"/usr/share/asterisk/sounds/digits/fr/$quatre");

et le second qui donc ne fonctionne pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
#!/usr/bin/perl
use DBI;
use Asterisk::AGI;
my $AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
my $numero = $input{'callerid'};
 
my $code = sprintf("%d", int(rand(900000)+100000));
print "le code est $code\n";
$AGI->verbose("votre code confidentiel est le $code\n",1);
my $dbh = DBI->connect("DBI:mysql:asterisk","root","root");
my $verif = $dbh->prepare("select code from codes where code=$code");
$verif -> execute();
if ($code = $verif->fetchrow)
        {
                $AGI->set_priority(5);
        }
else
        {
                my ($un, $deux, $trois, $quatre, $cinq, $six) = ($code =~ m/^(.)(.)(.)(.)(.)(.)/);
                my @digits = split (//, $code);
                print "le code est $digits[0],$digits[1],$digits[2],$digits[3],$digits[4],$digits[5]\n";
                print "voici mon code : $un,$deux,$trois,$quatre,$cinq,$six\n";
                $AGI->exec('Playback',"/usr/share/asterisk/sounds/digits/fr/$un");
                $AGI->exec('Wait','1');
                $AGI->exec('Playback',"/usr/share/asterisk/sounds/digits/fr/$deux");
                $AGI->exec('Wait','1');
                $AGI->exec('Playback',"/usr/share/asterisk/sounds/digits/fr/$trois");
                $AGI->exec('Wait','1');
                $AGI->exec('Playback',"/usr/share/asterisk/sounds/digits/fr/$quatre");
                $AGI->exec('Wait','1');
                $AGI->exec('Playback',"/usr/share/asterisk/sounds/digits/fr/$cinq");
                $AGI->exec('Wait','1');
                $AGI->exec('Playback',"/usr/share/asterisk/sounds/digits/fr/$six");
                $AGI->exec('Wait','1');

je n'ai mis ici que les parties susceptibles de vous interesser, le reste n'ayant pas grand chose a voir
En fait, comme vous l'aurez remarque, la seule difference notable se fait au niveau de la creation de la chaine de chiffres. Donc le probleme pourrait venir du rand(). Si quelqu'un pouvait essayer chez lui pour tester si le probleme est le meme...
merci d'avance

04/09/2006, 17h55
Jedai
Faute de frappe (j'espère) :
Code:

1 2 if ($code = $verif->fetchrow)
Là tu affecte le résultat de fetchrow() à $code...
Tu voulais sans doute dire :
Code:

1 2 if ($code == $verif->fetchrow)
ou même :
Code:

1 2 if ($code eq $verif->fetchrow)
De là vient ton erreur.

--
Jedaï
04/09/2006, 17h59
duedos

je suis honteux...
desole de vous avoir derange pour une erreur aussi debile, vraiment je m'en veux parceque meme sans etre un expert, j'aurais du trouver
encore mille excuses