Discussion :

[nicolosko]

Bonjour,

j'ai pas tout compris aux regexp avec les hexa, aussi je pose ma question ici en souhaitant que l'un d'entre vous aura la réponse.

Voila, je souhaite rechercher une séquence Hexa dans une chaine, pour ça :

Je génère une chaine d'hexa avec dechex() :

Code :

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

for($i=0; $i<10; $i++) $chaine .= dechex(rand(0,1));

et je veux chercher tous les 1:

Code :

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

$pattern = '#\x{1}#'

ce pattern ne me retourne rien.

J'ai pourtant bien une chaine d'hexa, si je fais

Code :

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

$pattern = '#[[:xdigit:]]+#';

il me retourne bien toute la séquence.

Ou est le problème, qu'est ce qui m'a échappé ?

Merci.

[dmganges]

Bonjour,
Je ne suis pas un dieu des regex mais puisqu'il est tôt...
En attendant que les dieux se lèvent, je me lance :
J'utiliserai plutôt :

Code :

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

$pattern = '\x{1}'

mieux :

Code :

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

$pattern = '\x{01}'

Et même en utf8 sur 2 octets :

Code :

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

$pattern = '\x{0001}'

[Edit 06:01]
Nous sommes d'accord :
x{01} => SOH (Start of heading)
le "1" décimal => x{31}

[nicolosko]

Bonjour

merci de te pencher sur la question, c'est sympa d'aussi bon matin.
Mais le pattern ne fonctionne pas.
soit parce qu'il manquer les délimiteurs

Code :

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

'\x{01}' s ecrit plutôt '#\x{01}#'

Soit parce que .... ben j'en sais rien !

[dmganges]

Je ne vois pas !
Voici quelques transformations simples que je fais :

Code :

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

1
2
3
4
$Lig =~ s/\x{064E}\x{0627}/\x{0627}/go; # Supprime Fatha devant Alif ?
    $Lig =~ s/\x{064E}\x{0649}/\x{0649}/go; # Supprime Fatha devant Alif marsour ?
    $Lig =~ s/\x{0650}\x{064A}/\x{064A}/go; # Supprime Kasra devant Ya ?
    $Lig =~ s/\x{064F}\x{0648}/\x{0648}/go; # Supprime Damma devant Oua ?

il n'y a pas de #
Je passe la main aux spécialistes

[nicolosko]

aie aie aie
je suis confus. Je me suis trompé de forum !
j'essaie ces regexp en PHP pas en Perl...
désolé. Ceci-dit, ça regle pas mon problème, je vais allez voir sur php forum.

Merci pour le temps passé.
Cordialement

[dmganges]

RIEN de grave !!!
Bonne continuation

[Lolo78]

Bonjour,

Plusieurs remarques.

D'une part, dechex n'est pas à ma connaissance une fonction standard de Perl, je ne sais donc pas ce qu'elle retourne.

Second point, la syntaxe de

Code :

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

for($i=0; $i<10; $i++) $chaine .= dechex(rand(0,1));

n'est pas correcte et je ne pense pas que cela puisse compiler.

Je ne sais donc pas ce qu'est censé contenir $chaine. Ce serait bien que tu nous affiches un exemple du contenu de ta $chaine.

Enfin et surtout, ta syntaxe semble retourner une chaîne de caractères contenant une représentation hexadécimale d'un nombre ou d'une série de nombres. Comme il s'agit d'une chaîne de caractères, une simple regex ordinaire devrait fonctionner, comme dans la session suivante sous le debugger:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  DB<1>  $c = sprintf ("%x", 241)
 
  DB<2> print $c
f1
  DB<3> print $1 if $c =~ /(1)/
1
  DB<4> print $1 if $c =~ /(.1)/
f1
  DB<5>  $c = hex sprintf ("%x", 241)
 
  DB<6> print $c
241
  DB<7> print $1 if $c =~ /(.1)/
41

Ou est-ce que je n'ai pas compris du tout ce que tu cherches à faire?

EDIT: je n'avais pas vu les deux derniers messages quand j'ai posté. Mais je persiste à penser que tu as une chaîne de caractères, pas un nombre binaire, même en PHP.