Discussion :

[ellgafsi]

Salut tout le monde!

je veux écrire un programme dont l entrée une chaine de caractere telque:
1000-------- c est a dire des bits définies (ici 1000) qui ne changent pas et des bits don´t care(-).
je veux remplacer les dont care par 1 ou 0 avec une fonction random.

avez vous une idée?

Merci!

[Olivier.p]

Code :

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

1
2
3
4
5
6
$chaine = "1000--------"
while($chaine =~ /-/)
{
  $alea = random 0 ou 1 #Ne connaît pas la fonction random :lol:
  $chaine =~ s/-/$alea/;
}

C'est une esquisse donc. Qu'en penses tu ?

[ellgafsi]

Salut Olivier!
Merci pour ton coup de pousse!
voila a quoi peut resembler mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl -w
use strict;
use warnings;
 
 
my $chaine = "1000--------";
 
while($chaine =~ /-/)
{
for (0..1){
my $bit=int(rand(2));
  $chaine =~ s/-/$bit/;
}
redo if  $chaine =~ /-/;
print $chaine;
}

c est pas tout ce que je veux generer mais une un bon debut!

[Philou67430]

Une expression régulière simple telle que celle-ci :

Code :

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

1
2
$chaine = "1000--------";
$chaine =~ s/-/int(rand(2))/ge;

[ellgafsi]

Merci encore camarades !

maintenant je veux pas generer 1 seul nombre binaire mais n nombres binaires avec n=nombre des dont care (-)

c est a dire si on a 1000-------- je veux generer 8 nombres binaires
si on a 1000------11 je veux generer 6 nombres binaires
si on a 1--1 seulement 2 nombres binaires

j ai voulu enrigistrer le nombre n des dont care dans une variable et puis je construis une for mais j arrive pas a avoir ce nombre dans mes mains!

merci pour votre aide!

[Olivier.p]

Peux tu être plus précis ?
Quelque soit ton nombre de (-)

Code :

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

$chaine =~ s/-/int(rand(2))/ge;

te les remplace tous...

[ellgafsi]

je donne un exemple concret:

1000---- comme entrée

je veux 4 nombre génerer aléatoirement (ils peuvent etre comme ca):

10000001
10001010
10001111
10000001

jusqu a maintenant le code genere 1 seul nombre aléatoire!

je veux n nombres aléatoires diffirents comme sortie
telque n= nombre des dont care (-): si il ya 4 "-" je veux 4 nombres aléatoires
si il ya 8 "-" je veux 8 nombres aléatoires.

j esperes que j etais plus clair dans mes explications!

[Philou67430]

Pour compter les occurrences d'un motif, il suffit d'évaluer une expression régulière dans un contexte de liste (afin qu'il retourne la liste des occurrences) et de le convertir (automatiquement) en scalaire pour en obtenir le nombre :

Code :

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

$nb_dont_care = @{[$chaine =~ /-/g]};

Une autre manière est utiliser l'opérateur "tr" de traduction (en remplaçant - par -) et qui retourne le nombre de caractère modifiés :

Code :

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

$nb_dont_care = $chaine =~ tr/-/-/;

[Olivier.p]

Oui beaucoup plus clair

Code :

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

1
2
3
4
5
6
7
8
 
$tmp = $chaine;
$cpt = 0;
while($tmp =~ /-/)
{
  $tmp =~ s/-//;
  $cpt++; #à vérifier que l'incrémentation marce sinon $cpt = $^cpt+1;
}

Le compteur cpt te donnera le nombre de (-).
Note qu'il est nécessaire de créer une variable tmp pour enregistrer ta chaine vu que tu supprimes les (-) dans ta boucle
Après il existe peut être une fonction count que je ne connait et qui simplifierai ton code ^^

[ellgafsi]

Encore merci Olivier et Philou!

je bricole un peu et je reviens si j ai une autre question!

[Philou67430]

Avec la méthode de Olivier.p, il n'est pas nécessaire de supprimer les - pour les compter :

Code :

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

1
2
$cpt = 0;
$cpt++ while $chaine =~ /-/g;

[ellgafsi]

Code :

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

$nb_dont_care = @{[$chaine =~ /-/g;]};

p.s: je crois que le ";" apres le g est faux.
jai compilé le code avec:

Code :

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

$nb_dont_care = @{[$chaine =~ /-/g]};

et ca marche super!

Merci!

[Philou67430]

Exact, désolé pour la typo...
J'ai corrigé le post.

[Jedai]

Code :

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

$nb_dont_care = @{[$chaine =~ /-/g;]};

l'idiome traditionnel pour compter le nombre d'occurence d'une regex est :

Code :

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

$count =()= $chaine =~ m/-/g;

Bien sûr s'il s'agit d'un simple caractère, la méthode avec tr// est plus efficace.

--
Jedaï

[Philou67430]

Exact Jedaï, merci pour ce rappel

[ellgafsi]

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/perl -w
use strict;
use warnings;
 
&can_mapping("1000--------");
 
 
sub can_mapping 
{
my $can_mapping = shift @_;
my $count =()= $can_mapping =~ m/-/g;
for(1..$count){
while($can_mapping =~ /-/)
{
$can_mapping =~ s/-/int(rand(2))/ge;
}
 
my $bin_prefix="0b";
my $can_mapping_bin = $bin_prefix.$can_mapping;
my $can_mapping_dec = oct($can_mapping_bin); 
print $can_mapping, "=>", $can_mapping_dec, "\n";
}
return;
}

voila ce que j obtiens:

100011100110=>2278
100011100110=>2278
100011100110=>2278
100011100110=>2278
100011100110=>2278
100011100110=>2278
100011100110=>2278
100011100110=>2278

il ne fonctionne pas comme je souhaite!
je veux des nombres binaires diffirents et non pas un seul nombre qui se repette!

quelqu un a une idée?
Merci!

[Philou67430]

L'expression régulière

Code :

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

$can_mapping =~ s/-/int(rand(2))/ge;

remplace déjà "toutes les occurences de -" dans la chaine d'origine, il est donc inutile de bouclier "tant qu'il y a des -") :

Par ailleurs, tu ne mémorises pas ta chaine $can_mapping contenant les "-"... donc une fois modifiée, elle ne contient plus de "-", et l'expression régulière ne modifie plus cette chaine.
Essaye avec cette fonction can_mapping :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub can_mapping 
{
  my $can_mapping = shift @_;
 
  my $count =()= $can_mapping =~ m/-/g;
  for (1..$count) {
    (my new_can_mapping = $can_mapping) =~ s/-/int(rand(2))/ge;
 
    my $bin_prefix="0b";
    my $can_mapping_bin = $bin_prefix.$new_can_mapping;
    my $can_mapping_dec = oct($can_mapping_bin); 
    print $can_mapping, "=>", $can_mapping_dec, "\n";
  }
  return;
}

[ellgafsi]

Un grand merci Philou!

Si tu passes par Munich ou le sud tunisien sache que tu as quelqu un
qui est tres reconnaisant pour ton aide!