Discussion :

[mimile06]

Bonjour,

J'ai 2 flux, de même taille, ouverts en hexadécimal.
Par exemple $A=10EF332001 et $B=BFF9877600
J'utilise pack 'H*', ça fonctionne bien.


Je fais une opération logique (des ET des OU des XOR ça dépend)
$A &= $B;

Je veux faire une boucle est récupérer la valeur de gauche avec un décalage <<4 par exemple
Ainsi si $A=FA6653EF1F00 je dois avoir 0xF, puis 0xA puis 0x6 etc...
Je ne souhaite pas utiliser de tableau tout en retournant la position exemple en position 6 car je cherche 0x3


Ces flux peuvent atteindre 1 Méga. Il s'agit de mesurer des dégradations .
Du coup je vise la rapidité

Peu-être que le décalage logique n'as pas d'intérêt ?
Merci de votre proposition

mimile

[Philou67430]

Je n'ai absolument rien compris :
- qu'est qu'un flux (au sens perl)
- $A et $B, tels que présentés ici, on ne sait pas s'ils contiennent du texte (valeur hexadécimal codée en ASCII) ou une valeur numérique
- pourquoi cette restriction de ne pas utiliser de tableau ?
- pourquoi vouloir faire ces opérations logiques sur des digits hexadécimaux et pas sur la valeur numérique complète de $A et $B ?

[mimile06]

J'ai un peu simplifié, les variables sont bien le résultat d'une lecture dont le fichier est généré avec pack 'h*' binmode.

Je cherche à éviter de faire un tableau pour des problèmes de performance. Je me suis dit qu'avec un mécanisme de décalage logique je pouvais traiter octet par octet.

Mais du coup est-ce que je peux récupérer l'octet directement dans le fichier et "balayer" ce fichier ?

mimile

[Lolo78]

Tes nombres hexa sont en fait, semble-t-il, des chaînes ASCII contenant des caractères 0..9 et A..F.

Pour récupérer le sixième octet, pourquoi ne pas utiliser la fonction substr:

Code :

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

1
2
3
 
$A = "10EF332001";
print substr $A, 5, 1;  # imprime 3

Ou ai-je mal compris la nature réelle de tes données?

[BufferBob]

je pense que perso je ferais un truc dans ce goût là :

Code :

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

1
2
3
while (read (truc, $machin, 2) and read (bouzin, $bidule, 2)) {
    $coincoin .= uc(unpack("H2", chr((ord(pack("H*", $machin)) ^ ord(pack("H*", $bidule))))));
}

enfin je m'comprends moi même, c'est le plus important

[Philou67430]

Avoir un apriori sur la performance de traitement des tableaux ne me semble pas une bonne idée, surtout concernant perl.
Cela dit, pourrais-tu donner un extrait de ton code pour mieux comprendre ?
Et pourquoi l'idée de travailler la logique sur des valeurs numériques (0x10EF332001 pour $A par exemple) plutôt que sur des chaines hexadécimales traitées octet par octet (d'abord 0x10, puis 0xEF, puis 0x33, ...) ne serait pas bonne ? (perl peut travailler en entier de 64 bits)